ɥozɐʞıɥ

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

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

_ [Clojure] some

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

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

_ [生活] 散髪

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

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

_ よんよん

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

_ [CD][Music] Whatever People Say I Am Thats What I Am Notby Arctic Monkies

_ [CD][Music] Doolittleby Pixies

_ ひかぞー

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

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

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

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

_ [Clojure] CodeIQチャレンジ

Clojureで試してみましたが２問目の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)))))

_ 本日

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

_ [買物][本] 閉じられた環〈上〉 (講談社文庫)閉じられた環〈下〉 (講談社文庫)

ロバート=ゴダードを続けよみ。

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

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

_ [モフ太] 散歩

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

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

_ [Clojure] leiningen

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

wget --no-check-certificate 

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

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

_ [モフ太] 散歩

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

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

_ [Java][Clojure] 素数

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

 (import [java.math.BigInteger])
 (.isProbablePrime (BigInteger. "13") 10) 

_ [映画] バケモノの子

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

_ 梅雨明け

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

_ [買物][DVD][TV][生活] ONEST 9インチポータブル　リージョンフリー 地デジフルセグ＆ワンセグテレビ＆ＤＶＤプレーヤー（PPDF-920BK3）　【3m 車載 シガー ソケット用 電源 ケーブル 付】 高画質38万画素デジタル 液晶 採用！ 車載用 キット付き

相方への誕生日プレゼント

_ [買物][食事] バリラ No.5 スパゲッティー 5kg [並行輸入品]

5kgのパスタがあっちゅーまになくなる。この時買って以来。

_ [買物][本] 古代ギリシアがんちく図鑑

ひかぞーの宿題

_ [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に限る。