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))) + + +