move if-zero etc to math, remove 1-/1+ from math

[factor.git] / extra / project-euler / 055 / 055.factor

diff --git a/extra/project-euler/055/055.factor b/extra/project-euler/055/055.factor
index 07525fe6a49fdfaee5940b219b2ecbc060af2907..09663d241fea5b13a467e0f72fd304faa96d9e7f 100644 (file)
--- a/extra/project-euler/055/055.factor
+++ b/extra/project-euler/055/055.factor
@@ -50,7 +50,7 @@ IN: project-euler.055
 : (lychrel?) ( n iteration -- ? )
     dup 50 < [
         [ add-reverse ] dip over palindrome?
-        [ 2drop f ] [ 1+ (lychrel?) ] if
+        [ 2drop f ] [ 1 + (lychrel?) ] if
     ] [
         2drop t
     ] if ;