Anonymous user
Hailstone sequence: Difference between revisions
FALSE
(hailstone in ocaml) |
(FALSE) |
||
Line 72:
{:num i, :len (count (hailstone-seq i))}))]
(println "Maximum length" max-len "was found for hailstone(" max-i ")."))</lang>
=={{header|FALSE}}==
<lang false>[$1&$[%3*1+0~]?~[2/]?]n:
[[$." "$1>][n;!]#%]s:
[1\[$1>][\1+\n;!]#%]c:
27s;! 27c;!."
"
0m:0f:
1[$100000\>][$c;!$m;>[m:$f:0]?%1+]#%
f;." has hailstone sequence length "m;.</lang>
=={{header|Forth}}==
Line 93 ⟶ 103:
100000 longest-hail</lang>
=={{header|Java}}==
{{works with|Java|1.5+}}
| |||