KingCode
KingCode
/ gist:101ff425f1abd9693a7e8c4b5d389e74
Created
October 20, 2016 03:50
clojure.spec usage where instrumenting a function seems to cause exercise-fn to generate non-compliant input?? See line 61 below
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (require '[clojure.spec :as s] | |
| '[clojure.spec.test :as stest]) | |
| (defn fizzbuzz | |
| ([m1 m2 n] | |
| (let [ c #(->> % vector (concat (-> %2 dec (repeat nil))) cycle) | |
| fb-re #"Fizz|Buzz|FizzBuzz"] | |
| (->> [(c "Fizz" m1), (c "Buzz" m2)] | |
| (apply map | |
| (fn [i m1 m2] |
KingCode
/ gist:17f56029834d47b4ffc47b8c4859f995
Created
October 17, 2016 02:53
Unconditional FizzBuzz using a regex, for any multiples m1 (the fizz) < m2 (the buzz), m1 > 1 assumed
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defn fizzbuzz | |
| ([m1 m2 n] | |
| (let [ c #(->> % vector (concat (-> %2 dec (repeat nil))) cycle) | |
| fb-re #"Fizz|Buzz|FizzBuzz"] | |
| (->> [(c "Fizz" m1), (c "Buzz" m2)] | |
| (apply map | |
| (fn [i m1 m2] | |
| (or (re-matches fb-re (str m1 m2)) | |
| i)) | |
| (range 1 (inc n)))))) |
NewerOlder