8 lines
170 B
Text
8 lines
170 B
Text
[$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;.
|