Fractran: Difference between revisions
m
→{{header|Quackery}}: fixed missing loadfile
m (→{{header|Quackery}}: tidy up) |
m (→{{header|Quackery}}: fixed missing loadfile) |
||
Line 3,336:
To execute a Fractran program until the halting condition is satisfied, use <code>[ program share run until ]</code>. The Fractran prime generator will never satisfy the halting condition, so in this task the <code>drop</code> after <code>run</code> discards the boolean.
<lang Quackery> [
[ nip 1 = ] is vint (
[ [ dup even while
Line 3,354 ⟶ 3,356:
[ char / over find
space unrot poke
▲ nested join ] ] is parse$ ( $ --> [ )
[ stack ] is program ( s --> )
Line 3,392 ⟶ 3,393:
primes take echo
program release
</lang>
{{out}}
| |||