(define -ayalog '())

括弧に魅せられて道を外した名前のないプログラマ

stackoverflow

どうやってベクターのネストを削除したらいい?

How to remove nested clojure vectorstackoverflow.com久しぶりにこういうの書く*1。さて、質問ですが ([[AA ww me bl qw 100] [AA ee rr aa aa 100] [AA qq rr aa aa 90]] [[CC ww me bl qw 100] [CC ee rr aa aa 67]]) このようなデータ構造を持っている…

(Boolean. false) の Clojure での扱い

(Boolean. false) in ClojureLisp: Common Lisp, Racket, Clojure, Emacs Lisp - Hyperpolyglot にあるように Clojure の中で false として扱われるのは nil と false それ自身だけ。驚くことに全くもってその通りで、 (Boolean. false) は false じゃないん…

(println (iterate inc 0)) は何故出力されるのか

(println (iterate inc 0)): why does this even start printing?質問者の (println (iterate inc 0)) を実行したときの期待値は、何も表示されることなく延々とスタックを貯め続けることだったみたいですが、そうではなくてこのコードは次のように延々と出…

gen-class を使ったときにどうやってインスタンスを取得したらいい?

How do I get the instance of the class when using gen-class毎日 StackOverflow は見てるんですが、まさか @tnoda_ さんが回答者として出てくるとは思わなかった。gen-class 使って出来るクラスのインスタンスメソッドの中で "this" にアクセスしたいんだ…

どうやって数字を分割する?

How to split a number in Clojure?質問者 Geem7n は効率的でない書き方なら出来るんだけど、効率の良い数字を分割する方法を知りたいとのこと。 (->> (str 942) seq (map str) (map read-string)) ;=> (9 4 2) ;; and (defn digits [n] ;YUK!! (cons (str (…

関数リストを適用する方法

Apply a list of function to parameter, clojurestackoverflow.com以下のように関数のリストを作って map で適用しようとすると 5 のリストが返ってきてしまう。 (def ops '(+ - * /)) (map #(% 2 5) ops) ;=> (5 5 5 5) なんで関数呼び出ししてるはずなの…

どのようにすればプログラムでレコードを定義できる?

How can I programmatically generate record definitions?stackoverflow.comこれ、答えはすっと出て朝から回答しようと思ったけど、電車に乗ってる間に先を越されてしょぼんしています。 ただ、僕よりずっといい答えが書かれているのでさくっと書いてみます…

どうやって lazy なエラトステネスの篩を実装したらいいの?

How to make this sieve function lazy?先日僕も似たような実装しようとしてハマったのを思い出しました。 回答には「本物のエラトステネスの篩 *1」という論文があるので参考にするといいと書いてあります。 また、それについての綺麗な実装もあるので参照…

Clojure で循環参照するような関数定義

Circular definition in Clojure (defn f1 [] (lazy-seq (cons 0 (f2)))) (defn f2 [] (lazy-seq (cons 1 (f3)))) (defn f3 [] (lazy-seq (cons 2 (f1)))) こうすると f1 の評価タイミングで f2 が存在しないのでコンパイラがエラーを吐くんだけどどうしたら…

1,000,000 回 assoc! を transient な map に行ったけど、 8 個しか値が入っていないのは何故?

Why inserting 1000 000 values in a transient map in Clojure yields a map with 8 items in it?興味深かった。ベクターに対して同様のことを行った場合は期待通りに動くけど、マップに対してだと動かないという例。 (count (let [m (transient [])] (doti…

Clojure で分割した行の全ての空行を保持したいんだけど…

Clojure split lines with all empty lines kept文字列中の最後の空行を Clojure だとどうやって残したらいいの?という質問。 user=> (require 'clojure.string) nil user=> (clojure.string/split-lines "a\n\nb\n") ["a" "" "b"] user=> (clojure.string/s…

何故 do ステートメントがグルーピングするのに必要なの?

Clojure - why is the "do" statement necessary for grouping?まぁそうなるよね、という例。 (defn x [] (if true (do (println "a") (println "b")))) => (x) a b nil do を使えば正常に動くけど、 do を抜かすと… (defn x [] (if true ((println "a") (pr…

(gensym) はユニークになるのに、 `(symb#) はユニークにならないのは何故?

(gensym) is always unique, `(symb#) is not -- why?初見だと僕も見事に引っかかった。 (defmacro indirection [name & body] `(do (def name# ~@body) (defn ~name [] name#))) このマクロは一度しか展開されないので、実行する度にいちいち展開されて nam…