Fractran: Difference between revisions
Content added Content deleted
m (→{{header|Quackery}}: tidy up) |
m (→{{header|Quackery}}: fixed missing loadfile) |
||
Line 3,336: | 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. |
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> [ |
<lang Quackery> [ $ "bigrat.qky" loadfile ] now! |
||
⚫ | |||
[ nip 1 = ] is vint ( |
[ nip 1 = ] is vint ( n/d --> b ) |
||
[ [ dup even while |
[ [ dup even while |
||
Line 3,354: | Line 3,356: | ||
[ char / over find |
[ char / over find |
||
space unrot poke |
space unrot poke |
||
build nested join ] ] is parse$ ( $ --> [ ) |
|||
⚫ | |||
[ stack ] is program ( s --> ) |
[ stack ] is program ( s --> ) |
||
Line 3,392: | Line 3,393: | ||
primes take echo |
primes take echo |
||
program release |
program release |
||
</lang> |
|||
{{out}} |
{{out}} |