jiro4989 · February 2, 2021 16:46
diff --git a/nabeatsu.clj b/nabeatsu.clj
 (require '[clojure.string :as str])

 (defn aho? [num]
  (or (zero? (mod num 3))
      (str/includes? (str num) "3")))

 (->> (range 1 100)
     (map #(if (aho? %)
             "アホ"
             (str %)))
     println)

 ; $ clojure nabeatsu.clj
 ; (1 2 アホ 4 5 アホ 7 8 アホ 10 11 アホ アホ 14 アホ 16 17 アホ 19 20
 ; アホ 22 アホ アホ 25 26 アホ 28 29 アホ アホ アホ アホ アホ アホ アホ アホ アホ アホ
 ; 40 41 アホ アホ 44 アホ 46 47 アホ 49 50 アホ 52 アホ アホ 55 56 アホ 58 59 アホ
 ; 61 62 アホ 64 65 アホ 67 68 アホ 70 71 アホ アホ 74 アホ 76 77 アホ 79 80
 ; アホ 82 アホ アホ 85 86 アホ 88 89 アホ 91 92 アホ 94 95 アホ 97 98 アホ)
	(require '[clojure.string :as str])

	(defn aho? [num]
	(or (zero? (mod num 3))
	(str/includes? (str num) "3")))

	(->> (range 1 100)
	(map #(if (aho? %)
	"アホ"
	(str %)))
	println)

	; $ clojure nabeatsu.clj
	; (1 2 アホ 4 5 アホ 7 8 アホ 10 11 アホアホ 14 アホ 16 17 アホ 19 20
	; アホ 22 アホアホ 25 26 アホ 28 29 アホアホアホアホアホアホアホアホアホアホ
	; 40 41 アホアホ 44 アホ 46 47 アホ 49 50 アホ 52 アホアホ 55 56 アホ 58 59 アホ
	; 61 62 アホ 64 65 アホ 67 68 アホ 70 71 アホアホ 74 アホ 76 77 アホ 79 80
	; アホ 82 アホアホ 85 86 アホ 88 89 アホ 91 92 アホ 94 95 アホ 97 98 アホ)