shen/release/test_programs/prime.shen in shen-ruby-0.12.1 vs shen/release/test_programs/prime.shen in shen-ruby-0.13.0
- old
+ new
@@ -1,10 +1,10 @@
-(define prime?
- X -> (prime* X (/ X 2) 2))
-
-(define prime*
- X Max Div -> false where (integer? (/ X Div))
- X Max Div -> true where (> Div Max)
- X Max Div -> (prime* X Max (+ 1 Div)))
-
-
-
+(define prime?
+ X -> (prime* X (/ X 2) 2))
+
+(define prime*
+ X Max Div -> false where (integer? (/ X Div))
+ X Max Div -> true where (> Div Max)
+ X Max Div -> (prime* X Max (+ 1 Div)))
+
+
+