Fractran: Difference between revisions

Content added Content deleted
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> [ 1 & not ] is even ( n --> b )
<lang Quackery> [ $ "bigrat.qky" loadfile ] now!

[ 1 & not ] is even ( n --> b )
[ nip 1 = ] is vint ( n --> b )
[ 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
quackery join
build nested join ] ] is parse$ ( $ --> [ )
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</lang>
program release
</lang>


{{out}}
{{out}}