Munchausen numbers: Difference between revisions
Add FOCAL
Drkameleon (talk | contribs) (Undo revision 324734 by Drkameleon (talk)) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 951:
<pre>1
3435</pre>
=={{header|FOCAL}}==
<lang FOCAL>01.10 F N=1,5000;D 2
02.10 S M=N;S S=0
02.20 S D=M-FITR(M/10)*10
02.25 S S=S+D^D
02.30 S M=FITR(M/10)
02.40 I (M),2.5,2.2
02.50 I (N-S)2.7,2.6,2.7
02.60 T %4,N,!
02.70 R</lang>
{{out}}
<pre>= 1
= 3435</pre>
=={{header|Forth}}==
|