Munchausen numbers: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) (Undo revision 324734 by Drkameleon (talk)) |
Not a robot (talk | contribs) (Add FOCAL) |
||
| Line 951: | Line 951: | ||
<pre>1 |
<pre>1 |
||
3435</pre> |
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}}== |
=={{header|Forth}}== |
||