Skip to content

Instantly share code, notes, and snippets.

View kurogelee's full-sized avatar

kurogelee

1 follower · 0 following
View GitHub Profile
@kurogelee
kurogelee / file1.txt
Created March 28, 2014 10:04
Clojureでzip関数を作ってみる ref: http://qiita.com/kurogelee/items/f8e22c230dd2b16110c7
(zipseq [1 2 3] [:a :b :c]) ; => ((1 :a) (2 :b) (3 :c))
(zipseq [1 2] [:a :b] [:c :d]) ; => ((1 :a :c) (2 :b :d))
@kurogelee
kurogelee / TrySample.java
Created March 29, 2014 03:44
ClojureでJava 7対応版のwith-open関数を作ってみる ref: http://qiita.com/kurogelee/items/dfb6c29bfec87ae6f744
package trysample;
public class TrySample {
public static void main(String[] args) throws Exception{
try(AutoCloseable a = () -> {throw new java.io.IOException("closeA");}){
throw new IllegalStateException("tryB");
}
}
}
@kurogelee
kurogelee / file1.txt
Created March 30, 2014 08:43
Clojureでランダムな文字列を生成してみる ref: http://qiita.com/kurogelee/items/e740d6251f87fb87b29b
user=> (range-size 50 5)
(50 51 52 53 54)
user=> (rand-str 20)
"195Tbl1nE8ME0QGEwJl7"
user=> (rand-str 20 "abc")
"cbabbbcabbbaaaabcaca"
@kurogelee
kurogelee / file1.txt
Created March 30, 2014 18:27
Clojureでfuzzy-getとsleep関数を作ってみる ref: http://qiita.com/kurogelee/items/847c7245cb8ef28bf607
user=> (def v {:abc 1 "aiu" 2})
user=> (fuzzy-get v 'ab)
1
user=> (fuzzy-get v :ai)
2
@kurogelee
kurogelee / file0.txt
Created March 31, 2014 12:01
プロキシ環境のCentOSにAnsibleをインストールする方法メモ ref: http://qiita.com/kurogelee/items/c20405ca4bef00d7b1bd
export http_proxy=http://
export https_proxy=https://
curl -O http://ftp.jaist.ac.jp/pub/Linux/Fedora/epel/6/i386/epel-release-6-8.noarch.rpm
rpm -ivh epel-*.rpm
yum install ansible
yum install openssh-clients
@kurogelee
kurogelee / file1.txt
Created March 31, 2014 18:17
Clojureでmapcatのfor版としてforcatを作る（＋おまけpapply） ref: http://qiita.com/kurogelee/items/c992d8fe15a21bdb5793
user=> (forcat [x (range 3) y [:a :b]] [x] [y])
(0 :a 0 :b 1 :a 1 :b 2 :a 2 :b)
@kurogelee
kurogelee / file0.txt
Created April 2, 2014 14:35
Clojureでreduceをbreakする方法 ref: http://qiita.com/kurogelee/items/be71b35d96b6e6b0660b
user=> (reduce #(if (< 9999 %1) (reduced %1) (* %1 %2)) (range 1 10000))
40320
@kurogelee
kurogelee / file1.txt
Created April 3, 2014 16:21
Clojureで正規表現での検索結果をマップに変換する ref: http://qiita.com/kurogelee/items/5f94c1a520129470516a
user=> (re-find #".\d(.)" "some1234abc")
["e12" "2"]
user=> (re-find->map #".\d(.)" "some1234abc" :1 :2)
{:1 "e12", :2 "2"}
@kurogelee
kurogelee / file0.txt
Created April 4, 2014 13:19
Clojureでオプションで場所指定可能なスレッディングマクロを作る ref: http://qiita.com/kurogelee/items/e23a205d6bc9cc26d0f2
(->> (range 10) (map -) (#(nth % 3)))
@kurogelee
kurogelee / file0.txt
Created April 4, 2014 15:02
Rで9×9掛け算表を表示する（ネタ） ref: http://qiita.com/kurogelee/items/73852c61e423dc1ae6eb
> 1:9 %*% t(1:9)
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9]
[1,] 1 2 3 4 5 6 7 8 9
[2,] 2 4 6 8 10 12 14 16 18
[3,] 3 6 9 12 15 18 21 24 27
[4,] 4 8 12 16 20 24 28 32 36
[5,] 5 10 15 20 25 30 35 40 45
[6,] 6 12 18 24 30 36 42 48 54
[7,] 7 14 21 28 35 42 49 56 63
[8,] 8 16 24 32 40 48 56 64 72