Anonymous user
Hailstone sequence: Difference between revisions
→{{header|Déjà Vu}}: Updates example, for Executable library
m (→{{header|Go}}: just a little more idiomatic) |
(→{{header|Déjà Vu}}: Updates example, for Executable library) |
||
Line 1,361:
}</lang>
=={{header|Déjà Vu}}==
<lang dejavu>local hailstone:
swap [ over ]
while < 1 dup:
Line 1,372:
swap push-through rot dup
drop
if = (name) :(main):
local :h27 hailstone 27
!. =
!. =
!. =
!. =
!. =
!. =
!. =
!. =
!. = 1 h27! 111
local :max 0▼
local :
for i range 1 99999:
set :
set :max i
else:▼
drop
!print( "number: " to-str max ", length: " to-str maxlen )
@hailstone</lang>
{{out}}
<pre>true
|