Count in octal: Difference between revisions
add BQN
(Added solution for EDSAC.) |
(add BQN) |
||
Line 963:
This is almost identical to the [[Binary digits#Befunge|Binary digits]] sample, except for the change of base and the source coming from a loop rather than a single input.
<lang befunge>:0\55+\:8%68>*#<+#8\#68#%/#8:_$>:#,_$1+:0`!#@_</lang>
=={{header|BQN}}==
<code>_while_</code> and <code>Oct</code> are snippets from [https://mlochbaum.github.io/bqncrate/ BQNcrate].
<lang bqn>_while_←{𝔽⍟𝔾∘𝔽_𝕣_𝔾∘𝔽⍟𝔾𝕩}
Oct←8{⌽𝕗|⌊∘÷⟜𝕗⍟(↕1+·⌊𝕗⋆⁼1⌈⊢)}
{•Show Oct 𝕩, 𝕩+1} _while_ 1 0 </lang>
=={{header|Bracmat}}==
| |||