Go to advanced search

by jalih
Mon Nov 18, 2019 7:54 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Every few years for a long time I have tried installing some BSD or other on a spare PC that was passing by. So far I have never managed to get one to install or and boot. I have only ever seen one instance of BSD running on a PC. Many years ago. I always wondered how the guy did it. As much as I l...
by jalih
Sun Nov 17, 2019 8:07 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Here is a little bit faster parallel version of tatami for 8th. I eliminated some stack juggling and added some task local variables: 100000000 constant N-MAX N-MAX n:sqrt n:int constant N-MAX-SQRT N-MAX b:new true b:writable constant v : l4 \ i -- i \ i j 2dup n:* v over b:@ n:1+ rot swap b:! 2drop...
by jalih
Sun Nov 17, 2019 7:20 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

After parallel codes in C++ and 8th, I wonder if another parallel challenge entry is about to be submitted. Here is Fortran code with OpenMP directives giving a little speed boost... ! Based on Tatami.c written by jcyr on Raspberrypi.org forums program tatami use omp_lib implicit none integer, para...
by jalih
Sun Nov 17, 2019 8:08 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

What is interesting that 8th version of tatami runs at least two times faster on my ROCK64 board than on my Windows PC machine. I will add OpenMP support to Fortran version and check if it helps...
by jalih
Thu Nov 14, 2019 7:51 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Here is a two threaded version of tatami for 8th: 100000000 constant N-MAX N-MAX n:sqrt n:int constant N-MAX-SQRT N-MAX b:new true b:writable constant v : swap+- \ a b c f -- a (a+b+1) (a+c-1) drop swap 2 pick n:+ n:1+ swap 2 pick n:+ n:1- ; : l4 \ i k2 k3 k4 -- i k2 k3 k4 \ i k2 k3 k4 j 4 pick over...
by jalih
Thu Nov 14, 2019 7:16 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

I suspect the Fortran code would gain performance by using a one or two-byte integer data type for the v array. A similar optimisation could be done with my Visual Basic code. Fortran integer types are signed, 8-bit and 16 bit integers are nonstandard and might not be supported by all compilers. So...
by jalih
Tue Nov 12, 2019 9:30 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Here are updated Tatami codes for PL/1, Fortran and 8th. I use ancient PL/1 compiler for Windows but it still produces the fastest code of the bunch. PL/1 code takes about 3 seconds to run, Fortran code doubles that time and runs in about 6.5 seconds. Execution time for 8th in this task is poor and ...
by jalih
Tue Nov 12, 2019 5:55 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

John_Spikowski wrote:
Tue Nov 12, 2019 12:05 am
I added find_s to the TA extension module...
You should update your tatami code to jcyr's fixed version. Your current version got buffer overrun by one when writing to array...

Change all:

Code: Select all

k4 = INT(nMAX/i)
To:

Code: Select all

k4 = INT((nMAX-1)/i)
by jalih
Mon Nov 11, 2019 5:59 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

There seems to be a subscript range error on jcyr's current tatami C code. I converted that code to following very readable piece of 8th code: :lol: 10000 constant N-MAX N-MAX n:sqrt n:int constant N-MAX-SQRT [] N-MAX 1 a:close mat:new constant v : l4 \ i k2 k3 k4 -- i k2 k3 k4 \ i k2 k3 k4 j 4 pick...
by jalih
Sat Nov 09, 2019 1:39 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Has anyone tried running the ScriptBasic code I posted? Find the problem with Tatami_Final.sb and I will give you a coupon for scalp protection. Here you are John , thanks for letting me keep my scalp! ;) You had some typos, most obvious was the use of 1 instead of i at line 25, if I recall correct...
by jalih
Sat Nov 09, 2019 6:32 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Historic Unix R7 was running on a newly installed PDP-11/70. Maybe I should start up Soviet built PDP-11 compatible UKNC computer running RT-11 operating system and try running the tatami code.... I also have access to most of the Soviet built highly modified ZX-Spectrum clones. Those could also be...
by jalih
Thu Nov 07, 2019 12:22 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

From everything I ever heard about it I got the impression it was some mythic beast of software development that was slain before it could get off the ground. It truly is a mythic beast with a lot of interesting ideas. I personally applaud the choice of PL/I as the system programming language. You ...
by jalih
Thu Nov 07, 2019 8:20 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

