by owainlewis on 6/1/15, 12:09 PM with 18 comments
by owainlewis on 6/1/15, 12:20 PM
by rpcope1 on 6/1/15, 6:51 PM
I think becoming proficient with Forth has also made me a better programmer in other languages; for example stack based iterative replacements for recursion come easier, as well as other stack based algorithms. It also makes understand the CPython VM a lot easier.
by schsafe on 6/5/15, 6:42 PM
http://forthfreak.net/jsforth80x25.html
ok
: fibo 1 dup 45 0 do . dup rot rot + dup loop ; ok
fibo1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 2 8657 46368 75025 121393 196418 317811 514229 832040 1346269 2178309 3524578 5702 887 9227465 14930352 24157817 39088169 63245986 102334155 165580141 267914296 43 3494437 701408733 1134903170 ok..
The Fibonacci numbers :-)
by lukego on 6/2/15, 2:05 AM
by coroxout on 6/1/15, 8:25 PM
by schsafe on 6/4/15, 4:04 PM
/home/user/st> more fibonacci
1#[." "#@@+#a-;]10,
/home/user/st> st fibonacci 45
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368 75025 121393 196418 317811 514229 832040 1346269 2178309 3524578 5702887 9227465 14930352 24157817 39088169 63245986 102334155 165580141 267914296 433494437 701408733 1134903170
/home/user/st>
by TheLoneWolfling on 6/1/15, 10:18 PM
Anyone played around with Factor?
by mastax on 6/2/15, 1:33 AM
by agumonkey on 6/2/15, 12:03 PM
- http://csclub.uwaterloo.ca/media/Eric%20LaForest:%20Next%20G...
by schsafe on 6/4/15, 4:15 PM
by timonoko on 6/2/15, 4:02 AM
: ABS (IF (< DUP 0)) (THEN (- 0 SWAP)) ;
by GFK_of_xmaspast on 6/2/15, 1:33 AM