Go to advanced search

by jalih
Tue Feb 18, 2020 7:20 pm
Forum: Python
Topic: Function Repeats itself 10 Times Instead of Once!
Replies: 4
Views: 171

Re: Function Repeats itself 10 Times Instead of Once!

My problem: When I get to 100 score, level is added by 10, not by one. I don't know what seems to happen. Seems quite obvious: as long as score mod 100 is zero, you add one to level. I would just give one bonus point when level is incremented and your problem should just go away... There seems also...
by jalih
Tue Feb 18, 2020 6:30 pm
Forum: Scratch
Topic: Scratch resources for adults?
Replies: 18
Views: 616

Re: Scratch resources for adults?

Go for Python3, it is quite simple at its basic usage, GUI are a different matter but you can look at using GUIZERO https://projects.raspberrypi.org/en/projects/getting-started-with-guis as a simplified way of using s GUI. Warning, none of the mosules have the ease of VisualBasic for that sort of w...
by jalih
Thu Jan 02, 2020 5:47 pm
Forum: Python
Topic: Timelapse between two times
Replies: 3
Views: 238

Re: Timelapse between two times

How about sleeping until it's time to take pictures instead of polling every 5 seconds? Below is a simple example in 8th programming language (sorry, I can't code in Python). : sleep-until \ d -- d:>msec d:new d:>msec n:- 0 over n:> if drop ;then 1000 n:/ sleep ; : sleep-between \ d-low d-high -- du...
by jalih
Mon Nov 18, 2019 7:54 am
Forum: General programming discussion
Topic: Liberation through Computer Literacy
Replies: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 2388

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: 1673
Views: 112217

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: 1673
Views: 112217

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: 1673
Views: 112217

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...

Go to advanced search