Munchausen numbers: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add COBOL) |
Not a robot (talk | contribs) (Add BQN) |
||
Line 594: | Line 594: | ||
<pre> 1 |
<pre> 1 |
||
3435</pre> |
3435</pre> |
||
=={{header|BQN}}== |
|||
<lang bqn>Dgts ← (↕10˙)⊐•Fmt-'0'˙ |
|||
IsMnch ← ⊢=+´∘(⋆˜ Dgts) |
|||
IsMnch¨⊸/ 1+↕5000</lang> |
|||
{{out}} |
|||
<pre>⟨ 1 3435 ⟩</pre> |
|||
=={{header|C}}== |
=={{header|C}}== |