I wonder how well that compiler would work under QEMU. After I get the PET emulator up and running, I may give QEMU a try, unless someone else has already done so. Emulating obsolete computer architectures on a Pi could be as liberating as owning a time machine. Just for fun, I will setup Multics e...
by jalih
Wed Nov 06, 2019 7:34 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Here is Fortran conversion of jcyr's Perl version... program tatami implicit none integer, parameter :: N_MAX = 100000000 integer, parameter :: N_MAX_SQRT = sqrt(real(N_MAX)) integer :: ierror integer(kind=2), dimension(:), allocatable :: v integer :: i, j, k, k2, k3, k4 allocate(v(0:N_MAX-1), stat=...
by jalih
Wed Nov 06, 2019 4:51 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

ejolson wrote:
Wed Nov 06, 2019 4:27 pm
Did you ever find a PL/I compiler that works on the Raspberry Pi?
Nope, I used my old Windows compiler for testing. There is a work in progress Iron Spring PL/I compiler for Linux and OS/2 freely available but it's x86 only.
by jalih
Wed Nov 06, 2019 4:20 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Just for fun, here is a PL/I conversion of jcyr's Perl version... *PROCESS MARGINS(1,180) LIBS(SINGLE,STATIC); *PROCESS OPTIMIZE(2) DFT(REORDER); *PROCESS PP(MACRO); tatami: proc options(main); dcl N_MAX fixed bin(31) value(100000000); dcl N_MAX_SQRT fixed bin(31) value(sqrt(N_MAX)); dcl v(0:N_MAX-1...
by jalih
Tue Nov 05, 2019 4:35 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Here is a 8th conversion of the tatami code... 100000000 constant N-MAX N-MAX n:sqrt n:int constant N-MAX-SQRT [] N-MAX 1 a:close mat:new constant v : l2 \ i k k2 k3 -- i k k2 k3 \ i k k2 k3 j dup 5 pick n:band 1 n:band 5 pick 2 pick n:* N-MAX n:< not or if drop ;; then 4 pick over n:* dup v mat:@ n...
by jalih
Tue Oct 08, 2019 5:09 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Lenovo laptop ubuntu@ubuntu:~/sbrt/examples$ time ./fibo_fdi.py 4784969 > fibo_py.out real 0m11.388s user 0m11.374s sys 0m0.012s ubuntu@ubuntu:~/sbrt/examples$ ls -l fibo_py.out -rw-r--r-- 1 ubuntu ubuntu 1000001 Oct 8 01:10 fibo_py.out ubuntu@ubuntu:~/sbrt/examples$ Raspberry Pi 4B 4GB pi@RPi4B:~/...
by jalih
Wed Sep 18, 2019 9:06 am
Forum: General programming discussion
Topic: Local App vs Web App
Replies: 20
Views: 1842

Re: Local App vs Web App

Heater wrote:
Wed Sep 18, 2019 8:36 am
When you use Electron you are not creating a web application. You are creating a desktop application that happens to use a rendering engine and other technologies used in the Chrome web browser together with node.js.
There are some security considerations when using Electron...
by jalih
Mon Sep 09, 2019 6:38 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Liberation through Computer Literacy

Since the goal of this thread is liberation through computer literacy, exploring a wide variety of programming languages is essential. Since programming languages are people too, it is important to remember that having equal abilities is not a prerequisite for equal respect. Yeah, why fight when yo...
by jalih
Tue Aug 06, 2019 12:38 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Project Digital Apocalypse Not Now

rpdom wrote:
Tue Aug 06, 2019 10:58 am
ejolson wrote:
Tue Aug 06, 2019 8:48 am
Do you think the insane British anagram challenge could be done very easily in COBOL?
Not easily, but it could be done.
Simply use keyed data set instead of dictionary?
by jalih
Sat Aug 03, 2019 7:44 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Project Digital Apocalypse Not Now

Heater, To me Rust seems like unnecessary complex language (and yes, I program in PL/I :D ). What features do you like about it the most? There is a comparison of V and other programming languages including Rust available here . There is simple example that fetches top Hacker News stories concurrent...
by jalih
Thu Aug 01, 2019 4:31 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Project Digital Apocalypse Not Now

This shows that formatting is now correct, but all the two-letter anagrams are still missing. Without those two-letter words it's not clear the resulting anagram list is enough insane to prevent the deep-learning convolutional neural networks from taking over the world. What it shows is that I forg...
by jalih
Wed Jul 31, 2019 3:39 pm
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Project Digital Apocalypse Not Now

I modified my 8th anagram challenge program a little bit and got some speed improvement: \ Find anagrams in a word list: m:new constant anamap [ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,...
by jalih
Tue Jul 30, 2019 3:40 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1764
Views: 95229

Re: Project Digital Apocalypse Not Now

It appears I'm not up to easily changing to code. Would you be able to post revised programs? This fixes the output: \ Find anagrams in a word list: m:new constant anamap [ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, ...

Go to advanced search