Simplifying lines

cbowdon · Mar 14, 2012 · f84ab8a · f84ab8a
1 parent 004c9cc
commit f84ab8a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 10 deletions.
diff --git a/fannkuch-redux-test.rkt b/fannkuch-redux-test.rkt
@@ -33,11 +33,6 @@
   (call-with-input-file "fannkuch-redux-permutations.txt"
     parse-example-file))
 
-
-(require profile)
-
-(profile-thunk (λ () (for-each fannkuch permutations)))
-
 (test-case
  "flipping works"
  (check-equal? (map (λ (x) (car (fannkuch x))) input) output))
@@ -47,7 +42,8 @@
  (check-equal? (fannkuch-checksum permutations) 228))
 
 
-
+(require profile)
+(profile-thunk (λ () (fannkuch-checksum permutations)))
 
 
 
diff --git a/fannkuch-redux.rkt b/fannkuch-redux.rkt
@@ -28,8 +28,5 @@
   (define (fc-iter loi sum index)
     (if [null? loi]
         sum
-        (let ([count (cdr (fannkuch (car loi)))])
-          (if [even? index]              
-              (fc-iter (cdr loi) (+ sum count) (add1 index))
-              (fc-iter (cdr loi) (- sum count) (add1 index))))))
+        (fc-iter (cdr loi) ((if (even? index) + -) sum (cdr (fannkuch (car loi)))) (add1 index))))          
   (fc-iter listofinput 0 0))