Let-Over-Lambda book

is pretty lame.

http://letoverlambda.com/index.cl/guest/chap2.html

(defun block-scanner (trigger-string)
  (let* ((trig (coerce trigger-string 'list))
         (curr trig))
    (lambda (data-string)
      (let ((data (coerce data-string 'list)))
        (dolist (c data)
          (if curr
            (setq curr
                  (if (char= (car curr) c)
                    (cdr curr) ; next char
                    trig))))   ; start over
        (not curr))))) ; return t if found
"Here is a demonstration of its use, pretending to be some sort of communications tap watching out for a specific black-listed word, jihad:"

(defvar scanner (block-scanner "jihad")) ; SCANNER
(funcall scanner "We will start ")       ; NIL
(funcall scanner "the ji")               ; NIL
(funcall scanner "had tomorrow.")        ; T
but it fails already on:

(defparameter scanner (block-scanner "kkke")) ; SCANNER
(funcall scanner "kkkke")                     ; NIL

-------

now...

http://letoverlambda.com/index.cl/guest/chap5.html

(defun cxr-calculator (n)
  (loop for i from 1 to n
        sum (expt 2 i)))
but this can be done with simple arithmetics!

2^(n+1)-2

>>2
OnLisp and PCL

pantsu

Lisp Is Not Functional
I think I need a language that works

　　　　　　 _,.-v⌒'「｀'r-､__
　　　　,.-「_,.!-､=,. -─- '､　ゝ､
　　 」´ゝ'´　　　　　　　　　｀ヽ!>ヽ,
　　」 /´　　　　　　　　､　　ヽ､!ｲ　',　
　 〈γ ｲ 　 ﾉ　i　 ､　─!-　　' ､ 　 ',　　
　　Y　/ .-/─ﾊ　 ﾊ,.!-=ﾐ､_ﾊ　 ｀ゝ i,
　　ﾉ /　ｲ_x=-､.ﾍﾉ´ ﾄ､_　|ゝiハｲ　 ﾊ､
　 ｲ　! /ﾊ!ｲﾄ､ i｀　　 ﾞ-ｰ''　/､ﾝ-,　　_ﾊ__　　_　　) ）
　　'ﾚiﾊ 　.!,,｀''´, 　　　　 ""iﾊﾉノ　と´__　｀ヽ､､
　　　　 !.从　　　､─ｧ　　 /ｲﾉ　i 　ﾊ r'､｀　　',i
　　 　ﾉｲﾝ i ゝ､. 　 ´　　,rYｲﾉ　ﾊ　/´ _　　 　 !
　　　〈/(y´ハ _i｀>.ｰ='i7Yﾉ´｀7_ゝ-し´rゝ､_,.イﾊ
　　　_,.(ﾝＶ rヽ ｀くヽ､,.ﾍｲﾍ_/フi　　7´ 　 　 　　!
　　 」ゝYｨ_iﾝ7 //ﾍ　/ゝﾊ_「ノｲ　　 ゝ/,.､__r､__,/
　　,.ｲiく_「,ｲ 〈ム､_ゝ　〈)iノ _ゝ!　　､　｀7ヽ､ 　i
　　 ﾉ〈)　Y　 └──'´　　　Yゝ､__,'r-/　 　　 i
　 ｲ 　､　ﾍ ､　　　､ヽ,　　　　ｲ_ハ　r'i､　　 　,ｲ

　 　　　　 　 　＿　　　　　　　 ＿,,,....,,,__
　　　 　 　 　 ＼ ｀ヽ-‐''"´￣　 　　　　｀ﾞ'　、 　∧
　　　　　　　 _,,. ＞ 　 ─- ､＝＝= ､　　　　 ヽ/　|
　　　 　 　＜ 　 ／　　　 　　＼　　　Y⌒ヽ__　　 /
　　　　 　 ／　/　　|　　　 　　 ﾊ　　 ,|　　　　） 　ヽ.
　　　　　,:'　　 | 　 八 　　　,ﾊト-|-イ |_,,..　イ　　　 ﾊ　 ○
　　　　 /　 .|　|　 ｀7_＼　　　|ｧ'"￣ﾞヽ|　　　'､　 　　|　　　ﾟ
　　　／　　 |　'、 /´rヽ ＼　 | 　 l´ﾟﾊ |　　　　＼ 　 |
　　 ´￣ '、　､　∨　| r! 　 ＼! 　弋_ｿ八　　　|　 ` ァｰ- ､
　　Ｏ　 　）　 ＼|　ｰ｀´ ,　　　　 ///´ﾘ 　 　 /　　 （　　　）
　　　　 ＜　イ､_,ゝ//　　＿__ 　　　∠、_,,..イ　　　　ヽ ／ o
　　　　 　 ヽ 　 人 　　　|/　 ｀ヽ ι ／ 　 / 　 　 , 　 ）　 　,. -────-､
　　　　。　　|／/　＼　 　､　 __ﾉ 　/　　／ 　 　 /|／　　／
　　　　　 　/　,'　　 ,| ヽ,＿_,,,..　 イ|　／ヽｒ‐､|／　　＿/　 .し　　お　　心
　　　　　　,'　 |　／　＼/ア´￣｀ヽ.ﾚ'　＼ｒ'／　 　 　＼. 　 な　　か　　を
　　　 　 　|. 　∨ 　 　 ／　　　- ､　∨| 　＼ 　 　 　 　|　　い　　し　　無
　　　　　　ヽ.,＿＿　ｒ/　／　　 　 ＼ﾄ､　 　,ﾊ. 　 　 　 |　　で　　な 　 に
　　　　　 　　 　, -､{/.／　　 　 　 　 |ｒ､）､__,り⌒ヽ.　　| 　 下　　こ. 　 し
　　 　　　／￣´　ｒ'/　　　　　 　 　 /　　 　/　　 　 ',　.|　　さ.　　と　　つ　
　　　　 /　　　 　 /　　　　　　　 ,／　　　 /|.　　 　　|　| 　 い.　　　　　つ
　　　|｀Yヽ-r‐‐r/|　　　　　　 ／/ 　　 ／./　 ノ⌒ｰ'　 '､

　　　　　　　　　　　　　　　　　　　　　r/:./.:.:.:.:.:.:.:.:.:.:.:.:.:.:..:.:ヽ､　　　　__　　　／:::::::::::::::::::::::::::::::::!7
　　　　　　　　　　　　　　　　　　　 　 ri:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:::｀/7 ::__:: _｀'＜:::::::::::::::::::::::::::::::/:::/ !
　　　　　　　　　「|　　　　　　　　　　 「i:.:i:.:.:.:ヽ､.:.:.:.:.:;.:-‐｀ｰ- / / /_//_/ ::::::::::::;::::::::::::::::::::::::::::!_/
　　　　　　　　　| |　[][]　　,. -─- ､,) i:..:.:.:.:.:.:.:.＞'´:::::::::::::::: / ,､｀ヽ. ::::::: ｀"''＜::::::::::::::::::::::::l:::::!」
　　　　　　　　　| .二ﾆl ／　　　　　　ヽ|:.!.:.:.:／:::::::::::::::::::::: /_/　｀'ｰ' ::::::::::::::::::::::ヽ,,.. -──- ､
　　　　　　　　　| |　　/　　　　 ┐　　　ヽ.'"::::::::;'::::::::;::::::::::::::::::::;:::::::::::::::::::::::::::::: /　　 　 ┐
　「| [][]　__[][]　|_| 　 !　　：　絶　深　そ　', :::::::!::::::/;::::::::;:::::::::::ﾊ::::::::::::::::::::::ヽ. i　い　喜　激
　|└┐　| |. _________/　　 ：　望　い　の　 i ::!:::i::::/ i:::::::::!:::::::/　i::::::i::::::::::!:::::::: !　ら.　び　.し
　|_|￣ ￣￣　 　┐ ｀ヽ.　：└　　　　.か　 ＞　ﾚ''､」_:::::/!:::/ 　 i::::/i::::::::/i:::::::: |　な └　　い
/　：　だ　わ　平　そ　|.　 　も　　　 わ　 ! ::レ'7'´i7＞'､ﾚ' 　　ﾚ' ,_|::::/_ |:::::::: !　い　は
'　 ：.　っ　た　穏　ん　|.　 　な　　　 り　 | 「__! !　 !┘.!｀　　　 ,ｧ'r-=ﾆ」､!::::::/ !　：
.　 ：　た　し　 な　な　 !　　 い.　　　　　/ :::|__,!'`　`'ｰ'　 　　　 　!-''´ .! | |/:::: ',. ：
 　　　 の .の　生　　　 ＞　　　　_____,／ ::::ﾉ:::::! "" 　　　, 　 　　 '､__ンノ ﾄ--i ヽ.,__　　______ノ
　　　 に .目　活　　　 i　　　　　 ｀ヽ. ::::／:::::::人　 　　 ､_　　　 　　　 ,,,, ,:'!二'i_ノ::: |／ :::|::::!
　　　　　 標.└　 　 　,'　　　　　　 ┐Y:::::::::/::::::/＼　 　i/￣｀ヽ.　　　 //::::::::ﾊ:::::::/::::ﾊ:::::|::::!
　　　　　　　　こ. 　　/　人　の　植　 i :::::::i:::::/!.:.:.:i｀ヽ, ヽ､___ノ　 ,,.イ:/::::::::/::::!::: __/_ !:::::|::::|
　　　　 　　 　そ　／　　生　よ　物　 | ::i:::|イ7´￣7:.:.:.i｀' ｰｧ ''7´:.:.:.|;'::::::::/￣｀ / 7 ､_」: _!::::!
　　　　　　____,..イ　　 　 を.　う.　の　 | ﾊ:::! ! !.:.:.:/:.:.::.:.:ﾄ　　 _/:.:.:.:.:.:!::::::/ i　　/ /　/_//_/ ::!
￣￣￣￣　　　 !　　　　 ：　 な　心　 | ' Vr/:.:.:./:.:.:.:.:.:.:!-- ､/:.:.:.:.:.:.:ﾚ':.:.:.:.i　/ ,､｀ヽ. へ.,_/i/
　　　　　　　　　ヽ､　　　 ：　　 └ 　 ノ､__/:.:.:r/へ:.:.:.:.:.!____/:.:.:.:.:.:.:.:.|:.:.:.:.:. /_/　｀'ｰ'　 　ﾚへ

　 　　　　 ∧/|　　∧､
　　　　|ヽ!､ゝ,.ｒ'ニ､ﾝi
　　　　ゝ／　/　 　 ＼
　　　　_L...- '-───'-- ..,,_
　　 ,.へ　ヽ -　L ＝ 」 -　 　/
　 〈　 　,.ゝ --─ri⌒ヽr--..,ｲ
。　 γ´ ,'" _/__,.i　　 l |､!_i　ﾄ､　ﾟ
　　　i　 ,'.　/ ,.-'､.ヽｲﾉ,.-､i /　i
　.o　|　レ ｲ.( （_） 　 　() )ｲﾊﾉ　　o
　　 .|.　(| | |〃　　 ___　〃l |.|　。
　　 |　 /i | lゝ､　 (　　) ,.ｲl.|.|
　　 |　 ﾊ_l |.,-!｀i ｰ-=.i´､i　| |　　　　Ｏ
Ｏ　i　ｲ_( ヽ.!　|　ヽ､iｲ ﾝ !／'),-､
　　|　iヽ､｀'_,..-｀つ ﾊ ヽ / つ _ゝ)　) ）
　　',　i(__,. - ''Ｔ´ＶＹV (ゝ､_,..､_)
　　 ', ﾊ ｀.ｰi´ 　 (/　 i_) ｀iｰi´|
　　　V ヽ,.ｲ/ゝ､ __,.__,.__,.ｲヽﾝ
　　　　／ /　/　　　　 　 ヽ＼     　 　　　　　　　　　　 　 　　 　 　 　 __
　　　　　　　　　　　　　　　　　　　 | |
　　　　　　　　 _,. -──- ､　　　　l_|　
　　　　　___　,ﾄ'､　　　,.-　　7ヽ　　ロ
　　　　　｀く7 ヽ ｀'ｧ/　　/　i::::!　　　 　　　 .::　　　
　　　　　 くi　　ヽｲi　i　/-ﾊ:::::i　　　 　　,.::
　　　　　　 i 　　　 ﾚﾍi/V::::ﾚﾉ　　　　,.'"　　　..::
　　　　　　,' 　　　　 |　|　::::|　　　　_,.'"　　,.-'"
　　　　　 / ./　　 　 >ヽ､_ノ　　　￣｀"'ｰ'"
　　　　　,' ./ 　/　/ /'⌒ヽ!　　ﾌｩｩｩｩ
　　　　　! ﾊ　/ 　ﾊ〈_r､__,.〉　
　　　　　ヽﾚ'!./ﾚ':::::::! 　〈_､　
　　　_____　,.イ:::::::::::::ヽ､___ﾝ
　　　^ヽ､｀二ヽ/'7'::::::::::ヽ.
　　　　 ,く::::7ｰi:::､:::::r､:::::::ﾊ
　　　　´:7二7｀='=ﾍ二Y'^´
　　　　　ﾋ__ﾉ　 　　 ﾋ__ﾉ

　　　　　　　　　_,. -──- ､　　　　
　　　　 ﾄ､　 ,. '´　　　　,.-ヽ.｀ヽ／!
　　　 　ヽ.｀''ｧ/ 　./　/i　::::i ､:::::',:7<{　　　　 .::　　　
　　　　　　Y´ﾚi　 ﾊ/-ﾊ　::i-::!:::::i　　　　　,.::
　　　　　　 i 　 ﾚﾍi::○::::Ｖ::Oiﾊ|ﾉ　　　,.'"　　　..::
　　　　　　/ 　　| |"　､______,"! |　　_,.'"　　,.-'"
　　　　　 / ./　 >ヽ､ 　｀-' ノl |　￣｀"'ｰ'"
　　　　　,' ./ 　//'⌒ヽ7￣!. | |　
　　　　　! ﾊ　/〈_r､__　〉､!_ﾚﾚ'　 ) ）　
　　　　　ヽﾚ'!. 〈　　く7ﾄr〉_.)
　　　_____　,.イ':::＼__）」ヽ!
　　　^ヽ､｀二ヽ/'7'::::::::ヽ.
　　　　 ,く::::7ｰi:::､:::::r､:::ﾄ､
　　　　´:7二7｀='=ﾍ二Y^
　　　　　ﾋ__ﾉ　 　　 ﾋ__ﾉ