syou6162

sequence関係のユーティリティ関数で自分がよく知らないものをまとめておく。

map-indexed

昔はindexedっていうそのまんまな関数があったけど、1.3くらいからなくなっていた。今はmap-indexedっていう関数を使う。よく使うのはこんな感じの使い方。

(map-indexed #(vector %1 %2) ["a" "b" "c" "d" "e"])
; ([0 "a"] [1 "b"] [2 "c"] [3 "d"] [4 "e"])

reductions

syou6162

メモリ

• tnoda-clojure • Crunching Numbers with Clojure - 11 Tips to Boost Your Performance
• clojurewest2012-slides/Solano-Gómez-Crunching-Numbers-with-Clojure.pdf at master · strangeloop/clojurewest2012-slides · GitHub

個人的にはコレクションと配列との使用メモリ量比較が参考になりました．1M 個の long を格納するとして，vector だと 30MB, vector-of だと 9MB, 配列だと 8MB というのは覚えておいて損は無さそうです．案外 vector はメモリを食いません．

メモリ消費量を測定する用のマクロ

(defn current-total-memory-usage []

syou6162

Jarkの使い方メモ

Clojureにはleiningenという便利なツールがありますが

• 小さなスクリプト的な使い方をしたい
• テストを小まめに走らせたい

などのときにlein自体の起動(というかjvmの起動)の遅さが気になってきます。どうにかしたいと思って調べていったところ、jarkというのが便利そうだったので、使い方を調べてみることにしました。

というか本家のほうでtest/script.clj --foo "a" --bar "b"という感じで動かせると書いてあるんですが、これだといくら頑張っても動かなかった。。。それとjark ns load XXX.cljもダメでした。なんでだろう。。。

syou6162

Common Lispの関数

• rickhall2000/OnLisp

dolist

(dolist (var init-form result) Ｓ式 ... )

dolist は名前が示すように、リストに関係があります。最初に init-form を評価します。このとき、評価結果はリストでなければいけません。リスト以外の場合はエラーとなります。dolist は、このリストの要素を順番に変数 var に代入して S 式を評価します。リストの要素がなくなったら result を評価し、その値が dolist の返り値になります。次の例を見てください。

syou6162

;; Clojureでのhashcodeの例

(hash "hoge") ; 3208229
;; clojureのvectorはよい
(hash [1 2 3]) ; 30817
;; javaの配列は毎回hashcodeが変わってしまうので注意
(hash (int-array [1 2 3])) ; 1628598432
(hash (int-array [1 2 3])) ; 1172445666

;; feature hashingの例

syou6162

(import edu.stanford.nlp.trees.PennTreeReader)

(let [filename "/Users/yasuhisa/Desktop/PENN_TREEBANK3/PARSED/MRG/WSJ/00/WSJ_0001.MRG"]
  (with-open [rdr (clojure.java.io/reader filename)]
    (let [ptr (new PennTreeReader rdr)
          trees (loop [result []]
                  (if-let [t (.readTree ptr)]
                    (recur (conj result t))
                    result))]
      (for [^LabeledScoredTreeNode t trees]

syou6162

#_(defdeps
    [[org.clojure/clojure "1.5.1"]
     [info.yasuhisay/clj-utils "0.1.1"]
     [org.clojure/tools.cli "0.2.1"]])

(ns info.yasuhisay.dep-util
  (:use [clojure.string :only (split)])
  (:use [clj-utils.random :only (shuffle-with-random)])
  (:require [clojure.tools.cli :as cli]))

syou6162

test

syou6162

syou6162

test