Bulls and cows: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,708: / Line 2,708: @@
 (define secret
   (foldr (λ (n result)
-           (cons n (map (λ (y) (if (>= y n)
+           (cons n (map (λ (y) (if (>= y n) (add1 y) y))
-                                   (add1 y)
-                                   y))
                         result)))
          '()