Hailstone sequence: Difference between revisions
Content added Content deleted
Line 9,281: | Line 9,281: | ||
{{out}} |
{{out}} |
||
<pre>{171,125}</pre> |
<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}}== |
=={{header|TXR}}== |