00:00:28 I'm getting tired of the mutually-recursive even? / odd? trick by descent on integers 00:00:52 tuubow [~adityavit@NYUFGA-WLESSAUTHCLIENTS-01.NATPOOL.NYU.EDU] has joined #scheme 00:03:12 copumpkin [~copumpkin@unaffiliated/pumpkingod] has joined #scheme 00:07:07 -!- mmc1 [~michal@178-85-131-65.dynamic.upc.nl] has quit [Ping timeout: 276 seconds] 00:08:01 -!- tuubow [~adityavit@NYUFGA-WLESSAUTHCLIENTS-01.NATPOOL.NYU.EDU] has quit [Ping timeout: 260 seconds] 00:14:20 dnolen [~user@cpe-98-14-92-234.nyc.res.rr.com] has joined #scheme 00:15:40 -!- realitygrill [~realitygr@76.226.208.179] has quit [Quit: realitygrill] 00:17:26 (lambda (x) (define (h x) (if (even? (h (/ x 2))) (tpo x))) (define (tpo x) (h (+ (* x 3) 1))) (h x)) 00:24:20 replore_ [~replore@203.152.213.161.static.zoot.jp] has joined #scheme 00:24:51 -!- soveran [~soveran@186.19.214.247] has quit [Remote host closed the connection] 00:25:37 -!- z0d [~z0d@unaffiliated/z0d] has quit [Ping timeout: 252 seconds] 00:27:13 z0d [~z0d@ns.htcc.hu] has joined #scheme 00:27:14 -!- z0d [~z0d@ns.htcc.hu] has quit [Changing host] 00:27:14 z0d [~z0d@unaffiliated/z0d] has joined #scheme 00:27:42 mmc1 [~michal@178-85-131-65.dynamic.upc.nl] has joined #scheme 00:30:17 soveran [~soveran@186.19.214.247] has joined #scheme 00:30:22 jeapostrophe [~jay@69.169.141.110.provo.static.broadweavenetworks.net] has joined #scheme 00:31:45 -!- soveran [~soveran@186.19.214.247] has quit [Remote host closed the connection] 00:32:01 -!- mintsoup [~mintsoup@173-164-33-21-colorado.hfc.comcastbusiness.net] has quit [Quit: Leaving] 00:32:27 mintsoup [~mintsoup@173-164-33-21-colorado.hfc.comcastbusiness.net] has joined #scheme 00:32:38 -!- mintsoup [~mintsoup@173-164-33-21-colorado.hfc.comcastbusiness.net] has quit [Read error: Connection reset by peer] 00:34:29 -!- surrounder [~surrounde@d130031.upc-d.chello.nl] has quit [Ping timeout: 240 seconds] 00:35:28 -!- jeapostrophe [~jay@69.169.141.110.provo.static.broadweavenetworks.net] has quit [Ping timeout: 244 seconds] 00:36:46 airolson [~airolson@CPE00222d55a738-CM00222d55a735.cpe.net.cable.rogers.com] has joined #scheme 00:36:53 surrounder [~surrounde@d130031.upc-d.chello.nl] has joined #scheme 00:49:56 porco [~porco@222.130.132.223] has joined #scheme 00:50:26 -!- rostayob [~rostayob@02d99acf.bb.sky.com] has quit [Quit: WeeChat 0.3.5] 00:52:22 -!- janpaulbultmann [~janpaulbu@87.253.189.132] has quit [Quit: Leaving...] 00:53:43 -!- jonrafkind [~jon@crystalis.cs.utah.edu] has quit [Ping timeout: 252 seconds] 00:54:47 ticking [~janpaulbu@87.253.189.132] has joined #scheme 00:56:08 -!- porco [~porco@222.130.132.223] has quit [Ping timeout: 244 seconds] 01:02:01 porco [~porco@222.130.130.151] has joined #scheme 01:08:08 -!- homie [~levgue@xdsl-78-35-143-195.netcologne.de] has quit [Ping timeout: 240 seconds] 01:08:27 -!- wbooze [~wbooze@xdsl-78-35-143-195.netcologne.de] has quit [Ping timeout: 252 seconds] 01:12:33 -!- Seraphime is now known as tarpsocks 01:14:48 -!- tarpsocks is now known as pushp0p 01:16:25 -!- samth is now known as samth_away 01:23:35 -!- ticking [~janpaulbu@87.253.189.132] has quit [Quit: Linkinus - http://linkinus.com] 01:29:53 -!- GoKhlaYeh [~GoKhlaYeh@135.51.68.86.rev.sfr.net] has quit [Ping timeout: 260 seconds] 01:30:59 -!- pushp0p is now known as crydocks 01:32:20 albert-sicp [~albert-si@24-205-85-84.dhcp.psdn.ca.charter.com] has joined #scheme 01:34:17 xwl_ [user@nat/nokia/x-rfizjgftiqgcdawv] has joined #scheme 01:34:40 -!- albert-sicp [~albert-si@24-205-85-84.dhcp.psdn.ca.charter.com] has quit [Remote host closed the connection] 01:35:50 langmartin [~user@host-68-169-155-216.WISOLT2.epbfi.com] has joined #scheme 01:35:58 tuubow [~adityavit@NYUFGA-WLESSAUTHCLIENTS-02.NATPOOL.NYU.EDU] has joined #scheme 01:36:00 -!- crydocks is now known as larpthawks 01:37:23 albert-sicp [~albert-si@24-205-85-84.dhcp.psdn.ca.charter.com] has joined #scheme 01:40:40 -!- albert-sicp [~albert-si@24-205-85-84.dhcp.psdn.ca.charter.com] has quit [Remote host closed the connection] 01:41:22 albert-sicp [~albert-si@24-205-85-84.dhcp.psdn.ca.charter.com] has joined #scheme 01:50:21 wbooze [~wbooze@xdsl-78-35-143-123.netcologne.de] has joined #scheme 01:50:22 homie [~levgue@xdsl-78-35-143-123.netcologne.de] has joined #scheme 01:52:20 jeapostrophe [~jay@69.169.141.110.provo.static.broadweavenetworks.net] has joined #scheme 01:54:53 ticking [~janpaulbu@87.253.189.132] has joined #scheme 01:55:33 -!- tuubow [~adityavit@NYUFGA-WLESSAUTHCLIENTS-02.NATPOOL.NYU.EDU] has quit [Ping timeout: 260 seconds] 02:00:37 -!- replore_ [~replore@203.152.213.161.static.zoot.jp] has quit [Remote host closed the connection] 02:09:08 -!- langmartin [~user@host-68-169-155-216.WISOLT2.epbfi.com] has quit [Ping timeout: 240 seconds] 02:09:27 -!- albert-sicp [~albert-si@24-205-85-84.dhcp.psdn.ca.charter.com] has quit [Remote host closed the connection] 02:11:01 langmartin [~user@host-68-169-155-216.WISOLT2.epbfi.com] has joined #scheme 02:14:58 dous_ [~dous@210.24.42.190] has joined #scheme 02:15:04 jrslepak [~jrslepak@c-71-233-151-135.hsd1.ma.comcast.net] has joined #scheme 02:17:23 -!- langmartin [~user@host-68-169-155-216.WISOLT2.epbfi.com] has quit [Ping timeout: 252 seconds] 02:18:26 -!- githogori [~githogori@216.207.36.222] has quit [Ping timeout: 252 seconds] 15:51:44 ccl-logbot [~ccl-logbo@setf.clozure.com] has joined #scheme 15:51:44 15:51:44 -!- names: ccl-logbot jewel teurastaja eno stis gravicappa attila_lendvai tuubow MrFahrenheit langmartin homie` EmmanuelOga woonie masm dous_ GoKhlaYeh Arafangion ijp` pchrist bytbox tupi joast ecraven preflex pygospa lucasaiu moll dzhus dotemacs levi wingo X-Scale yamanu bfgun brendyn tom_i kpal djcb hkBst z0d felipe cataska Razz carleastlund githogori certainty roderic Guest80248 eli karswell baggito gnomon DerGuteMoritz elly clog C-Keen stunsg surrounder 15:51:44 -!- names: jrslepak_ drwho bweaver stamourv ASau pothos finnrobi pjb arbscht Obfuscate cmatei ToxicFrog PreciousMetals SeanTAllen cky leppie dan64 hypnocat teiresias gsathya ft SHODAN larpthawks pranq Pepe_ acarrico bzzbzz offby1 exobit fgudin dsmith lusory nowhereman rudybot tali713 em Nisstyre mmc kmc acieroid cswords foof ozzloy tizoc gffa Khisanth amoe peterhil shardz xian Adrinael noth1ng kanru mario-goulart Nshag poucet_ tonyg erg Intensity duncanm fbs araujo 15:51:44 -!- names: ski peterbb Saeren gabot tessier dnm_ Axioplase_ ve twem2 incubot webben elliottcable LeoNerd yosafbridge DGASAU asumu bill_h stchang zedstar ttvd inimino rotty rotty__ miql eMBee ada2358 saccadewrk metasyntax|work jakky drdo cow-orker antoszka stepnem evhan zbigniew gf3 shachaf kniu rapacity devn danking samth Mathieu aidy klutometis ineiros micro__ snarkyboojum fizzie aking _p4bl0 weinholt ray daedric 15:52:16 theres a syntax-case implementation but its harder to readf 15:54:09 (define-syntax variant-case 15:54:11 (syntax-rules (else) 15:54:13 [(_ obj) (error 'variant-case "all cases exhausted" obj)] 15:54:14 [(_ obj (else body ...)) (begin body ...)] 15:54:16 [(_ obj (aggregate-switch (var ...) body ...) rest ...) 15:54:18 ((aggregate-switch (lambda (var ...) body ...) (lambda (obj) (_ obj rest ...))) obj)])) 15:56:57 copumpkin [~copumpkin@unaffiliated/pumpkingod] has joined #scheme 15:57:34 teurastaja: where is this coming from? 15:59:00 rudybot: google: scheme "define-syntax variant-case" 15:59:01 teurastaja: I'm watching, but I'm not aware of variant-case so I can't comment 15:59:07 ... 15:59:31 google: "define-syntax variant-case" 16:00:12 there are a bunch of pages but theres about 2 definitions 16:00:42 one so complicated i wont consider it (not clean with syntax-case) 16:01:13 heres the syntax-case one: https://groups.google.com/group/comp.lang.scheme/tree/browse_frm/month/2004-11/a824f95bdaa713a8?rnum=81&_done=/group/comp.lang.scheme/browse_frm/month/2004-11?&hl=en 16:01:15 http://tinyurl.com/82nsxfw 16:02:07 realitygrill [~realitygr@thewall.novi.lib.mi.us] has joined #scheme 16:02:09 http://trac.sacrideo.us/wg/wiki/AggregatesMedernachExamples for the one with syntax-rules 16:02:50 the real reason i want this is for cleaning up my eval definition 16:03:55 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 276 seconds] 16:04:24 look at how clean this is: 16:04:26 http://www.cs.princeton.edu/courses/archive/spr96/cs441/notes/l6.html 16:04:47 jeapostrophe [~jay@lallab.cs.byu.edu] has joined #scheme 16:05:19 eno [~eno@nslu2-linux/eno] has joined #scheme 16:07:44 they dont define 'Const 'Var 'Lam or 'App 16:10:52 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 252 seconds] 16:12:13 eno [~eno@nslu2-linux/eno] has joined #scheme 16:18:17 where do these come from? 16:18:50 the book? ;p 16:18:57 Presumably they're just opaque tagging symbols? 16:18:58 variant-case applies to a structure with variants. 16:19:11 So they come from the definition of the "sexp" structure. 16:24:24 -!- drwho [~drwho@56-34-237-24.gci.net] has quit [Quit: leaving] 16:24:53 mintsoup [~mintsoup@173-164-33-21-colorado.hfc.comcastbusiness.net] has joined #scheme 16:27:31 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 245 seconds] 16:29:17 eno [~eno@nslu2-linux/eno] has joined #scheme 16:32:17 albert-sicp [~albert-si@24-205-81-111.dhcp.psdn.ca.charter.com] has joined #scheme 16:33:42 soveran [~soveran@186.19.214.247] has joined #scheme 16:42:24 I wouldn't say that the syntax-case one is complicated, just a bit hacky 16:42:32 -!- joast [~rick@76.178.184.101] has quit [Read error: Operation timed out] 16:42:42 porco [~porco@125.33.83.213] has joined #scheme 16:43:21 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 245 seconds] 16:43:42 and syntax-rules is a special case of syntax-case, so there is no way the latter should ever be more complicated than the former 16:44:32 -!- hkBst [~marijn@gentoo/developer/hkbst] has quit [Quit: Konversation terminated!] 16:45:21 eno [~eno@nslu2-linux/eno] has joined #scheme 16:48:52 teurastaja: did you read http://trac.sacrideo.us/wg/wiki/AggregatesMedernach ? 16:50:14 aggregate-switch is a deconstructor for the data type 16:50:29 -!- stis [~stis@1-1-1-39a.veo.vs.bostream.se] has quit [Read error: Operation timed out] 16:52:18 so for a pair, the aggregate-switch would be like (define (decons maybe-pair yes no) (if (pair? maybe-pair) (yes (car maybe-pair) (cdr maybe-pair)) (no maybe-pair))) 16:53:50 (fwiw - if you look at the syntax-case variant-case it basically does this, but generates the predicate and accessor based on the names you use) 16:55:04 jonrafkind [~jon@crystalis.cs.utah.edu] has joined #scheme 16:56:59 -!- eno [~eno@nslu2-linux/eno] has quit [Read error: Operation timed out] 17:00:23 eno [~eno@nslu2-linux/eno] has joined #scheme 17:03:29 sstrickl [~sstrickl@dublin.ccs.neu.edu] has joined #scheme 17:04:02 -!- djcb [djcb@nat/nokia/x-ukomhbporvlgsebg] has quit [Remote host closed the connection] 17:14:26 -!- shachaf [~shachaf@ip24.67-202-82.static.steadfastdns.net] has quit [Remote host closed the connection] 17:16:07 albert-s_ [~albert-si@24-205-81-111.dhcp.psdn.ca.charter.com] has joined #scheme 17:16:54 -!- tom_i [~thomasing@cmc.beaming.biz] has quit [Read error: Operation timed out] 17:17:32 pothos_ [~pothos@114-36-224-117.dynamic.hinet.net] has joined #scheme 17:17:44 foof` [~user@li126-140.members.linode.com] has joined #scheme 17:18:11 bzzbzz_ [~franco@modemcable023.13-56-74.mc.videotron.ca] has joined #scheme 17:19:19 MichaelRaskin [~MichaelRa@195.91.224.225] has joined #scheme 17:19:36 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 245 seconds] 17:20:17 roderic_ [~roderic@zerowing.ccs.neu.edu] has joined #scheme 17:20:24 gnomon_ [~gnomon@CPE0022158a8221-CM000f9f776f96.cpe.net.cable.rogers.com] has joined #scheme 17:20:39 finnrobi_ [~robb@xvm-20-190.ghst.net] has joined #scheme 17:20:49 jeff_ [~jdlouhy@zerowing.ccs.neu.edu] has joined #scheme 17:20:56 crypto [~z0d@q.notresp.com] has joined #scheme 17:21:10 GoKhlaYe1 [~GoKhlaYeh@135.51.68.86.rev.sfr.net] has joined #scheme 17:21:12 DerGuteM1ritz [~syn@85.88.17.198] has joined #scheme 17:21:30 eno [~eno@adsl-70-137-133-209.dsl.snfc21.sbcglobal.net] has joined #scheme 17:21:39 pchrist_ [~spirit@83.212.181.90] has joined #scheme 17:24:42 -!- pchrist_ [~spirit@83.212.181.90] has quit [Changing host] 17:24:42 pchrist_ [~spirit@gentoo/developer/pchrist] has joined #scheme 17:24:43 -!- eno [~eno@adsl-70-137-133-209.dsl.snfc21.sbcglobal.net] has quit [Changing host] 17:24:43 eno [~eno@nslu2-linux/eno] has joined #scheme 17:24:45 -!- z0d [~z0d@unaffiliated/z0d] has quit [Disconnected by services] 17:24:47 soveran_ [~soveran@186.19.214.247] has joined #scheme 17:24:49 -!- albert-sicp [~albert-si@24-205-81-111.dhcp.psdn.ca.charter.com] has quit [Ping timeout: 244 seconds] 17:24:49 -!- gnomon [~gnomon@CPE0022158a8221-CM000f9f776f96.cpe.net.cable.rogers.com] has quit [Ping timeout: 244 seconds] 17:24:50 -!- soveran [~soveran@186.19.214.247] has quit [Ping timeout: 244 seconds] 17:24:50 -!- attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has quit [Ping timeout: 244 seconds] 17:24:50 -!- EmmanuelOga [~emmanuel@host83.190-31-137.telecom.net.ar] has quit [Ping timeout: 244 seconds] 17:24:50 -!- carleastlund [~cce@209-6-40-238.c3-0.smr-ubr1.sbo-smr.ma.cable.rcn.com] has quit [Ping timeout: 244 seconds] 17:24:50 -!- Guest80248 [~jdlouhy@zerowing.ccs.neu.edu] has quit [Ping timeout: 244 seconds] 17:24:50 -!- finnrobi [~robb@xvm-20-190.ghst.net] has quit [Ping timeout: 244 seconds] 17:24:50 -!- Obfuscate [~keii@ip98-176-16-175.sd.sd.cox.net] has quit [Ping timeout: 244 seconds] 17:24:50 -!- bzzbzz [~franco@modemcable023.13-56-74.mc.videotron.ca] has quit [Ping timeout: 244 seconds] 17:24:51 -!- GoKhlaYeh [~GoKhlaYeh@135.51.68.86.rev.sfr.net] has quit [Ping timeout: 244 seconds] 17:24:51 -!- pchrist [~spirit@gentoo/developer/pchrist] has quit [Ping timeout: 244 seconds] 17:24:51 -!- stamourv [~user@ahuntsic.ccs.neu.edu] has quit [Ping timeout: 244 seconds] 17:24:51 -!- acarrico [~acarrico@pppoe-68-142-39-140.gmavt.net] has quit [Ping timeout: 244 seconds] 17:24:52 -!- roderic [~roderic@zerowing.ccs.neu.edu] has quit [Ping timeout: 240 seconds] 17:24:53 -!- dotemacs [u801@gateway/web/irccloud.com/x-hqsazabmfctrijhe] has quit [Ping timeout: 240 seconds] 17:24:53 -!- DerGuteMoritz [~syn@85.88.17.198] has quit [Ping timeout: 240 seconds] 17:24:53 -!- pothos [~pothos@114-36-224-117.dynamic.hinet.net] has quit [Ping timeout: 240 seconds] 17:24:54 -!- foof [~user@li126-140.members.linode.com] has quit [Ping timeout: 240 seconds] 17:25:07 -!- jeff_ is now known as Guest57933 17:25:07 -!- crypto is now known as Guest50050 17:25:11 carleastlund [~cce@209-6-40-238.c3-0.smr-ubr1.sbo-smr.ma.cable.rcn.com] has joined #scheme 17:25:14 -!- pothos_ is now known as pothos 17:25:59 shachaf [~shachaf@li227-219.members.linode.com] has joined #scheme 17:27:12 -!- Guest50050 is now known as z0d 17:27:18 -!- z0d [~z0d@q.notresp.com] has quit [Changing host] 17:27:18 z0d [~z0d@unaffiliated/z0d] has joined #scheme 17:31:18 -!- realitygrill [~realitygr@thewall.novi.lib.mi.us] has quit [Quit: realitygrill] 17:31:33 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 248 seconds] 17:31:59 attila_lendvai [~attila_le@87.247.52.149] has joined #scheme 17:31:59 -!- attila_lendvai [~attila_le@87.247.52.149] has quit [Changing host] 17:31:59 attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has joined #scheme 17:32:11 Obfuscate [~keii@ip98-176-16-175.sd.sd.cox.net] has joined #scheme 17:33:02 EmmanuelOga [~emmanuel@host83.190-31-137.telecom.net.ar] has joined #scheme 17:33:25 acarrico [~acarrico@pppoe-68-142-39-140.gmavt.net] has joined #scheme 17:33:29 eno [~eno@nslu2-linux/eno] has joined #scheme 17:33:31 -!- wingo [~wingo@218.pool85-50-103.dynamic.orange.es] has quit [Read error: Operation timed out] 17:38:10 -!- teurastaja [~chatzilla@modemcable168.103-58-74.mc.videotron.ca] has quit [Ping timeout: 276 seconds] 17:39:14 -!- attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has quit [Ping timeout: 252 seconds] 17:39:23 -!- DerGuteM1ritz is now known as DerGuteMoritz 17:39:32 dotemacs [u801@gateway/web/irccloud.com/x-wspttflpuitepmcw] has joined #scheme 17:41:51 realitygrill [~realitygr@thewall.novi.lib.mi.us] has joined #scheme 17:43:26 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 272 seconds] 17:43:50 snorble [~snorble@c193-14-18-68.cust.tele2.se] has joined #scheme 17:44:27 eno [~eno@nslu2-linux/eno] has joined #scheme 17:48:38 _schulte_ [~eschulte@adaptive.cs.unm.edu] has joined #scheme 17:49:08 -!- dan64 [~dan64@c-71-206-193-42.hsd1.pa.comcast.net] has quit [Ping timeout: 272 seconds] 17:49:18 -!- lucasaiu [~lucasaiu@176.31.156.98] has quit [Quit: Leaving.] 17:49:50 -!- _schulte_ [~eschulte@adaptive.cs.unm.edu] has quit [Client Quit] 17:49:56 dan64 [~dan64@c-71-206-193-42.hsd1.pa.comcast.net] has joined #scheme 17:50:18 _schulte_ [~eschulte@adaptive.cs.unm.edu] has joined #scheme 17:51:21 attila_lendvai [~attila_le@m212-96-64-87.cust.tele2.kz] has joined #scheme 17:51:21 -!- attila_lendvai [~attila_le@m212-96-64-87.cust.tele2.kz] has quit [Changing host] 17:51:21 attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has joined #scheme 17:52:31 -!- hypnocat [~hypnocat@unaffiliated/hypnocat] has quit [Read error: Connection reset by peer] 17:58:04 -!- kpal [~kpal@janus-nat-128-240-225-120.ncl.ac.uk] has quit [Ping timeout: 245 seconds] 18:02:32 Please, please: no one install Pet Shop or similar games. The developers have tapped into some sort of self-reinforcing pleasure pathways that will ruin your life. 18:02:43 I feel like Freud experimenting with cocaine. 18:03:14 (If only I could write something similar in Scheme.) 18:05:36 nhoi 18:06:29 -!- eno [~eno@nslu2-linux/eno] has quit [Read error: Operation timed out] 18:08:12 -!- woonie [~woonie@nusnet-213-254.dynip.nus.edu.sg] has quit [Ping timeout: 252 seconds] 18:09:39 eno [~eno@nslu2-linux/eno] has joined #scheme 18:11:33 -!- lusory [~bart@bb115-66-195-54.singnet.com.sg] has quit [Ping timeout: 248 seconds] 18:14:20 offby1: Pet Shop is really just a proxy for this crack-like compound of bling-bling, social gaming and other tricks whereby these pocket sirens ensnare their owners and feed on their wallets. 18:15:11 The island of these two-bit games, liken Sirenum scopuli, is littered with the rotting corpses of gutted wallets. 18:15:26 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 245 seconds] 18:16:33 eno [~eno@nslu2-linux/eno] has joined #scheme 18:17:48 fascinating Captain 18:18:11 tom_i [~thomasing@ingserv.demon.co.uk] has joined #scheme 18:18:29 -!- albert-s_ [~albert-si@24-205-81-111.dhcp.psdn.ca.charter.com] has quit [Remote host closed the connection] 18:19:07 -!- tuubow [~adityavit@c-69-136-105-164.hsd1.nj.comcast.net] has quit [Ping timeout: 276 seconds] 18:22:00 -!- realitygrill [~realitygr@thewall.novi.lib.mi.us] has quit [Quit: realitygrill] 18:23:48 -!- bytbox [~s@129.2.129.228] has quit [Quit: Lost terminal] 18:25:48 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 255 seconds] 18:27:30 eno [~eno@adsl-70-137-133-209.dsl.snfc21.sbcglobal.net] has joined #scheme 18:27:37 -!- eno [~eno@adsl-70-137-133-209.dsl.snfc21.sbcglobal.net] has quit [Changing host] 18:27:37 eno [~eno@nslu2-linux/eno] has joined #scheme 18:29:24 -!- attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has quit [Ping timeout: 255 seconds] 18:31:12 -!- githogori [~githogori@c-50-131-15-16.hsd1.ca.comcast.net] has quit [Ping timeout: 255 seconds] 18:31:26 stamourv [~user@ahuntsic.ccs.neu.edu] has joined #scheme 18:34:00 klutometis: is that a farmville-alike or something? 18:37:41 ijp`: Must be; I missed that whole degeneracy in the mid-aughts, and now it's finally caught up to me. 18:38:06 gremmachook [u1735@gateway/web/irccloud.com/x-rkigvkthxnasydmf] has joined #scheme 18:39:29 rudybot: we are but rats, hammering away at the lever for a fix 18:39:29 ijp`: we barely have firefox there 18:40:33 Hi, I'm having a hard time trying to figure out writing DFS and BFS in scheme recursively. Googling has led me to results which I don't completely understand, and most of them are with a "start" and a "goal" node, which is not you want if you'd like to traverse the complete graph. Any place where this is explained intuitively? 18:47:57 albert-sicp [~albert-si@24-205-81-111.dhcp.psdn.ca.charter.com] has joined #scheme 18:48:07 -!- tom_i [~thomasing@ingserv.demon.co.uk] has quit [Ping timeout: 248 seconds] 18:48:20 albert-sicp: http://en.wikipedia.org/wiki/Lordosis_behavior 18:51:48 ijp`: It's apparently known as a "Skinner Box": . 18:56:28 kk` [~kk@unaffiliated/kk/x-5380134] has joined #scheme 18:57:31 -!- pchrist_ [~spirit@gentoo/developer/pchrist] has quit [Ping timeout: 245 seconds] 18:57:56 -!- LeoNerd [~leo@cel.leonerd.org.uk] has quit [Ping timeout: 245 seconds] 18:58:04 -!- MrFahrenheit [~RageOfTho@users-38-111.vinet.ba] has quit [Ping timeout: 245 seconds] 18:59:15 gremmachook: I would think Wikipedia would explain 'em 18:59:19 Splasher_2 [~splasher@luz95-1-88-174-81-134.fbx.proxad.net] has joined #scheme 18:59:26 it's possible that I could describe them simply ... 18:59:36 -!- Splasher_2 [~splasher@luz95-1-88-174-81-134.fbx.proxad.net] has quit [Client Quit] 18:59:52 gremmachook: depth first search isn't very difficult to do recursively, breadth first is rather uglier 19:00:03 s/rather// 19:00:26 not _much_ uglier 19:00:30 you just need a queue 19:01:16 that said, there is a nice solution using unfold IIRC 19:04:07 mmc1 [~michal@178-85-131-65.dynamic.upc.nl] has joined #scheme 19:04:42 offby1: yeah, but It hinges on what he means by writing it recursively 19:04:42 rudybot: doc unfold 19:04:51 *offby1: no docs for a current binding, but provided by: srfi/1 19:04:51 ijp`: Oh, cool; I'd like to see that, actually. 19:04:59 ijp`: ah, I missed that bit 19:05:05 pchrist [~spirit@gentoo/developer/pchrist] has joined #scheme 19:10:45 -!- soveran_ is now known as soveran 19:14:45 rudybot: (require srfi/1) 19:14:45 ijp`: your sandbox is ready 19:14:46 ijp`: Done. 19:14:59 rudybot: (define value car) 19:14:59 ijp`: Done. 19:15:05 rudybot: (define kids cdr) 19:15:05 ijp`: Done. 19:15:20 rudybot: (define t '(a (b (d (g))) (c (e) (f)))) 19:15:21 ijp`: Done. 19:15:38 rudybot: (define (bft tree) (unfold null? (lambda (x) (map value x)) (lambda (y) (concatenate (map kids y))) (list tree))) 19:15:38 ijp`: Done. 19:15:44 rudybot: (bft t) 19:15:45 ijp`: ; Value: ((a) (b c) (d e f) (g)) 19:15:51 klutometis: ^^ 19:17:05 the paper "the under-appreciated unfold" goes into more detail, including how the traditional queue implementation can be derived from the unfolded version 19:17:49 slick 19:18:26 ThePawnBreak [~quassel@94.177.108.25] has joined #scheme 19:19:39 -!- larpthawks is now known as larpsocks 19:19:59 ijp`: Thanks; that's a great paper. Yeah, unfold is a gem I try to incorporate when the pattern fits. Don't see it nearly enough. 19:20:03 tom_i [~thomasing@ingserv.demon.co.uk] has joined #scheme 19:20:33 so, a breadth-first-search becomes (define (bfs pred? t) (and=> (filter pred? (bft t)) car)) 19:20:46 erm (concatenate (bft t)) 19:21:00 with streams, it could even be efficient 19:24:09 lusory [~bart@bb115-66-195-54.singnet.com.sg] has joined #scheme 19:25:49 ijp`: I don't use streams nearly enough; I've been spoiled by e.g. the default laziness Clojure. I suspect Racket has a similar mode. 19:26:02 *klutometis* should discipline himself to use explicit laziness via streams. 19:26:28 "of Clojure," even. 19:31:18 ijp`` [~user@host86-177-154-20.range86-177.btcentralplus.com] has joined #scheme 19:31:31 -!- ijp`` is now known as ijp 19:33:26 -!- tom_i [~thomasing@ingserv.demon.co.uk] has quit [Ping timeout: 248 seconds] 19:34:26 rudybot: doc concatenate 19:34:26 *offby1: no docs for a current binding, but provided by: srfi/1 19:34:31 -!- ijp` [~user@host86-182-157-0.range86-182.btcentralplus.com] has quit [Ping timeout: 276 seconds] 19:34:32 rudybot: (require srfi/1) 19:34:32 *offby1: Done. 19:34:34 rudybot: doc concatenate 19:34:34 *offby1: http://docs.racket-lang.org/srfi-std/srfi-1.html#concatenate 19:34:55 *offby1* always spelled that "apply append" 19:46:28 stis [~stis@1-1-1-39a.veo.vs.bostream.se] has joined #scheme 19:52:48 tuubow [~adityavit@c-69-136-105-164.hsd1.nj.comcast.net] has joined #scheme 19:59:58 choas [~lars@p4FDC5642.dip.t-dialin.net] has joined #scheme 20:04:36 realitygrill [~realitygr@thewall.novi.lib.mi.us] has joined #scheme 20:07:00 offby1: concatenate is to be preferred over "apply append". ;-) 20:07:01 -!- jewel [~jewel@196-215-88-26.dynamic.isadsl.co.za] has quit [Ping timeout: 276 seconds] 20:07:48 wingo [~wingo@90.164.198.39] has joined #scheme 20:08:28 -!- ThePawnBreak [~quassel@94.177.108.25] has quit [Ping timeout: 272 seconds] 20:13:30 -!- jonrafkind [~jon@crystalis.cs.utah.edu] has quit [Ping timeout: 252 seconds] 20:14:35 but why? 20:14:55 offby1: Because some Scheme implementations have argument list length limits. 20:15:03 offby1: concatenate won't get stung by that. 20:15:19 A bit similar to the difference between "apply +" and "reduce +". 20:16:14 Implementations that have concatenate implement append using concatenate, not the other way around. 20:17:20 implementation details seem like a nightmare 20:17:25 and undefined behavior, etc... 20:17:31 can't wait for BigBrotherOS 20:17:56 larpsocks: ...uh, what is BigBrotherOS going to do? 20:18:07 shachaf_ [~shachaf@li227-219.members.linode.com] has joined #scheme 20:18:11 be completely standardized 20:18:22 architecture never changes 20:18:23 -!- shachaf_ [~shachaf@li227-219.members.linode.com] has quit [Client Quit] 20:19:25 :-O 20:21:02 -!- albert-sicp [~albert-si@24-205-81-111.dhcp.psdn.ca.charter.com] has quit [Remote host closed the connection] 20:23:14 githogori [~githogori@216.207.36.222] has joined #scheme 20:26:23 bytbox [~s@129.2.129.228] has joined #scheme 20:34:44 karswell_ [~coat@93-97-29-243.zone5.bethere.co.uk] has joined #scheme 20:36:13 -!- karswell [~coat@93-97-29-243.zone5.bethere.co.uk] has quit [Ping timeout: 252 seconds] 20:46:53 rostayob [~rostayob@02d99acf.bb.sky.com] has joined #scheme 20:47:59 *offby1* suspects BigBrotherOS is a media platform ... 20:48:05 specializing in two-way television 20:48:22 as well as "constituent messaging" 20:49:34 bigfg [~b_fin_g@r186-48-194-143.dialup.adsl.anteldata.net.uy] has joined #scheme 20:50:02 *ijp* waits for the well meaning, but ill-conceived free software clone 20:52:44 -!- bfgun [~b_fin_g@r186-48-218-21.dialup.adsl.anteldata.net.uy] has quit [Ping timeout: 252 seconds] 21:04:53 -!- jeapostrophe [~jay@lallab.cs.byu.edu] has quit [Ping timeout: 248 seconds] 21:04:57 -!- kk` [~kk@unaffiliated/kk/x-5380134] has quit [Remote host closed the connection] 21:06:23 ccorn [~ccorn@dhcp-077-249-189-185.chello.nl] has joined #scheme 21:07:11 -!- dzhus [~sphinx@95-25-98-202.broadband.corbina.ru] has quit [Remote host closed the connection] 21:13:19 -!- gravicappa [~gravicapp@ppp91-77-175-50.pppoe.mtu-net.ru] has quit [Ping timeout: 276 seconds] 21:20:09 -!- mmc1 [~michal@178-85-131-65.dynamic.upc.nl] has quit [Ping timeout: 240 seconds] 21:33:44 -!- stis [~stis@1-1-1-39a.veo.vs.bostream.se] has left #scheme 21:38:20 -!- masm [~masm@bl19-175-203.dsl.telepac.pt] has quit [Quit: Leaving.] 21:38:28 MrFahrenheit [~RageOfTho@users-38-111.vinet.ba] has joined #scheme 21:45:41 -!- realitygrill [~realitygr@thewall.novi.lib.mi.us] has quit [Quit: realitygrill] 21:45:43 drwho [~drwho@56-34-237-24.gci.net] has joined #scheme 21:46:08 ijp: It likely already exists. 21:51:13 realitygrill [~realitygr@thewall.novi.lib.mi.us] has joined #scheme 21:52:57 jao [~user@pdpc/supporter/professional/jao] has joined #scheme 21:56:44 masm [~masm@bl19-175-203.dsl.telepac.pt] has joined #scheme 21:58:15 -!- ccorn [~ccorn@dhcp-077-249-189-185.chello.nl] has quit [Quit: ccorn] 22:04:05 -!- masm [~masm@bl19-175-203.dsl.telepac.pt] has quit [Quit: Leaving.] 22:07:43 ccorn [~ccorn@dhcp-077-249-189-185.chello.nl] has joined #scheme 22:09:03 jeapostrophe [~jay@69.169.141.110.provo.static.broadweavenetworks.net] has joined #scheme 22:18:58 kvda [~kvda@124-169-23-5.dyn.iinet.net.au] has joined #scheme 22:22:10 -!- sstrickl [~sstrickl@dublin.ccs.neu.edu] has quit [Quit: sstrickl] 22:26:45 -!- _schulte_ [~eschulte@adaptive.cs.unm.edu] has quit [Ping timeout: 248 seconds] 22:28:01 -!- soveran [~soveran@186.19.214.247] has quit [Remote host closed the connection] 22:29:54 karswell__ [~coat@93-97-29-243.zone5.bethere.co.uk] has joined #scheme 22:29:54 soveran [~soveran@186.19.214.247] has joined #scheme 22:31:49 -!- karswell_ [~coat@93-97-29-243.zone5.bethere.co.uk] has quit [Ping timeout: 248 seconds] 22:40:15 -!- soveran [~soveran@186.19.214.247] has quit [Remote host closed the connection] 22:41:42 gozoner [~ebg@ip68-6-72-36.sb.sd.cox.net] has joined #scheme 22:41:42 -!- gozoner [~ebg@ip68-6-72-36.sb.sd.cox.net] has quit [Client Quit] 22:46:16 -!- langmartin [~user@host-68-169-155-216.WISOLT2.epbfi.com] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 22:49:41 -!- jeapostrophe [~jay@69.169.141.110.provo.static.broadweavenetworks.net] has quit [Ping timeout: 260 seconds] 22:50:01 -!- EmmanuelOga [~emmanuel@host83.190-31-137.telecom.net.ar] has quit [Ping timeout: 244 seconds] 22:50:27 -!- choas [~lars@p4FDC5642.dip.t-dialin.net] has quit [Ping timeout: 245 seconds] 22:50:32 -!- bweaver [~user@host-68-169-158-230.WISOLT2.epbfi.com] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 22:52:06 masm [~masm@2.80.175.203] has joined #scheme 22:56:12 -!- realitygrill [~realitygr@thewall.novi.lib.mi.us] has quit [Quit: realitygrill] 23:00:02 karswell [~coat@93-97-29-243.zone5.bethere.co.uk] has joined #scheme 23:00:12 -!- em [~em@unaffiliated/emma] has quit [Read error: Operation timed out] 23:00:59 -!- karswell__ [~coat@93-97-29-243.zone5.bethere.co.uk] has quit [Ping timeout: 245 seconds] 23:10:10 -!- bytbox [~s@129.2.129.228] has quit [Ping timeout: 244 seconds] 23:12:14 bytbox [~s@129.2.129.228] has joined #scheme 23:12:25 realitygrill [~realitygr@thewall.novi.lib.mi.us] has joined #scheme 23:14:15 larpsocks: Oh, you're talking about UEFI? 23:14:53 heh 23:16:12 -!- realitygrill [~realitygr@thewall.novi.lib.mi.us] has quit [Client Quit] 23:17:02 _schulte_ [~eschulte@209.234.140.58] has joined #scheme 23:19:45 -!- ccorn [~ccorn@dhcp-077-249-189-185.chello.nl] has quit [Quit: ccorn] 23:21:00 -!- wingo [~wingo@90.164.198.39] has quit [Ping timeout: 272 seconds] 23:22:53 em [~em@unaffiliated/emma] has joined #scheme 23:24:53 -!- fgudin [~fgudin@odin.sdf-eu.org] has quit [Remote host closed the connection] 23:24:58 ticking [~janpaulbu@87.253.189.132] has joined #scheme 23:29:21 -!- _schulte_ [~eschulte@209.234.140.58] has quit [Ping timeout: 260 seconds] 23:30:52 airolson [~airolson@CPE00222d55a738-CM00222d55a735.cpe.net.cable.rogers.com] has joined #scheme 23:32:37 jonrafkind [~jon@jonr5.dsl.xmission.com] has joined #scheme 23:34:28 jrslepak [~jrslepak@c-71-233-151-135.hsd1.ma.comcast.net] has joined #scheme 23:37:57 mister_m [~mattosaur@2620:0:2250:2110:223:5aff:fe7e:cc97] has joined #scheme 23:39:43 fgudin [~fgudin@odin.sdf-eu.org] has joined #scheme 23:45:19 -!- mintsoup [~mintsoup@173-164-33-21-colorado.hfc.comcastbusiness.net] has quit [Read error: Connection reset by peer] 23:46:44 -!- copumpkin [~copumpkin@unaffiliated/pumpkingod] has quit [Quit: Computer has gone to sleep.] 23:47:09 -!- tuubow [~adityavit@c-69-136-105-164.hsd1.nj.comcast.net] has quit [Ping timeout: 240 seconds]