Hailstone sequence: Difference between revisions
add BQN
m (→{{header|Haskell}}: Tidied) |
(add BQN) |
||
Line 1,725:
77031
351</pre>
=={{header|BQN}}==
Works in: [[CBQN]]
<lang bqn>Collatz ← ⥊⊸{
𝕨𝕊1: 𝕨;
(𝕨⊸∾ 𝕊 ⊢) (2|𝕩)⊑⟨𝕩÷2⋄1+3×𝕩⟩
}
Collatz1 ← ⌽∘{
1: ⟨1⟩;
𝕩∾˜𝕊(2|𝕩)⊑⟨𝕩÷2⋄1+3×𝕩⟩
}
•Show Collatz1 5
•Show (⊑∾≠){𝕩⊑˜⊑⍒≠¨𝕩}Collatz1¨1+↕99999</lang>
<lang bqn>⟨ 5 16 8 4 2 1 ⟩
⟨ 77031 351 ⟩</lang>
=={{header|Bracmat}}==
| |||