Let-Over-Lambda book
1
Name:
Anonymous
2011-02-09 8:06
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
3
Name:
Anonymous
2011-02-09 8:16
4
Name:
Anonymous
2011-09-19 6:30
pantsu
5
Name:
Anonymous
2011-09-19 7:28
Lisp Is Not Functional
I think I need a language that works
6
Name:
Anonymous
2013-08-31 22:28
_,.-v⌒'「`'r-、__
,.-「_,.!-、=,. -─- '、 ゝ、
」´ゝ'´ `ヽ!>ヽ,
」 /´ 、 ヽ、!イ ',
〈γ イ ノ i 、 ─!- ' 、 ',
Y / .-/─ハ ハ,.!-=ミ、_ハ `ゝ i,
ノ / イ_x=-、.ヘノ´ ト、_ |ゝiハイ ハ、
イ ! /ハ!イト、 i` ゙-ー'' /、ン-, _ハ__ _ ) )
'レiハ .!,,`''´, ""iハノノ と´__ `ヽ、、
!.从 、─ァ /イノ i ハ r'、` ',i
ノイン i ゝ、. ´ ,rYイノ ハ /´ _ !
〈/(y´ハ _i`>.ー='i7Yノ´`7_ゝ-し´rゝ、_,.イハ
_,.(ンV rヽ `くヽ、,.ヘイヘ_/フi 7´ !
」ゝYィ_iン7 //ヘ /ゝハ_「ノイ ゝ/,.、__r、__,/
,.イiく_「,イ 〈ム、_ゝ 〈)iノ _ゝ! 、 `7ヽ、 i
ノ〈) Y └──'´ Yゝ、__,'r-/ i
イ 、 ヘ 、 、ヽ, イ_ハ r'i、 ,イ
7
Name:
Anonymous
2013-09-01 0:00
_ _,,,....,,,__
\ `ヽ-‐''"´ ̄ `゙' 、 ∧
_,,. > ─- 、=== 、 ヽ/ |
< / \ Y⌒ヽ__ /
/ / | ハ ,| ) ヽ.
,:' | 八 ,ハト-|-イ |_,,.. イ ハ ○
/ .| | `7_\ |ァ'" ゙̄ヽ| '、 | ゚
/ | '、 /´rヽ \ | l´゚ハ | \ |
´ ̄ '、 、 ∨ | r! \! 弋_ソ八 | ` ァー- 、
O ) \| ー`´ , ///´リ / ( )
< イ、_,ゝ// ___ ∠、_,,..イ ヽ / o
ヽ 人 |/ `ヽ ι / / , ) ,. -────-、
。 |// \ 、 __ノ / / /|/ /
/ ,' ,| ヽ,__,,,.. イ| /ヽr‐、|/ _/ .し お 心
,' | / \/ア´ ̄`ヽ.レ' \r'/ \. な か を
|. ∨ / - 、 ∨| \ | い し 無
ヽ.,__ r/ / \ト、 ,ハ. | で な に
, -、{/./ |r、)、__,り⌒ヽ. | 下 こ. し
/ ̄´ r'/ / / ', .| さ. と つ
/ / ,/ /|. | | い. つ
|`Yヽ-r‐‐r/| // /./ ノ⌒ー' '、
8
Name:
Anonymous
2013-09-01 1:32
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/へ:.:.:.:.:.!____/:.:.:.:.:.:.:.:.|:.:.:.:.:. /_/ `'ー' レへ
9
Name:
Anonymous
2013-09-01 3:02
∧/| ∧、
|ヽ!、ゝ,.r'ニ、ンi
ゝ/ / \
_L...- '-───'-- ..,,_
,.へ ヽ - L = 」 - /
〈 ,.ゝ --─ri⌒ヽr--..,イ
。 γ´ ,'" _/__,.i l |、!_i ト、 ゚
i ,'. / ,.-'、.ヽイノ,.-、i / i
.o | レ イ.( (_) () )イハノ o
.|. (| | |〃 ___ 〃l |.| 。
| /i | lゝ、 ( ) ,.イl.|.|
| ハ_l |.,-!`i ー-=.i´、i | | O
O i イ_( ヽ.! | ヽ、iイ ン !/'),-、
| iヽ、`'_,..-`つ ハ ヽ / つ _ゝ) ) )
', i(__,. - ''T´VYV (ゝ、_,..、_)
', ハ `.ー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::○::::V::Oiハ|ノ ,.'" ..::
/ | |" 、______,"! | _,.'" ,.-'"
/ ./ >ヽ、 `-' ノl |  ̄`"'ー'"
,' ./ //'⌒ヽ7 ̄!. | |
! ハ /〈_r、__ 〉、!_レレ' ) )
ヽレ'!. 〈 く7トr〉_.)
_____ ,.イ':::\__)」ヽ!
^ヽ、`二ヽ/'7'::::::::ヽ.
,く::::7ーi:::、:::::r、:::ト、
´:7二7`='=ヘ二Y^
ヒ__ノ ヒ__ノ