Jump to content

Munchausen numbers: Difference between revisions

Add FOCAL
(Undo revision 324734 by Drkameleon (talk))
(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}}==
2,114

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.