«前の日記(2017-03-05) 最新 次の日記(2017-03-11)» 編集

ɥozɐʞıɥ


2017-03-07 午後は色々ありまして [長年日記]

_ [Lisp] Schemeの継続を理解しようとしている

andは真なら最後のS式の値を返すので

(define *cont* #f)

(and 10

(call/cc (lambda(k)(set! *cont* k) 20)))

した時

gosh> (define *cont* #f)

gosh> (and 10

(call/cc (lambda(k)(set! *cont* k) 20)))

*cont*

gosh> 20

gosh> (*cont*)

gosh> (*cont* 1)

1

orは真なら最初のS式の値を返すのでcall/ccまでとびません

(define *cont* #f)

(or 10

(call/cc (lambda(k)(set! *cont* k) 20)))

ので

gosh> (define *cont* #f)

gosh> (or 10

(call/cc (lambda(k)(set! *cont* k) 20)))

*cont*

gosh> 10

gosh> *cont*

#f



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|
«前の日記(2017-03-05) 最新 次の日記(2017-03-11)» 編集