Yellowstone sequence: Difference between revisions
→{{header|PicoLisp}}
(Rust - added link to output image) |
|||
Line 786:
IupMainLoop()
IupClose()</lang>
=={{header|Phixmonti}}==
{{trans|Ruby}}Require Utilitys library version 1.3
<lang Phixmonti>include ..\Utilitys.pmt
def gcd /# u v -- n #/
abs int swap abs int swap
dup
while
over over mod rot drop dup
endwhile
drop
enddef
def test enddef
def yellow var n
( 1 2 3 ) var a
newd ( 1 true ) setd ( 2 true ) setd ( 3 true ) setd var b
4 var i
test
while
b i getd "Unfound" == >ps
a -1 get >ps -2 get
i gcd 1 > ps> i gcd 1 == ps>
and and if
i 0 put var a
( i true ) setd var b
4 var i
else
drop drop
endif
i 1 + var i
test
endwhile
a
enddef
def test n a len nip > enddef
"The first 30 entries of the Yellowstone permutation:" ? 30 yellow ?</lang>
{{out}}
<pre>The first 30 entries of the Yellowstone permutation:
[1, 2, 3, 4, 9, 8, 15, 14, 5, 6, 25, 12, 35, 16, 7, 10, 21, 20, 27, 22, 39, 11, 13, 33, 26, 45, 28, 51, 32, 17]
=== Press any key to exit ===</pre>
=={{header|PicoLisp}}==
| |||