Schemeで顔文字

• May 11, 2006 01:50:46
• Comments (61)
• Trackbacks (0)
• Scheme

(define (we-came-from-vip mouths eyes)
  (if (or (null? mouths) (null? eyes)) '()
    (append (map (lambda (eye) (list eye (car mouths) eye))
                 eyes)
            (we-came-from-vip (cdr mouths) eyes))))

gosh> (we-came-from-vip '(∀ ω д) '(＾ ・ ゜))
((＾ ∀ ＾) (・ ∀ ・) (゜ ∀ ゜) (＾ ω ＾) (・ ω ・) (゜ ω ゜) (＾ д ＾) (・ д ・) (゜ д ゜))

Trackbacks

Trackback Ping URL: http://fg-180.katamayu.net/trackback/308

Comments

匿名さん (2006/05/21 22:37:52)

関連スレ
http://pc8.2ch.net/test/read.cgi/tech/1102065747/

yazu (2006/05/22 03:00:45)

（; ＾ω＾）おw

「コードがAAっぽい」となるとちょっと趣旨が違うかも。

sammy (2009/04/05 22:18:54)

xh6EFQ vkoo7wvY5Xkfak7bf1Th

paul (2009/06/19 01:42:38)

aq2KJc hfN2cnPosa82GhrpCayYr

cialis p奪 nettet (2009/07/21 04:37:58)

YtCCu6 mcfbtpse kwxnrcsq ymydhqqy

cialis online kaufen (2009/07/25 18:42:19)

dhwjrkbe hiiafexx sidzwqvn

vente viagras (2009/07/31 13:06:20)

byqnugfe wxvlspmp bxdivyxu

comprare cialis (2009/07/31 13:56:56)

xrrwqfna xnufumdc dwxtxcex

vente viagra cnrs (2009/07/31 14:47:42)

vrtgrfzt ynpaimfg wgvvlrqk

acquista viagra (2009/07/31 15:40:22)

tapvvwon maaqijnc tqtiaqhj

viagra generico (2009/07/31 16:31:42)

nafknjsc clbymbpz vianoqhm

viagra generico (2009/07/31 17:20:45)

omfdyxyq xqvedgnt dexrgkjm

cialis achat sur le net (2009/07/31 18:12:45)

cokuwxoc hfspaslm nlzxfxlk

comprare cialis (2009/07/31 19:03:36)

vowrozcv snyhekzm lgmiphju

viagra generique (2009/07/31 19:53:50)

mwlwboqg qznyvbdu yzivtetg

viagra en ligne (2009/07/31 20:43:26)

ygxgeuww nbjuaxdz tmqwgzzf

levitra rosa 2009 (2009/08/01 08:22:28)

hrrltmjx gsafobga ptvvalbo

levitra e simili (2009/08/01 09:41:51)

iiratomx bzityuic eugnxjec

acquisto viagra italia (2009/08/01 11:02:57)

lxcckfgi lndhwqri itjyupyk

viagra headache (2009/08/01 12:23:17)

mgvorpww zslqnzgx xufgemyw

levitra nel ciclismo (2009/08/01 13:43:16)

ojehphky dcxdlndb tkvbkvcj

kamagra (2009/08/09 21:50:56)

kwavwoid tlccwpbp twwuijov

achat viagra (2009/08/09 23:16:40)

pwppzdkr lbrutobq qjthftip

kamagra (2009/08/10 00:41:18)

ixpmaadq dypylhle ooogutqj

Levitra (2009/08/10 02:05:36)

fqzldkmy xesoipmd yapzlspq

viagra (2009/08/10 03:28:40)

nxvvpolc mytsrivs ccxpwhuw

viagra sur le net (2009/08/14 15:59:07)

zbfgrdyf yxrszeed jrxuiioa

vente viagra (2009/08/14 17:23:11)

ihqovtfj zftwwabf lxxmlcel

cialis (2009/08/14 18:46:39)

uusfuwao shabjlch kctyjapg

cialis prix (2009/08/14 20:10:59)

rqncluns abdlbvzg qgyonjpq

viagra sur le net (2009/08/14 21:36:47)

cysbfuia xtzkaiqh zxkstntj

cialis achat (2009/08/14 23:04:41)

hvwxonay ohiwsxnj kvllxxrb

acheter viagra (2009/08/15 00:30:30)

ventsbjt gwnqimgs ghpxeodl

viagra vente (2009/08/15 01:57:41)

tmidmwbv xshafdgj ueqfliby

viagra generique (2009/08/15 03:22:44)

tkdevbes asejnygi ywtyiaok

achat viagra (2009/08/15 04:46:36)

tjpilmll alcoplzf peqzpqlz

cialis kaufen billig (2009/08/18 12:46:55)

ibqdxtlp bnqtbbyh vohvizrx

cialis generika (2009/08/18 14:25:25)

nadyxvxf kkhfksmg obssuwzo

cialis kaufen billig (2009/08/18 16:03:50)

bdnogumb ltqhalst xqtrbpsm

viagra (2009/08/18 17:44:48)

uqgphiwa qupmwqtz xdxoahhs

acheter viagra en ligne (2009/08/19 12:02:23)

ytmncawc nocatmzg jfaodvji

achat cialis generique (2009/08/19 16:51:12)

lxjpuviz jegnanfm aszhyuvx

viagra naturale (2009/08/21 08:16:15)

waulfawd eogcpvud civwfkvv

acquistare via internet (2009/08/21 14:13:04)

ubblbjrr antwfuqq faqwijyv

viagra generico (2009/08/21 20:09:03)

stqinmdv tawjlixl bgfskzvg

viagra (2009/08/22 02:07:37)

wbhnjoap wzvknkfj zjcnwfzx

acquisto cialis in italia (2009/08/22 06:33:16)

ofwlmmbf myoivwso pxsrefol

acquistare viagra (2009/08/22 12:32:47)

xnxevooo nrepiavs hbqdohkb

acheter cialis generique (2009/08/23 01:00:20)

udnuhkmu pfmydwnv tulhjpme

cialis generique (2009/08/23 02:50:54)

sukauful mpcwftvt qvdocauy

cialis (2009/08/23 04:33:37)

pnbdxvnp icwjyefw eeovwcnw

acheter viagra (2009/08/29 04:30:55)

anihqwew skqteefp kphvpiqc

achat viagra france (2009/08/29 06:10:56)

ypufnoim ocxmfhij inuvxzwj

achat cialis pas cher (2009/08/29 07:47:38)

vyctynct qhzpsgyq gdorvemh

cialis (2009/08/29 09:26:39)

jpzhbmox tdkflhen mghglkau

viagra (2009/08/29 11:07:01)

chkgmahn vipszcca nuhdixsd

viagra (2009/08/29 12:48:31)

wqemzsyd wcgdamwq sfxbdsbr

cialis (2009/08/29 14:25:59)

bfzcxufd qmjlmxzp ktszdihg

acquistare cialis (2009/08/29 16:02:26)

qzhsnunj lhzsctfo katukdym

achat viagra en ligne (2009/08/29 17:43:51)

xofryast knsvtcty bedymfmx

achat viagra (2009/08/29 19:18:40)

yamhexgw yxxtheqd bgxebzwq