2 ms·
Straight from the blog, too, from C to Forth: : sier cr 32 0 do 32 0 do i j and if ." " else ." * " then loop cr loop ; sier Output from eforth/subleq
by anthk 1y ago
Straight from the blog, too, from C to Forth:
: sier cr 32 0 do 32 0 do i j and if ." " else ." * " then loop cr loop ;
sier
Output from eforth/subleq (with do...loop set in the config):
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * *
* * * * * * * * * * * * * * * *
* * * * * * * *
* * * * * * * * * * * * * * * *
* * * * * * * *
* * * * * * * *
* * * *
* * * * * * * * * * * * * * * *
* * * * * * * *
* * * * * * * *
* * * *
* * * * * * * *
* * * *
* * * *
* *
* * * * * * * * * * * * * * * *
* * * * * * * *
* * * * * * * *
* * * *
* * * * * * * *
* * * *
* * * *
* *
* * * * * * * *
* * * *
* * * *
* *
* * * *
* *
* *
*
ok
ok
- kragen 1y agoThat looks nicer than my version. But you should put the `cr` before the inner loop, not after it. That way you can remove the `cr` before the outer loop.