Bulls and cows: Difference between revisions

Content added Content deleted
Line 2,707:
; secret : (listof exact-nonnegative-integer?)
(define secret
(foldr (λ (n result) (cons n
(cons n (map (λ (y) (if (>= y n)
(add1 y)
y))
result)))
'()
(map random '(10 9 8 7))))
Retrieved from "https://rosettacode.org/wiki/Bulls_and_cows"