«前の日記(2013-07-01) 最新 次の日記(2013-07-15)» 編集

ɥozɐʞıɥ


2013-07-12 暑いです [長年日記]

_ [買物][] 数学ガールの秘密ノート/式とグラフ

twitterでサイン本がまだ残っているってので神保町のグランデ | 店舗情報 | 株式会社書泉まで買いに出かけました。途中まで神保町と神谷町を間違えて日比谷線に乗ったのは内緒だ。

サイン入りゲッツ
サイン入りゲッツ posted by (C)ひかぞぉ

_ [生活] よんよんが植えたピーマン

ムスコが植えたピーマン
ムスコが植えたピーマン posted by (C)ひかぞぉ

実りました。

_ [Clojure] Append

まずは関数

(defn append[x y]

(if (nil? x) y

(cons (first x) (append (next x) y))))

今度はマクロで実装

(defmacro apnd[x y]

`(letfn [(apnd# [x# y#]

(if (nil? x#) y#

(cons (first x#) (apnd# (next x#) y#))))]

(apnd# ~x ~y)))

実装ヒントは初めての人のためのLISP[増補改訂版]からです。



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|
«前の日記(2013-07-01) 最新 次の日記(2013-07-15)» 編集