Munchausen numbers: Difference between revisions

← Older edit Newer edit →

Content deleted Content added

Inline

@@ Line 703: / Line 703: @@
 The option to show Fōrmulæ programs and their results is showing images. Unfortunately images cannot be uploaded in Rosetta Code.
+=={{header|Forth}}==
+{{works with|GNU Forth|0.7.0}}
+<lang forth>
+ : dig.num                                       \ returns input number and the number of its digits ( n -- n n1 )
+	 dup
+swap
+     begin
+	 swap 1 + swap
+	 dup 10 >= while
+/
+     repeat
+	 drop ;
+ : to.self                                        \ returns input number raised to the power of itself ( n -- n^n  )
+	 dup 1 = if drop 1 else                   \ positive numbers only, zero and negative returns zero
+	 dup 0 <= if drop 0 else
+	 dup
+do
+	 dup
+	 loop
+	 dup
+do
+	 *
+         loop
+	 then then ;
+ : ten.to			                    \ ( n -- 10^n ) returns 1 for zero and negative
+	 dup 0 <= if drop 1 else
+	 dup 1 = if drop 10 else
+swap
+do
+*
+         loop then then ;
+ : zero.divmod                                       \ /mod that returns zero if number is zero
+	  dup
+= if drop 0
+          else /mod
+	  then ;
+ : split.div                                         \ returns input number and its digits ( n -- n n1 n2 n3....)
+	  dup 10 < if dup 0 else		     \ duplicates single digit numbers adds 0 for add.pow
+	  dig.num			             \ provides number of digits
+	  swap dup rot dup 1 - ten.to swap           \ stack juggling, ten raised to number of digits - 1...
+do                                       \ ... is the needed divisor, counter on top and ...
+	  dup rot swap zero.divmod swap rot 10 /     \ ...division loop
+          loop drop then ;
+ : add.pow	  				     \ raises each number on the stack except last one to ...
+	  to.self                                    \ ...the power of itself and adds them
+	  depth					     \ needs at least 3 numbers on the stack
+do
+	  swap to.self +
+          loop ;
+ : check.num
+	 split.div add.pow ;
+ : munch.num                                         \ ( n -- ) displays Munchausen numbers between 1 and n
++
+	 page
+do
+         i check.num = if i . cr
+         then loop ;
+</lang>
+{{out}}
+<pre>
+ ok
+</pre>
 =={{header|Fortran}}==