最新 追記

ひかぞぉ


2015-07-01 ちょっと頭の体操 [長年日記]

_ [買物][映画] 機動戦士ガンダム THE ORIGIN II [DVD]

ずいぶん先だが予約した。

_ [Clojure] some

こんな使い方ができるのね。ちょっと速くなったがまだまだ

(some #{:a} '(:a :b :c))


2015-07-05 梅雨 [長年日記]

_ [生活] 散髪

ちょっと皮膚炎をおこしているので控えめ。

前回の予告通りでした。次は9月前半を予定。

_ よんよん

午前中世界遺産検定4Qの受験。午後は模試。

_ [CD][Music] Doolittleby Pixies

_ ひかぞー

英検4Q合格。おめでとー。英語を勉強する理由がわからないといいながらも頑張っております。

_ [買物][CD][Music] SOUNDLOOK シャワーCDラジオ ピンク SAD-4308/P

ひかぞー4Q合格記念です。

CDプレイヤーはこの時に買ったプレイヤーが壊れてしまいました。4年半もったなら大したものだ。


2015-07-06 まだまだこれから [長年日記]

_ [Clojure] CodeIQチャレンジ

Clojureで試してみましたが2問目の5000行は返ってきません。mklstとcountmatch両方遅いのは判っているのですがうまく出来ませんでした。twitterで励ましていただいたのですがまだまだこれから試してみたいのです。threadを分けても考えましたが時間切れでした。まぁ問題のデータも持っているのでこれからじっくり隙を見てやってみます。

(use 'clojure.java.io)

(def lst (with-open [rdr (reader *in*)]

(doall

(concat () (line-seq rdr)))))

(def lst (map #(Integer/parseInt %) lst))

(def m (first lst))

(def lst (nthnext lst 2))

(defn mklst[m lst]

(map #(- m %)

(reverse

(drop-last

(reduce #(conj %1 (+ (last %1) %2) )

(list (first lst)) (next lst) )))))

(defn countmatch[m lst]

(reduce

#(if

(some #{(second %2)}

(nthnext lst (+ 2 (first %2))))

(inc %1) %1)

0

(partition 2 (interleave (range) (mklst m lst)))))

(println (loop [r 0 l lst]

(if (= 1 (count l)) r

(recur (+ r (countmatch m l)) (next l)))))


2015-07-12 バテバテ [長年日記]

_ 本日

朝から暑いなぁ。この日に買ったクーラーが大活躍。

_ [CD][Music] 1000 Forms of Fearby SIA

顔見世しないMusician。1曲目はずいぶん流行りました。

_ [モフ太] 散歩

モフ太散歩
モフ太散歩 posted by (C)ひかぞぉ

ようやく晴れたと思ったらいきなり暑い。ので、早朝と夕方です。

_ [Clojure] leiningen

どうもWindowsは失敗するので調べました。

wget --no-check-certificate

をいれれば良いそうです。以前はpowershellで乗り切った記憶があるのだがメモをなくした

viaCannot verify raw.github.com’s certificate. · Issue #1902 · technomancy/leiningen · GitHub


2015-07-18 台風一過 [長年日記]

_ [モフ太] 散歩

台風があったりで久しぶり。

モフ太散歩
モフ太散歩 posted by (C)ひかぞぉ

_ [Java][Clojure] 素数

java.math.BigIntegerでisProbablePrimeで何となく出来そう。certintyにどこまで入れるかですな。エラトステネスの篩 - Wikipediaのロジック使っているのだろうかな。 Clojureなら
 (import [java.math.BigInteger])
 (.isProbablePrime (BigInteger. "13") 10) 

2015-07-19 バケモノの子 [長年日記]

_ [映画] バケモノの子

観てきました。細田守さんの作品は家族で安心して観ることができます。内容も本当に良かった。ちゃんと映画館で観たい映画です。オススメ。

_ 梅雨明け

先日の台風が梅雨前線をおいやった感じだ。


2015-07-20 海の日 [長年日記]


2015-07-25 明日から罰ゲーム [長年日記]

_ [Ruby][Rails] Rails技術者認定試験運営委員会 | 体系立てた学習の総チェックにいかがですか?Rails4 Bronzeβ試験

合格。70%とギリギリでした。合格率は50%を切っていたそうです。うれしい。

Ruby on Rails 4アプリケーションプログラミングRuby on Rails チュートリアル:実例を使って Rails を学ぼうをひと通り目を通しておけば大丈夫です。次は目指せシルバーです。

ClojureもやりながらもRoRでもちゃんとコードを書き続けるようにしておきたい。本業ではJavaとC#ばかりなのですけどね。

_ [生活] 株主優待

届きました。

株主優待
株主優待 posted by (C)ひかぞぉ

_ [買物][PC] マイクロソフト ワイヤレス ブルートラック マウス Wireless Mobile Mouse 3500 シャイニーブラック GMF-00297

iMacで使っていたMouseが壊れたので代替です。MouseはMicrosoftに限る。



2002|09|10|11|12|
2003|01|02|03|04|05|06|07|08|09|10|11|12|
2004|01|02|03|04|05|06|07|08|09|10|11|12|
2005|01|02|03|04|05|06|07|08|09|10|11|12|
2006|01|02|03|04|05|06|07|08|09|10|11|12|
2007|01|02|03|04|05|06|07|08|09|10|11|12|
2008|01|02|03|04|05|06|07|08|09|10|11|12|
2009|01|02|03|04|05|06|07|08|09|10|11|12|
2010|01|02|03|04|05|06|07|08|09|10|11|12|
2011|01|02|03|04|05|06|07|08|09|10|11|12|
2012|01|02|03|04|05|06|07|08|09|10|11|12|
2013|01|02|03|04|05|06|07|08|09|10|11|12|
2014|01|02|03|04|05|06|07|08|09|10|11|12|
2015|01|02|03|04|05|06|07|08|09|10|11|12|
2016|01|02|03|04|05|06|07|08|09|10|11|12|
2017|01|02|03|
最新 追記