Munchausen numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,010: / Line 1,010: @@
 			for l = 0 to 5
-				let s = i
+				let m = int(i ^ i * sgn(i))
+				let m = m + int(j ^ j * sgn(j))
-				gosub sign
-				let m = int(i ^ i * s)
+				let m = m + int(k ^ k * sgn(k))
+				let m = m + int(l ^ l * sgn(l))
-				let s = j
-				gosub sign
-				let m = m + int(j ^ j * s)
-				let s = k
-				gosub sign
-				let m = m + int(k ^ k * s)
-				let s = l
-				gosub sign
-				let m = m + int(l ^ l * s)
 				let n = 1000 * i + 100 * j + 10 * k + l
@@ Line 1,033: / Line 1,022: @@
 				endif
 				wait
@@ Line 1,044: / Line 1,033: @@
 next i
+end</syntaxhighlight>
-end
-sub sign
-	if s <> 0 then
-		if s < 0 then
-			let s = -1
-		else
-			let s = 1
-		endif
-	endif
-return</syntaxhighlight>
 =={{header|D}}==