まぁ読んだ。

まだまだ伸びる農産物直売所―地域とともに歩む直売所経営
田中 満
農山漁村文化協会 / ￥ 1,680 ()
通常2～5週間以内に発送

• 直売活動の形態と展望
• 直売所の野菜は新鮮で日持する
  • （というイメージ？　それとも願望？）
• 直売所の魅力はスーパーでは見かけない珍しいものが帰ること

結局、客が人につくんであれば最終的に直売所はアンテナショップというか見本市とかそういう形になるんではなかろうか？または、個人の直売の集合としての直売所。

そうであれば、付加価値をつけたモノを売って、そのお土産としての商品的な意味合いの野菜。biodeliとか伽羅とか。

鮮度にこだわるんであれば、最終的には通販形式でいいし。そういったあたりがすっきりしなかった。

むしろ「農家がいいもの売る方向で調整しとるよ」みたいなそんな話が多かったかな。地域で団結して頑張ってます的な。な感じなので、消費者動向先取りっていう感じの本ではなかったかな。

それなりに面白かったけど、付加価値をどうつけるかっていう部分は物足りなかった。

C/C++の課題丸投げ

sieve (x:xs) = x : sieve [y|y<-xs,y `mod` x /= 0]
prime = sieve [2..]

単に手っ取り早く使いたい場合には入門gitでもよいと思うが、版管理の思想とかを学ぶのにはこっちのほうがおすすめ。

入門Git
濱野 純(Junio C Hamano)
秀和システム / ￥ 2,310 ()
在庫あり。

1-5章と16章を丁寧に読んで、あとは軽く流す程度。細かいところは使いながら読み直す予定。

あとはこの本読んで、創薬プロジェクトにおけるバージョン管理みたいなのを強烈にイメージ出来たのが収穫であった。

バージョンがツリーごとに並んでないで単なる集合として表現されているのが特許だと考えれば化合物特許解析というのは化合物集合を歴史として並べ直すことなんだよなぁとつくづく感じた。

そういうエントリを書こうと思っているんだけど、図とか作るのが面倒で放ってあるのでそのうち文章にまとめたい。

fglを使えばよい。

import Data.Graph.Inductive
import Data.Graph.Inductive.Example
import Data.Graph.Inductive.Graphviz

m486 :: NodeMap String
m486 = fromGraph clr486

t1 :: Gr String ()
t1 = insMapEdge m486 ("shirt", "watch", ()) clr486

t2 :: Gr String ()
t2 = insMapEdge m486 ("watch", "pants", ()) t1

main = do putStrLn $ graphviz t2 "test" (0,0) (0,0) Portrait

これはDOT言語で出力される。

digraph test {
    margin = "0"
    page = "0.0,0.0"
    size = "0.0,0.0"
    rotate = "0"
    ratio = "fill"
    1 [label = "shorts"]
    2 [label = "socks"]
    3 [label = "watch"]
    4 [label = "pants"]
    5 [label = "shoes"]
    6 [label = "shirt"]
    7 [label = "belt"]
    8 [label = "tie"]
    9 [label = "jacket"]
    1 -> 4
    1 -> 5
    2 -> 5
    3 -> 4
    4 -> 7
    4 -> 5
    6 -> 3
    6 -> 8
    6 -> 7
    7 -> 9
    8 -> 9
}

pngで出力したいときにはdotに渡す。

$ ./gvtest | dot -Tpng > gvtest.png

参考

• Stern-Brocot 木 を Haskell + Graphviz で

久々の来来亭。普段は混んでいるので避ける。京都なラーメンが食べたいときだけ。

薄切りの肉が好き。新福とか懐かしい。

沼津往復で読みきった。内容的には、知らない人向けにわかり易く説明した感じ。読み終わって7つの法則がイマイチ。復活というよりはホームページ世代の人達に今時の状況を説明しました（7章に分けて）みたいな。

• Unique Sales Proposition (UPS)
• 買う理由がないから買えない
• Lead Exchange

ホームページ復活 眠っているホームページを甦らせる「7つの法則」
菅谷 憲司
早月堂 / ￥ 1,470 ()
在庫あり。

プログラム・プロムナードのRubicキューブと置換の乗算を読んで2X2のソルバーを書いていたんだけど、巡回とねじりを覚えれば基本的に解けるのでリアルのほうを揃える方に夢中になってしまった。

*Main> prodPerm [e,t,t,e,s',b,b,s,e',t,t,e,s',b,b,s,e',e']
[[TSW,WTS,SWT],[TES,EST,STE]]
*Main> prodPerm [e,e,s,s,e',n',e,s,s,e',n,e']
[[STE,WTS,ETN],[EST,SWT,NET],[TES,TSW,TNE]]

ルービックの2×2 キューブ(CUBE)

メガハウス / ￥ 1,260 (2002-03-20)
在庫あり。

久々のキャトルエピス。

図書館帰りに不意に寄りたくなった。

美味！

プログラム・プロムナードのRubicキューブと置換の乗算を読んでいたら、文字のローテションをしたいときにcycleを使っているのを見つけた。

import List

shift n c xs = case elemIndex c xs of
                 Nothing -> c
                 Just i  -> cycle xs !! (i + n) 

こんな感じ。

*Main> shift 1 'y' ['a'.. 'z']
'z'
*Main> shift 1 'z' ['a'.. 'z']
'a'
*Main> shift 1 ' ' ['a'.. 'z']
' '

これを使えばプログラミングHaskellのシーザー暗号は次のように書ける

import List

chrs = ['a'..'z']

shift n c xs = case elemIndex c xs of
                 Nothing -> c
                 Just i  -> cycle xs !! (i + n)   

encode n xs = [shift n x chrs | x <- xs]

実行

*Main> encode 3 "haskell is fun"
"kdvnhoo lv ixq"

プログラミングHaskell
Graham Hutton
オーム社 / ￥ 2,940 ()
在庫あり。

創造は個人のステップ、イノベーションは集団としてのプロセス

BCG流 非連続思考法 アイデアがひらめく脳の運転技術
リュック・ド・ブラバンデール,森澤 篤
ダイヤモンド社 / ￥ 1,890 ()
在庫あり。

• イノベーションは行動であり、創造は考えることだ
• 我々は現実をありのままに見ているわけではない。自分なりの方法でしか見られない
• 新しいアイデアを生み出すプロセスとアイデアを優れたものにしていくプロセスは異なる
• 経営者は答えを探し求める人よりも、答えを出す人を高く評価しがち
• アイデアの寿命はずっと短くなってしまったので、アイデアを生み出し続ける能力が重要
• 事故が起きたときに問われるべきは「誰がその管理プロセスをつくったのか」
• 労働と非労働の区別も曖昧になっている