PasteRack.org
Paste # 72792
2017-06-23 03:29:00

Fork as a new paste.

Paste viewed 53 times.


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]