最新 追記

ToDo:

  • 99 深呼吸して、おちけつ (~12/31 あと287日)
  • 98 毎日アウトプットを重きにおいた目標をたてる (~12/31 あと287日)
  • 97 買物は行動を変えるもの・ことに限る (~12/31 あと287日)
  • 96 合理的な行動はときに我慢を強いる(~12/31 あと287日)

ɥozɐʞıɥ


2017-06-02 Clojureでcore.async [長年日記]

_ [Clojure] core.async

少しだけ時間が取れ始めたのでお勉強です。Clojureは面白い。

(defproject async "0.1.0-SNAPSHOT"

:description "FIXME: write description"

:url "http://example.com/FIXME"

:main async.core

:aot [async.core]

:license {:name "Eclipse Public License"

:url "http://www.eclipse.org/legal/epl-v10.html"}

:dependencies [[org.clojure/clojure "1.8.0"]

[org.clojure/core.async "0.3.443"]])

でcore.asyncを依存関係に入れちゃいます。

goマクロのbodyのみ>!や<!のシングルビックリマーク!使えるようです。

なのでgoマクロから呼ばれた関数でもNGでした。

ブロックするのでmainはダブル吃驚マーク!!です。

(ns async.core

(:require [clojure.core.async

:as a

:refer [>! <! >!! <!! go chan buffer close! thread

alts! alts!! timeout]])

(:gen-class))

(defn go01[ch]

(go

(println "Start 01")

(loop [i 0]

(Thread/sleep 100)

(println "Going 01!")

(if (< i 10)

(recur (inc i))

(>! ch "01")))))

(defn go02[ch]

(go

(println "Start 02")

(loop [i 0]

(Thread/sleep 50)

(println "Going 02")

(if (< i 10)

(recur (inc i))

(>! ch "02")))))

(defn -main[& args]

(let [ch (chan 2)]

(go01 ch)

(go02 ch)

(println (<!! ch))

(println (<!! ch))))

_ [買物][] ブラウン神父の童心

古典的な推理小説が面白いのです。


2017-06-03 運動会 [長年日記]

_ [モフ太] 朝散歩

昨夜は素面で帰宅してアルコールもいれなかった。*1

今朝はいいかんじですね。

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ

*1 先日呑み過ぎたってことぢゃ

_ よんよん運動会

ちょっとだけ観てきました。暑かった。

よんよんは駆けっこ2番だった

_ [食事] 磯丸水産

相方がまだ入ったこと無いってんでランチです。

昼ごはん
昼ごはん posted by (C)ひかぞぉ

_ [モフ太]夕方散歩

涼しい

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ


2017-06-04 呑んだ [長年日記]

_ 昨夜

久しぶりに呑んだ。

_ [モフ太] 朝散歩

昨夜呑みだったので今朝起きるのがツラかった

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ

_ 我家の庭

ようやく芝を敷きました。鍬を買ってきて耕しました。

芝生を敷きました
芝生を敷きました posted by (C)ひかぞぉ

_ [Clojure] timeout

timeoutを設定するとchannelが戻ってくるんですね。timeoutしたらeventがとんできます。
 (ns asynctimeout.core
  (:require [clojure.core.async
             :as a
             :refer [<!! timeout go]])
  (:gen-class))
 (defn bigjob[]
  (loop [i  0]
    (Thread/sleep 100)
    (println "loop=" i)
    (recur (inc i))))
 (defn -main[& args]
  (let [t (timeout 1000)]
    (go (bigjob))
    (<!! t)
    (println "Timeout"))) 

_ [買物][生活] 難消化性デキストリン(水溶性食物繊維)400g(微顆粒品)

先日から続けてです。継続してみて様子を観るのだー。運動による努力はもう無理!


2017-06-05 ゲリラ豪雨 [長年日記]

_ ゲリラ豪雨

帰りにやられた~

_ [Clojure] thread

threadを呼び出すと戻り値がchannelになってくれる。そのあたりがfutureとは違うようだ。

loopをforで最初作ってなぜかbig jobに入らず悩む。forだとlazy sequenceを生ずるのだよね。

(ns asyncthread.core

(:require [clojure.core.async

:as a

:refer [thread <!!]])

(:gen-class))

(defn threading[]

(loop[i 0]

(Thread/sleep 100)

(println "threading")

(if (< i 10)

(recur (inc i))

"Terminate")))

(defn -main[& args]

(let [c (thread (threading))]

(loop [i 0]

(do

(println "main" i)

(Thread/sleep 20))

(when (< i 10)

(recur (inc i))))

(println (<!! c))))

明日からはClojure - Transducersだな。


2017-06-06 ダミアンの誕生日 [長年日記]

_ [買物][]藤原和博の必ず食える1%の人になる方法

ひかぞーの学校宿題図書です。


2017-06-07 Two You [長年日記]

_ Two You

昨年より2日より遅め

_ [買物][][Git]Gitによるバージョン管理

GitとGit Flowをしっかり勉強しなければならないのだ。


2017-06-10 Too Youはどこ? [長年日記]

_ [モフ太] 朝散歩

仕事忙しすぎで終電すぎた。流石におきるのが遅かった

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ

_ [食事][] 讃岐釜揚げうどん 丸亀製麺

ひかぞーが饂飩を食べたいってことで

昼ごはん
昼ごはん posted by (C)ひかぞぉ

久しぶりです。

_ [買物] お花

レモンスライスあたりは好みです。

今日の戦利品
今日の戦利品 posted by (C)ひかぞぉ

_ [買物][]シャドー81

名作です。積読を増やし続けております。


2017-06-11 明日はひかぞーの誕生日 [長年日記]

_ [モフ太] 朝散歩

涼しい

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ

散歩途中の紫陽花

さんぽ
さんぽ posted by (C)ひかぞぉ

_ [モフ太]夕方散歩

夕方は涼しい。

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ


2017-06-12 ひかぞー誕生日 [長年日記]

_ ひかぞー

誕生日。

_ [買物][生活]スミラブ発泡錠 6g×30錠 不快害虫用殺虫剤

蚊が多くなる前に準備です。


2017-06-14 仕事が大変 [長年日記]

_ [買物][]坂の上の雲(七)

この日六巻を読んでいらい。


2017-06-15 ヘロヘロ [長年日記]

_ 昨夜

会社PCのUpdateと仕事資料作成で27時まで営業して、5時には起床した。キツい

_ [買物][][Python]Ansible実践ガイド

Ansible is Simple IT Automation仕事で使うんですよ。いまならKindleで半額


2017-06-17 あしたは8の日 [長年日記]

_ [食事][] 和歌山ラーメン

近所の和歌山ラーメンで昼ごはんです。

昼ごはん
昼ごはん posted by (C)ひかぞぉ

_ [モフ太] 夕方散歩

朝はひかぞーが連れてくれましたので夕方のみです。

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ

_ [買物][]担当になったら知っておきたい「プロジェクトマネジメント」実践講座

PM本だけは買うのをためらったのですがこれが良さそうなので買ってみました。


2017-06-18 ひかぞー発表会 [長年日記]

_ [モフ太] 朝散歩

いい感じです

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ

先週とは違う場所でも紫陽花が綺麗に咲いております

さんぽ
さんぽ posted by (C)ひかぞぉ

_ [買物][PC] エレコム ワイヤレスマウス 3ボタン 省電力 レッド M-IR07DRRD

この時に買ったマウスを今年から投入した。半年で壊れたのでこっちを買ってみた。マウスは消耗品。

_ [CD][Music] + by ED Sheeran

エド・シーラン ライヴ・イン・ジャパン2017を申し込まなかった。

_ [CD][Music] COME ALONG IIby 山下達郎

今年COME ALONG IIIが出るそうです。

_ [食事][]サイゼリヤトップページ|サイゼリヤ

1ヶ月ブリ。大雨になったので買物ついでです。

サイゼリヤ
サイゼリヤ posted by (C)ひかぞぉ


2017-06-21 蒸し暑いなぁ [長年日記]

_ [Rust] Rustがオモロー

プログラミング言語 Rustが面白い。ちょっと時間があるときに齧っている。

Mac

brew install rust

で簡単にはいる。

オススメはrustup.rs - The Rust toolchain installerらしい。

curl https://sh.rustup.rs -sSf | sh

Windowsは

Installer使いました。VC++ 13or15が必要です。link.exeでLoad Moduleを作るみたい。

他のインストール方法 · プログラミング言語Rustからx86_64-pc-windows-gnu.msiを使うのがよさげだそうです。via Linux Programming / お気楽 Rust プログラミング超入門*1

でcargoであらカタはできるみたい。

cargo new foo --bin

cd foo

cargo run

あらもう

Hello, world!

ができちゃいました。

本はまだ英語版のみ

日本語でのProguraming Rustプログラミング言語Rust

The Rust Programming Languageで日本語のPDFになさった強者もいらっしゃいます。

sampleの日本語訳→Introduction | Rust by Example

英語版だとあとは→

*1 8/19追記


2017-06-22 パスカルの三角形 [長年日記]

_ [Clojure] パスカルの三角形

Clojureでパスカルの三角形 - Programmer's Noteに触発されてiterateで書いてみました。次の行を得るのは同じロジックになっちゃいます。

(defn nextRow[c]

(->> (partition 2 1 c)

(map (fn[[a b]](+' a b)))

(#(concat [1] % [1]))

(vec)))

(iterate (fn[a](concat a (list (vec (nextRow (last a)))))) '([1]))

+'でBuffer Over Flowを回避しました。参考→FibBuzz in Clojure · GitHub*1

*1 06/27追記


2017-06-24 医者 [長年日記]

_ [モフ太] 朝散歩

今日は医者の連荘なので早めの散歩です

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ

散歩途中の紫陽花。白い。

さんぽ
さんぽ posted by (C)ひかぞぉ

_ [買物][] 一流マネジャーの仕事の哲学

経済、株価、ビジネス、政治のニュース:日経電子版の記事を読んで興味を持ちました。

医者の待ち時間で読もう。

_ 廃車歯医者

1ヶ月ぶりにクリーニング。また来月。当面毎月らしい

_ 高血圧

1ヶ月ぶり次回は8月にまたシンゾー検査。

_ [モフ太]夕方散歩

夕方は涼しい

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ


2017-06-25 [長年日記]

_ [モフ太]朝

雨降って散歩できませんでした。 

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

散歩に連れてけと強請るモフ太

_ [モフ太]昼散歩

昼にようやく雨があがったのでお散歩です

モフ太さんぽ
モフ太さんぽ posted by (C)ひかぞぉ


2017-06-26 Clojure defprotocol/defrecord [長年日記]

_ [Clojure]defprotocol defrecord

少し時間があったので久しぶりにClojureの復習

user> (defprotocol MyInterface

(method01 [this])

(method02 [this a b]))

MyInterface

user> (defrecord MyClass [prop01 prop02]

MyInterface

(method01 [this] (println prop01))

(method02 [this a b] (println (str a b prop02))))

user.MyClass

user> (->MyClass "a" "b")

#user.MyClass{:prop01 "a", :prop02 "b"}

user> (def a (->MyClass "a" "b"))

#'user/a

user> (.method01 a)

a

nil

user> (.method02 a "d" "e")

deb

nil


2017-06-27 ひかぞー抜糸 [長年日記]

_ [買物][] 坂の上の雲(八)

ようやく読了しました。この歳になって読むと落ち着いて面白く読めた。

この日七巻を読了しております。

_ [買物][] 女の子が生きていくときに、覚えていてほしいこと

本日ひかぞーが抜糸で病院マチで買いました。

_ [買物][] マンガでわかる地政学

よんよん向けです。地政学は今年の流行語


2017-06-29 痩せない [長年日記]

_ [Diet][買物][生活] 難消化性デキストリン(水溶性食物繊維)400g(微顆粒品)

1ヶ月のインターバルです。痩せななぁ。もうトシねぇ。



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|04|05|06|07|08|09|10|11|12|
2018|01|02|03|04|05|06|07|08|09|10|11|12|
2019|01|02|03|04|05|06|07|08|09|10|11|12|
2020|01|02|03|
最新 追記