Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,10 +1,10 @@
|
|||
hailstone: function [n][
|
||||
ret: @[n]
|
||||
while [n>1][
|
||||
if? 1 = and n 1 -> n: 1+3*n
|
||||
else -> n: n/2
|
||||
switch 1 = and n 1 -> n: 1+3*n
|
||||
-> n: n/2
|
||||
|
||||
'ret ++ n
|
||||
append 'ret n
|
||||
]
|
||||
ret
|
||||
]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue