106
Programming Challenges / Re: SALC Ubuntu 64
« on: December 21, 2019, 04:35:48 AM »
8th (Ubuntu 64 RPi 4B 4GB)
ubuntu@rpi4b:~/salc/8th-dev$ timex ./1mil4
r LEN: 999986
Front: ZYXWVUTSRQPONMLKJIHGFEDCBA
Back: ZYXWVUTSRQPONMLKJIHGFEDCBA
UBVal: 1000000
1.00user 0.10system 0:01.12elapsed 98%CPU (0avgtext+0avgdata 66508maxresident)k
0inputs+0outputs (0major+15444minor)pagefaults 0swaps
ubuntu@rpi4b:~/salc/8th-dev$
Code: Text
- 1000000 constant LIMIT
- a:new 0 a:push var, a
- 0 b:new true b:writable var, s
- 0 b:new true b:writable var, t
- : iterate
- s @ "" 2 pick n:1- 26 n:mod 65 n:+ s:+ b:append
- b:len 26 n:< not if
- t @ swap b:append drop
- 0 b:new true b:writable s !
- else
- drop
- then
- a:push ;
- : app:main
- a @ ' iterate 1 LIMIT loop
- t @ b:rev >s s:len "r LEN: %d\n" s:strfmt .
- dup 26 s:lsub "Front: %s\n" s:strfmt .
- 26 s:rsub "Back: %s\n" s:strfmt .
- LIMIT a:@ nip "UBVal: %d\n" s:strfmt .
- bye ;
ubuntu@rpi4b:~/salc/8th-dev$ timex ./1mil4
r LEN: 999986
Front: ZYXWVUTSRQPONMLKJIHGFEDCBA
Back: ZYXWVUTSRQPONMLKJIHGFEDCBA
UBVal: 1000000
1.00user 0.10system 0:01.12elapsed 98%CPU (0avgtext+0avgdata 66508maxresident)k
0inputs+0outputs (0major+15444minor)pagefaults 0swaps
ubuntu@rpi4b:~/salc/8th-dev$