Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

for-all? is functional

  • Loading branch information...
commit 50fb2d8f84b403451f61c5ce276b615ff9099cde 1 parent fc8b56a
@mcandre authored
Showing with 4 additions and 1 deletion.
  1. +1 −1  example.factor
  2. +3 −0  factcheck.factor
View
2  example.factor
@@ -9,7 +9,7 @@ IN: example
: gen-even ( -- n ) gen-integer dup even? [ ] [ 1 + ] if ;
: main ( -- )
- prop-even [ gen-even ] for-all? .
+ [ prop-even ] [ gen-even ] for-all? .
! ...
;
View
3  factcheck.factor
@@ -1,3 +1,6 @@
+! Andrew Pennebaker <andrew.pennebaker@gmail.com>
+! With help from Joe Groff <arcata@gmail.com>
+
USING: kernel random math sequences strings fry prettyprint ;
IN: factcheck
Please sign in to comment.
Something went wrong with that request. Please try again.