Hailstone sequence: Difference between revisions
→Add Transd
Line 9,281:
{{out}}
<pre>{171,125}</pre>
=={{header|Transd}}==
{{trans|Python}}
<lang scheme>#lang transd
MainModule: {
hailstone: (λ n Int()
(with seq Vector<Int>([n])
(while (> n 1)
(= n (if (mod n 2) (+ (* 3 n) 1)
else (/ n 2)))
(append seq n)
)
(ret seq)
)
),
_start: (λ
(with h (hailstone 27) l 0 n 0 t 0
(lout "Length of (27): " (size h))
(lout "First 4 of (27): " Range(in: h 0 4))
(lout "Last 4 of (27): " Range(in: h -4 -0))
(for i in Range(100000) do
(= t (size (hailstone (to-Int i)))) (if (> t l) (= l t) (= n i))
)
(lout "For n < 100.000 the max. sequence length is " l " for " n)
)
)
}</lang>{{out}}
<pre>
Length of (27): 112
First 4 of (27): [27, 82, 41, 124]
Last 4 of (27): [8, 4, 2, 1]
For n < 100.000 the max. sequence length is 119 for 97
</pre>
=={{header|TXR}}==
| |||