PasteRack.org | ||
Paste # 72792 | ||
2017-06-23 03:29:00 | ||
Fork as a new paste. | ||
Paste viewed 53 times. | ||
Tweet | ||
Embed: | ||
#lang curly-fn racket (require data/collection math/number-theory) (define fizzbuzz1 (match-lambda [(? #{divides? 15}) "FizzBuzz"] [(? #{divides? 5}) "Buzz"] [(? #{divides? 3}) "Fizz"] [n (~a n)])) (define fizzbuzz (map fizzbuzz1 (naturals 1))) (module+ test (require rackunit) (check-equal? (sequence->list (take 5 fizzbuzz)) '("1" "2" "Fizz" "4" "Buzz"))) (module+ main (for-each displayln fizzbuzz))
=>
standard-module-name-resolver: collection not found for module path: (submod curly-fn reader) collection: "curly-fn" in collection directories: /home/pasterack/.racket/6.8/collects /home/pasterack/racket68/collects ... [161 additional linked and package directories] context...: show-collection-err standard-module-name-resolver /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code15 /home/pasterack/pasterack/tmp/72792/72792code.scrbl: [running body] loop ...cket/cmdline.rkt:179:51 /home/pasterack/racket68/share/pkgs/scribble-lib/scribble/run.rkt: [running body]