34 lines
639 B
Text
34 lines
639 B
Text
|
[ stack ] is seqbits ( --> s )
|
||
|
|
|
||
|
|
[ bit
|
||
|
|
seqbits take |
|
||
|
|
seqbits put ] is seqadd ( n --> )
|
||
|
|
|
||
|
|
[ bit
|
||
|
|
seqbits share & not ] is notinseq ( n --> b )
|
||
|
|
|
||
|
|
[ temp put
|
||
|
|
' [ 1 2 3 ]
|
||
|
|
7 seqbits put
|
||
|
|
4
|
||
|
|
[ dip
|
||
|
|
[ dup -1 peek
|
||
|
|
over -2 peek ]
|
||
|
|
dup dip
|
||
|
|
[ tuck gcd 1 !=
|
||
|
|
unrot gcd 1 =
|
||
|
|
and ]
|
||
|
|
swap if
|
||
|
|
[ dup dip join
|
||
|
|
seqadd
|
||
|
|
3 ]
|
||
|
|
[ 1+
|
||
|
|
dup notinseq until ]
|
||
|
|
over size temp share
|
||
|
|
< not until ]
|
||
|
|
drop
|
||
|
|
seqbits release
|
||
|
|
temp take split drop ] is yellowstones ( n --> [ )
|
||
|
|
|
||
|
|
30 yellowstones echo
|