00:02:58 -!- mmc1 [~michal@178-85-60-41.dynamic.upc.nl] has quit [Ping timeout: 246 seconds] 00:07:13 -!- pepijndevos is now known as pepijn_away 00:11:21 doomrobo [~doomrobo@cpe-72-225-251-161.nyc.res.rr.com] has joined #scheme 00:12:06 how can I use a macro within a macro? Racket says that top-level-defined macros are not available in phase-1 00:21:33 if that was completely incoherent: how do I use macros within macros? 00:22:31 -!- phax [~phax@unaffiliated/phax] has quit [Quit: Leaving] 00:22:50 -!- gffa [~unknown@unaffiliated/gffa] has quit [Quit: sleep] 00:24:18 -!- tejaswidp [~tejaswidp@117.192.138.167] has quit [Read error: Connection timed out] 00:25:05 tejaswidp [~tejaswidp@117.192.138.167] has joined #scheme 00:35:45 I think it's not working because I'm using it in the definition part of a let statement 00:36:56 Could you show your code? E.g., with lisppaste: . 00:38:13 fantazo [~fantazo@91-119-99-99.dynamic.xdsl-line.inode.at] has joined #scheme 00:38:41 Riastradh, I currently only have working testcases 00:38:46 there's something else going on here 00:39:25 mmc1 [~michal@178-85-60-41.dynamic.upc.nl] has joined #scheme 00:42:40 I think I pinpointed it, I'm calling it in the transformation environment because I call syntax-rules 00:43:34 -!- jonrafkind [~jon@racket/jonrafkind] has quit [Ping timeout: 260 seconds] 00:56:09 I'm curious to see your code anyway! 00:56:27 Phasing can be tricky to wrap one's head around. 00:56:53 Riastradh, sure, you won't like it, though 00:59:09 http://pastebin.com/LKn967iv 00:59:54 -!- mmc1 [~michal@178-85-60-41.dynamic.upc.nl] has quit [Ping timeout: 260 seconds] 01:02:44 -!- tejaswidp [~tejaswidp@117.192.138.167] has quit [Ping timeout: 244 seconds] 01:06:43 Giomancer [~Gio@adsl-76-231-35-17.dsl.irvnca.sbcglobal.net] has joined #scheme 01:15:20 tejaswidp [~tejaswidp@117.192.145.235] has joined #scheme 01:18:06 Chances are, (set! l ...) and (set! item ...) aren't doing what you expect them to do. 01:18:28 -!- kilimanjaro [~kilimanja@unaffiliated/kilimanjaro] has quit [Ping timeout: 245 seconds] 01:20:38 Sorry, (set! l ...) will, but (set! item ...) won't, because (set! l ...) is part of a macro expansion template where L is a pattern variable, and (set! item ...) is part of a procedure where ITEM is a normal variable. 01:20:48 lcc [~lcc-pi@unaffiliated/lcc] has joined #scheme 01:25:42 Rather than using the local procedure POP-TO, which is hard to test independently and which won't do the SET!s as I suspect you expect, why don't you make a separate POP-TO macro that you can test separately? 01:28:57 Quadrescence [~quad@unaffiliated/quadrescence] has joined #scheme 01:42:52 Riastradh, I've gotten it to work more or less 01:43:05 I'll show you the code when I'm done (few minutes) 01:43:24 doomrobo: which scheme are you running this on? 01:43:35 close-paren, racket, I know it's not quite scheme 01:44:14 Oh, got it. I was gonna say, that didn't quite look like scheme. :) 01:46:51 Riastradh, whoops, made a huge mistake, turns out it's all useless 01:46:52 but it works 01:47:12 I just copied a list and set! something else to it 01:48:34 how do I unquote something, like get the symbol a from 'a? 01:48:39 Yeah, shouldn't for-each take a list too? 01:48:56 Or is this your own function? 01:49:00 close-paren, I need all list iterations to be just that, iterations 01:49:03 they must be flat 01:49:10 because I'm using set! in the outer environemnt 01:49:22 otherwise it wouldn't do anything 01:49:37 Yes, but for-each was given just one parameter 01:49:39 rudybot: eval (cadr ''a) 01:49:39 Riastradh: your sandbox is ready 01:49:39 Riastradh: ; Value: a 01:50:52 rudybot: eval (let ((a 5)) (display (cadr ''a))) 01:50:53 doomrobo: your sandbox is ready 01:50:53 doomrobo: ; stdout: "a" 01:51:00 Riastradh, not quite 01:51:36 Do you was "a" or the value of "a"? 01:51:39 The choice of names you made for your variables in the text of your program has no connection, a priori, to the data structures that your program manipulates. 01:51:49 If you want to draw a connection, you'll have to do it explicitly. 01:51:51 For example, 01:52:14 rudybot: eval (let ((a 5)) (let ((env (list (list 'a a)))) (cadr (assq 'a env)))) 01:52:15 Riastradh: ; Value: 5 01:52:38 Riastradh, any simpler way of doing that? 01:52:40 Note that this program behaves the same if I rename the local variable: 01:52:46 rudybot: eval (let ((b 5)) (let ((env (list (list 'a b)))) (cadr (assq 'a env)))) 01:52:46 Riastradh: ; Value: 5 01:53:14 This is a very important property of the language: you can rename your variables without changing the behaviour of your program. If that weren't the case, it would be incredibly difficult to reason about programs! 01:55:12 If you really want to use the same name for a variable and for a data structure, you can use a macro to do that: (define-syntax environment-alist (syntax-rules () ((ENVIRONMENT-ALIST variable ...) (LIST (LIST 'variable variable) ...)))). 01:55:28 Riastradh, here's the thing, I'm getting a list of symbols (like (list 'a 'b 'c)) and a list of literals like (list 1 2 3) and I have to assign the latter to the corresponding former symbols 01:56:11 Well, in that case, you can store, instead of the value of some variable, a procedure for reading the current value and a procedure for setting the current value to something else. For example: 01:56:41 Riastradh, no, that's not an option for me 01:56:45 it has to be direct 01:57:05 rudybot: eval (let ((a 0)) (let ((env (list (list 'a (lambda () a) (lambda (x) (set! a x)))))) (define (fetch symbol) ((cadr (assq symbol env)))) (define (store! symbol value) ((caddr (assq symbol env)) value)) (display (fetch 'a)) (newline) (store! 'a 5) (display (fetch 'a)) (newline))) 01:57:05 Riastradh: ; stdout: "0\n5\n" 01:57:18 What do you mean by `direct'? 01:57:22 Well, then you'll need first class environments -- eww 01:57:41 I mean it can't go by functions, it must be accessed directly by its symbol 01:57:57 and set! directly as well 01:58:05 Can you step back a moment and explain what the context is, and where this requirement comes from? 01:58:24 Riastradh, I'm attempting to write Perl in Scheme and I'm starting to realize it's almost impossible 01:58:30 there's a function called shift 01:58:38 where you have something like this: 01:59:00 ($var1, $var2, $var3) = shift(@array_of_values) 01:59:10 -!- tejaswidp [~tejaswidp@117.192.145.235] has quit [Ping timeout: 246 seconds] 01:59:28 so it takes the first 3 values from @array_of_values and sets the corresponding variables to them 01:59:31 Well, perhaps you'd like this: (receive (x y z) (apply values array-of-values) ...) 01:59:37 ew 01:59:50 (shift '(a b c) '(1 2 3)) 02:00:02 That, or, if you really want to modify variables rather than bind them, (set!-values (x y z) (apply values array-of-values)). 02:00:05 I don't even know if it's possible 02:00:40 that might work 02:00:44 It sounds like you want (let ((a 0)) (shift '(a) '(0)) a) and (let ((b 0)) (shift '(a) '(0)) b) to behave differently, which won't happen. 02:01:06 That is, which won't happen if SHIFT is a procedure. 02:01:49 I've already assumed it's not 02:01:55 macro 02:02:19 Well, in that case, is SET!-VALUES good enough for what you want? 02:02:30 I believe so, thanks! 02:03:45 what does the (apply values array-of-values) do? 02:04:24 doesn't it take a procedure? 02:04:27 It turns a single value, in particular a list, into multiple return values. 02:05:01 oh, forgot values is a proc 02:05:53 also, how do I check if a variable is defined? 02:07:46 kilimanjaro [~kilimanja@unaffiliated/kilimanjaro] has joined #scheme 02:09:52 That's not something that you can do at run-time -- whether a name is in your lexical environment in the text of a program is determined when you read the program, not when you run it, and the names aren't part of the behaviour of the program when you run it. 02:10:00 What would you want to do with that information? 02:10:29 -!- amgarchIn9 [~amgarchin@p4FD603D1.dip0.t-ipconnect.de] has quit [Quit: Konversation terminated!] 02:11:19 tejaswidp [~tejaswidp@117.192.130.97] has joined #scheme 02:11:49 Riastradh, you know what? this is really not a good idea 02:11:58 I'm trying to write an imperative language in Scheme 02:15:06 bluephoenix47: a while ago, Phillip Mates was. Don't know if he still is: http://lists.ccs.neu.edu/pipermail/prl/2012q3/002866.html 02:15:14 Oh 02:15:16 Sorry wrong channel 02:16:28 -!- kilimanjaro [~kilimanja@unaffiliated/kilimanjaro] has quit [Ping timeout: 240 seconds] 02:18:31 -!- phao [phao@177.174.68.59] has quit [Quit: Not Here] 02:21:09 phao [phao@177.174.68.59] has joined #scheme 02:23:32 -!- pepijn_away is now known as pepijndevos 02:31:04 -!- doomrobo [~doomrobo@cpe-72-225-251-161.nyc.res.rr.com] has quit [Quit: gn] 02:38:10 -!- pepijndevos is now known as pepijn_away 02:43:11 -!- pepijn_away is now known as pepijndevos 02:43:32 -!- Aune [~Arne@h-152-28.a163.priv.bahnhof.se] has quit [Quit: Lämnar] 02:43:37 -!- lcc [~lcc-pi@unaffiliated/lcc] has quit [Quit: leaving] 02:53:57 -!- pepijndevos is now known as pepijn_away 03:06:12 yoklov [~yoklov@66-168-47-170.dhcp.nwtn.ct.charter.com] has joined #scheme 03:07:16 jonrafkind [~jon@racket/jonrafkind] has joined #scheme 03:13:19 -!- jonrafkind [~jon@racket/jonrafkind] has quit [Ping timeout: 272 seconds] 03:26:09 jonrafkind [~jon@racket/jonrafkind] has joined #scheme 03:42:54 -!- DKordic [~DKordic@178.222.76.107] has quit [Quit: Leaving] 03:49:55 lcc [~lcc-pi@unaffiliated/lcc] has joined #scheme 03:59:18 -!- lcc [~lcc-pi@unaffiliated/lcc] has quit [Quit: leaving] 04:03:33 -!- peeeep [~potato@70-138-242-181.lightspeed.hstntx.sbcglobal.net] has left #scheme 04:04:04 lcc [~lcc-pi@unaffiliated/lcc] has joined #scheme 04:12:22 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 04:13:18 bro_grammer [~quassel@70-138-242-181.lightspeed.hstntx.sbcglobal.net] has joined #scheme 04:13:34 -!- hive-min1 [pranq@unaffiliated/contempt] has quit [Ping timeout: 260 seconds] 04:14:16 -!- anntzer [~antony@gyrus.Berkeley.EDU] has quit [Quit: leaving] 04:14:47 -!- hash_table [~quassel@70-138-242-181.lightspeed.hstntx.sbcglobal.net] has quit [Ping timeout: 240 seconds] 04:16:42 bzzbzz [~franco@modemcable216.122-57-74.mc.videotron.ca] has joined #scheme 04:19:07 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 240 seconds] 04:20:05 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 04:26:23 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 245 seconds] 04:28:00 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 04:35:03 -!- lcc [~lcc-pi@unaffiliated/lcc] has quit [Quit: leaving] 04:42:00 close-paren` [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has joined #scheme 04:45:08 -!- Khisanth [~Khisanth@50.14.244.111] has quit [Ping timeout: 246 seconds] 04:58:42 Khisanth [~Khisanth@50.14.244.111] has joined #scheme 05:01:36 -!- sambio [~cc@190.57.227.107] has quit [] 05:07:17 lcc [~lcc-pi@unaffiliated/lcc] has joined #scheme 05:08:25 -!- arbscht [~arbscht@fsf/member/arbscht] has quit [Quit: WeeChat 0.3.8] 05:12:06 arbscht [~arbscht@fsf/member/arbscht] has joined #scheme 05:14:53 copumpkin [~copumpkin@unaffiliated/copumpkin] has joined #scheme 05:15:10 -!- jao [~user@pdpc/supporter/professional/jao] has quit [Ping timeout: 246 seconds] 05:17:41 -!- bro_grammer [~quassel@70-138-242-181.lightspeed.hstntx.sbcglobal.net] has quit [Ping timeout: 265 seconds] 05:19:31 confab_ [~confab@086.112-30-64.ftth.swbr.surewest.net] has joined #scheme 05:20:15 -!- confab [~confab@086.112-30-64.ftth.swbr.surewest.net] has quit [Read error: Connection reset by peer] 05:20:33 -!- confab_ is now known as confab 05:31:44 -!- close-paren` [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Quit: close-paren`] 05:36:29 -!- yoklov [~yoklov@66-168-47-170.dhcp.nwtn.ct.charter.com] has quit [Quit: bye!] 05:42:53 -!- Giomancer [~Gio@adsl-76-231-35-17.dsl.irvnca.sbcglobal.net] has quit [Quit: Life without danger is a waste of oxygen] 05:51:52 kilimanjaro [~kilimanja@unaffiliated/kilimanjaro] has joined #scheme 06:04:35 BossKonaSegwaY [~Michael@cpe-69-133-27-32.cinci.res.rr.com] has joined #scheme 06:12:07 gravicappa [~gravicapp@ppp91-77-222-253.pppoe.mtu-net.ru] has joined #scheme 06:12:13 -!- MrFahrenheit [~RageOfTho@cable-77-221-25-246.dynamic.vinet.ba] has quit [Ping timeout: 246 seconds] 06:14:13 -!- copumpkin [~copumpkin@unaffiliated/copumpkin] has quit [Ping timeout: 252 seconds] 06:14:52 copumpkin [~copumpkin@unaffiliated/copumpkin] has joined #scheme 06:18:04 close-paren` [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has joined #scheme 06:20:20 -!- close-paren` [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Client Quit] 06:21:31 answer_42 [~answer_42@gateway/tor-sasl/answer42/x-66983568] has joined #scheme 06:42:02 -!- lcc [~lcc-pi@unaffiliated/lcc] has quit [Quit: leaving] 06:43:04 lcc [~user@unaffiliated/lcc] has joined #scheme 06:44:08 vu3rdd [~vu3rdd@122.167.127.239] has joined #scheme 06:44:08 -!- vu3rdd [~vu3rdd@122.167.127.239] has quit [Changing host] 06:44:08 vu3rdd [~vu3rdd@fsf/member/vu3rdd] has joined #scheme 06:52:31 -!- wbooze [~wbooze@xdsl-84-44-179-210.netcologne.de] has quit [Ping timeout: 244 seconds] 07:03:15 -!- close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Ping timeout: 268 seconds] 07:03:38 close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has joined #scheme 07:09:28 BossKonaSegwaY1 [~Michael@cpe-69-133-27-32.cinci.res.rr.com] has joined #scheme 07:09:33 -!- BossKonaSegwaY1 [~Michael@cpe-69-133-27-32.cinci.res.rr.com] has left #scheme 07:10:26 -!- BossKonaSegwaY [~Michael@cpe-69-133-27-32.cinci.res.rr.com] has quit [Ping timeout: 252 seconds] 07:19:28 -!- close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Ping timeout: 240 seconds] 07:20:10 -!- vu3rdd [~vu3rdd@fsf/member/vu3rdd] has quit [Read error: Connection reset by peer] 07:25:54 close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has joined #scheme 07:35:22 -!- leppie [~lolcow@196-210-165-161.dynamic.isadsl.co.za] has quit [Ping timeout: 252 seconds] 07:37:57 -!- jonrafkind [~jon@racket/jonrafkind] has quit [Ping timeout: 248 seconds] 07:40:13 leo2007 [~leo@123.114.56.118] has joined #scheme 07:41:55 realitygrill [~realitygr@ool-18ba55c0.dyn.optonline.net] has joined #scheme 07:43:12 leppie [~lolcow@196-210-165-161.dynamic.isadsl.co.za] has joined #scheme 07:44:42 -!- leppie [~lolcow@196-210-165-161.dynamic.isadsl.co.za] has quit [Read error: No route to host] 07:45:16 leppie [~lolcow@196-210-165-161.dynamic.isadsl.co.za] has joined #scheme 07:47:03 MichaelRaskin [~MichaelRa@3ad50e34.broker.freenet6.net] has joined #scheme 07:49:43 -!- leppie [~lolcow@196-210-165-161.dynamic.isadsl.co.za] has quit [Ping timeout: 245 seconds] 07:50:17 -!- bipt [~bpt@cpe-071-070-253-241.nc.res.rr.com] has quit [Ping timeout: 252 seconds] 07:52:05 -!- realitygrill [~realitygr@ool-18ba55c0.dyn.optonline.net] has quit [Quit: Get MacIrssi - http://www.sysctl.co.uk/projects/macirssi/] 07:52:20 leppie [~lolcow@196-210-165-161.dynamic.isadsl.co.za] has joined #scheme 08:02:27 attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has joined #scheme 08:05:47 -!- tejaswidp [~tejaswidp@117.192.130.97] has quit [Read error: Connection timed out] 08:06:53 tejaswidp [~tejaswidp@117.192.130.97] has joined #scheme 08:12:16 mmc1 [~michal@178-85-60-41.dynamic.upc.nl] has joined #scheme 08:24:33 -!- tejaswidp [~tejaswidp@117.192.130.97] has quit [Read error: Connection timed out] 08:37:46 bfgun [~b_fin_g@r186-52-169-149.dialup.adsl.anteldata.net.uy] has joined #scheme 08:39:27 -!- attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has quit [Quit: Leaving.] 08:40:33 -!- phao [phao@177.174.68.59] has quit [Quit: Not Here] 08:40:51 -!- bfig [~b_fin_g@r190-135-47-233.dialup.adsl.anteldata.net.uy] has quit [Ping timeout: 245 seconds] 08:46:42 choas [~lars@p5795C09C.dip.t-dialin.net] has joined #scheme 08:52:24 -!- kilimanjaro [~kilimanja@unaffiliated/kilimanjaro] has quit [Ping timeout: 268 seconds] 09:08:39 -!- choas [~lars@p5795C09C.dip.t-dialin.net] has quit [Ping timeout: 246 seconds] 09:24:38 -!- gravicappa [~gravicapp@ppp91-77-222-253.pppoe.mtu-net.ru] has quit [Read error: Connection reset by peer] 09:37:28 -!- wingo [~wingo@89.131.176.233] has quit [Ping timeout: 252 seconds] 09:40:40 masm [~masm@bl18-32-109.dsl.telepac.pt] has joined #scheme 09:51:52 add^_ [~add^_@m90-130-55-137.cust.tele2.se] has joined #scheme 09:55:22 pnpuff [~pnpuff@gateway/tor-sasl/pnpuff] has joined #scheme 10:00:32 -!- Riastradh [~riastradh@fsf/member/riastradh] has quit [Remote host closed the connection] 10:01:01 Riastradh [~riastradh@fsf/member/riastradh] has joined #scheme 10:05:54 -!- Gues_____ [~textual@101.224.19.129] has quit [Quit: Computer has gone to sleep.] 10:10:35 -!- fold [~fold@71-8-117-85.dhcp.ftwo.tx.charter.com] has quit [Ping timeout: 246 seconds] 10:15:46 amgarchIn9 [~amgarchin@p4FD601DB.dip0.t-ipconnect.de] has joined #scheme 10:36:59 tejaswidp [~tejaswidp@117.192.153.192] has joined #scheme 10:46:09 superjudge [~superjudg@c83-250-198-227.bredband.comhem.se] has joined #scheme 10:47:01 marenostrum [~marenostr@78.191.146.140] has joined #scheme 10:53:56 -!- tejaswidp [~tejaswidp@117.192.153.192] has quit [Read error: Connection timed out] 10:54:58 tejaswidp [~tejaswidp@117.192.153.192] has joined #scheme 11:05:28 -!- cdidd [~cdidd@128-72-30-63.broadband.corbina.ru] has quit [Ping timeout: 252 seconds] 11:15:19 -!- tejaswidp [~tejaswidp@117.192.153.192] has quit [Read error: Connection timed out] 11:15:59 tejaswidp [~tejaswidp@117.192.153.192] has joined #scheme 11:16:35 -!- sstrickl [~sstrickl@racket/sstrickl] has quit [Quit: sstrickl] 11:17:56 attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has joined #scheme 11:21:38 -!- answer_42 [~answer_42@gateway/tor-sasl/answer42/x-66983568] has quit [Remote host closed the connection] 11:21:40 hive-min1 [pranq@unaffiliated/contempt] has joined #scheme 11:22:46 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 244 seconds] 11:23:47 answer_42 [~answer_42@gateway/tor-sasl/answer42/x-66983568] has joined #scheme 11:24:42 -!- attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has quit [Quit: Leaving.] 11:25:20 mig21a [~mig@111.65.28.21] has joined #scheme 11:26:35 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 11:27:06 -!- hive-min1 [pranq@unaffiliated/contempt] has quit [Ping timeout: 252 seconds] 11:28:07 -!- b4283 [~b4283@114-47-5-179.dynamic.hinet.net] has quit [Remote host closed the connection] 11:29:43 -!- lcc [~user@unaffiliated/lcc] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 11:31:16 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 245 seconds] 11:31:34 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 11:32:35 b4283 [~b4283@114-47-5-179.dynamic.hinet.net] has joined #scheme 11:34:10 -!- add^_ [~add^_@m90-130-55-137.cust.tele2.se] has quit [Quit: add^_] 11:34:44 -!- SeanTAllen [u4855@gateway/web/irccloud.com/x-uvkktwarmuzgcjxe] has quit [Remote host closed the connection] 11:34:44 gffa [~unknown@unaffiliated/gffa] has joined #scheme 11:36:53 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 252 seconds] 11:37:43 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 11:38:19 -!- tejaswidp [~tejaswidp@117.192.153.192] has quit [Read error: Connection timed out] 11:38:53 tejaswidp [~tejaswidp@117.192.153.192] has joined #scheme 11:41:49 SeanTAllen [u4855@gateway/web/irccloud.com/x-aiubamrmjsnpdrhg] has joined #scheme 11:42:28 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 240 seconds] 11:46:30 wingo [~wingo@89.131.176.233] has joined #scheme 11:47:03 wbooze [~wbooze@xdsl-84-44-155-217.netcologne.de] has joined #scheme 11:48:30 -!- fantazo [~fantazo@91-119-99-99.dynamic.xdsl-line.inode.at] has quit [Remote host closed the connection] 11:51:08 lcc [~user@unaffiliated/lcc] has joined #scheme 11:53:50 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 11:54:21 airolson [~airolson@CPE00222d55a738-CM00222d55a735.cpe.net.cable.rogers.com] has joined #scheme 11:55:12 add^_ [~add^_@m90-130-55-137.cust.tele2.se] has joined #scheme 11:58:22 -!- tejaswidp [~tejaswidp@117.192.153.192] has quit [Read error: Connection timed out] 11:58:51 tejaswidp [~tejaswidp@117.192.153.192] has joined #scheme 12:01:16 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 245 seconds] 12:07:44 Aune [~Arne@h-152-28.a163.priv.bahnhof.se] has joined #scheme 12:16:44 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 12:17:58 -!- mig21a [~mig@111.65.28.21] has quit [Quit: Colloquy for iPhone - http://colloquy.mobi] 12:18:09 mig21a [~mig@111.65.28.21] has joined #scheme 12:19:15 -!- tejaswidp [~tejaswidp@117.192.153.192] has quit [Read error: Connection timed out] 12:20:00 tejaswidp [~tejaswidp@117.192.153.192] has joined #scheme 12:22:52 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 246 seconds] 12:35:05 DT``` [~ea@95.234.194.234] has joined #scheme 12:35:26 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 12:35:28 -!- DT`` [~ea@95.234.194.234] has quit [Ping timeout: 246 seconds] 12:35:47 -!- DT``` is now known as DT`` 12:39:43 -!- tejaswidp [~tejaswidp@117.192.153.192] has quit [Read error: Connection timed out] 12:39:53 vu3rdd [~vu3rdd@122.167.254.52] has joined #scheme 12:39:53 -!- vu3rdd [~vu3rdd@122.167.254.52] has quit [Changing host] 12:39:53 vu3rdd [~vu3rdd@fsf/member/vu3rdd] has joined #scheme 12:40:26 tejaswidp [~tejaswidp@117.192.153.192] has joined #scheme 12:40:47 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 240 seconds] 12:45:56 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 12:50:05 -!- leppie [~lolcow@196-210-165-161.dynamic.isadsl.co.za] has quit [Ping timeout: 244 seconds] 12:51:05 -!- marenostrum [~marenostr@78.191.146.140] has quit [Quit: Leaving] 12:52:38 -!- wingo [~wingo@89.131.176.233] has quit [Ping timeout: 244 seconds] 12:54:48 leppie [~lolcow@196-210-165-161.dynamic.isadsl.co.za] has joined #scheme 12:54:56 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 256 seconds] 13:04:23 -!- tejaswidp [~tejaswidp@117.192.153.192] has quit [Read error: Connection timed out] 13:04:46 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 13:05:03 tejaswidp [~tejaswidp@117.192.153.192] has joined #scheme 13:10:49 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 246 seconds] 13:11:34 hash_table [~quassel@70.138.242.181] has joined #scheme 13:21:02 -!- add^_ [~add^_@m90-130-55-137.cust.tele2.se] has quit [Quit: add^_] 13:21:07 -!- mig21a [~mig@111.65.28.21] has left #scheme 13:23:26 -!- superjudge [~superjudg@c83-250-198-227.bredband.comhem.se] has quit [Quit: Leaving...] 13:23:33 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 13:24:45 add^_ [~add^_@m90-130-55-137.cust.tele2.se] has joined #scheme 13:24:53 superjudge [~superjudg@c83-250-198-227.bredband.comhem.se] has joined #scheme 13:30:29 gabnet [~gabnet@ACaen-257-1-122-252.w86-220.abo.wanadoo.fr] has joined #scheme 13:31:17 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 252 seconds] 13:42:03 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 13:45:33 lcc` [~user@75-173-94-225.albq.qwest.net] has joined #scheme 13:46:48 -!- lcc [~user@unaffiliated/lcc] has quit [Ping timeout: 252 seconds] 13:48:05 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 248 seconds] 13:52:31 bro_grammer [~quassel@70-138-242-181.lightspeed.hstntx.sbcglobal.net] has joined #scheme 13:52:49 -!- hash_table [~quassel@70.138.242.181] has quit [Ping timeout: 246 seconds] 13:57:08 -!- airolson [~airolson@CPE00222d55a738-CM00222d55a735.cpe.net.cable.rogers.com] has quit [Quit: Computer has gone to sleep.] 14:01:36 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 14:02:14 attila_lendvai [~attila_le@5.34.20.207] has joined #scheme 14:02:14 -!- attila_lendvai [~attila_le@5.34.20.207] has quit [Changing host] 14:02:14 attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has joined #scheme 14:07:28 kuribas [~user@94-227-93-194.access.telenet.be] has joined #scheme 14:09:39 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 244 seconds] 14:14:06 -!- Riastradh [~riastradh@fsf/member/riastradh] has quit [Ping timeout: 276 seconds] 14:15:47 -!- attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has quit [Quit: Leaving.] 14:18:09 phao [phao@177.174.149.44] has joined #scheme 14:19:13 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 14:24:40 -!- superjudge [~superjudg@c83-250-198-227.bredband.comhem.se] has quit [Quit: Leaving...] 14:25:18 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 265 seconds] 14:26:38 -!- gabnet [~gabnet@ACaen-257-1-122-252.w86-220.abo.wanadoo.fr] has quit [Quit: Quitte] 14:27:24 -!- leo2007 [~leo@123.114.56.118] has quit [Read error: Connection reset by peer] 14:30:47 leo2007 [~leo@123.114.56.118] has joined #scheme 14:37:18 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 14:43:09 -!- masm [~masm@bl18-32-109.dsl.telepac.pt] has quit [Ping timeout: 252 seconds] 14:43:38 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 252 seconds] 14:44:31 preflex_ [~preflex@unaffiliated/mauke/bot/preflex] has joined #scheme 14:45:36 -!- preflex [~preflex@unaffiliated/mauke/bot/preflex] has quit [Ping timeout: 265 seconds] 14:45:39 -!- preflex_ is now known as preflex 14:45:58 -!- bzzbzz [~franco@modemcable216.122-57-74.mc.videotron.ca] has quit [Ping timeout: 245 seconds] 14:49:23 -!- pepijn_away is now known as pepijndevos 14:50:51 lcc`` [~user@71-222-130-163.albq.qwest.net] has joined #scheme 14:52:07 -!- lcc` [~user@75-173-94-225.albq.qwest.net] has quit [Ping timeout: 240 seconds] 14:56:36 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 14:56:47 masm [~masm@bl16-219-162.dsl.telepac.pt] has joined #scheme 15:00:21 sambio [~cc@190.57.227.107] has joined #scheme 15:01:55 Riastradh [~riastradh@fsf/member/riastradh] has joined #scheme 15:02:26 -!- close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Ping timeout: 256 seconds] 15:03:41 bipt [~bpt@cpe-071-070-253-241.nc.res.rr.com] has joined #scheme 15:04:10 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 252 seconds] 15:10:38 close-paren [~close-par@50-54-252-216.evrt.wa.frontiernet.net] has joined #scheme 15:15:41 attila_lendvai [~attila_le@5.34.20.207] has joined #scheme 15:15:41 -!- attila_lendvai [~attila_le@5.34.20.207] has quit [Changing host] 15:15:41 attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has joined #scheme 15:17:09 -!- bipt [~bpt@cpe-071-070-253-241.nc.res.rr.com] has quit [Ping timeout: 248 seconds] 15:18:26 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 15:22:07 -!- attila_lendvai [~attila_le@unaffiliated/attila-lendvai/x-3126965] has quit [Quit: Leaving.] 15:26:48 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 245 seconds] 15:30:38 gravicappa [~gravicapp@ppp91-77-222-253.pppoe.mtu-net.ru] has joined #scheme 15:32:54 -!- add^_ [~add^_@m90-130-55-137.cust.tele2.se] has quit [Quit: add^_] 15:37:42 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 15:40:37 kilimanjaro [~kilimanja@unaffiliated/kilimanjaro] has joined #scheme 15:41:43 add^_ [~add^_@m90-130-55-137.cust.tele2.se] has joined #scheme 15:43:36 ijp [~user@host86-169-26-98.range86-169.btcentralplus.com] has joined #scheme 15:45:27 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 240 seconds] 15:46:35 mejja [~user@c-80bfe555.023-82-73746f38.cust.bredbandsbolaget.se] has joined #scheme 15:52:16 lolcow [~lolcow@196-215-35-137.dynamic.isadsl.co.za] has joined #scheme 15:52:19 offby1: Hi wimp! 15:55:07 -!- leppie [~lolcow@196-210-165-161.dynamic.isadsl.co.za] has quit [Ping timeout: 240 seconds] 15:55:14 -!- lolcow is now known as leppie 15:56:09 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 15:58:11 fold [~fold@71-8-117-85.dhcp.ftwo.tx.charter.com] has joined #scheme 16:00:56 Riastradh: long time no see 16:01:10 Hi, mejja. 16:01:17 Hey! 16:01:32 Hej! 16:01:39 Bra! 16:01:49 untrusted [~user@stgt-5f71b2e1.pool.mediaWays.net] has joined #scheme 16:02:01 ...darn, my Swedish is exhausted after `hej'. 16:02:25 (or was that the English `bra'?) 16:02:32 Du får öva mera... 16:02:49 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 272 seconds] 16:05:59 -!- close-paren [~close-par@50-54-252-216.evrt.wa.frontiernet.net] has quit [Ping timeout: 272 seconds] 16:13:43 superjudge [~superjudg@c83-250-198-227.bredband.comhem.se] has joined #scheme 16:15:41 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 16:15:51 close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has joined #scheme 16:18:49 -!- phao [phao@177.174.149.44] has quit [Read error: Connection reset by peer] 16:20:01 jonrafkind [~jon@racket/jonrafkind] has joined #scheme 16:23:44 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 265 seconds] 16:32:29 jewel [~jewel@196-210-160-143.dynamic.isadsl.co.za] has joined #scheme 16:34:18 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 16:35:34 BossKonaSegwaY [~Michael@cpe-69-133-27-32.cinci.res.rr.com] has joined #scheme 16:38:25 -!- mejja [~user@c-80bfe555.023-82-73746f38.cust.bredbandsbolaget.se] has quit [Quit: ChatZilla 0.9.88.2 [Firefox 14.0.1/20120713134347]] 16:38:42 stis [~stis@1-1-1-39a.veo.vs.bostream.se] has joined #scheme 16:38:45 Guest_ [~textual@101.224.19.129] has joined #scheme 16:38:52 close-paren` [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has joined #scheme 16:39:36 -!- close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Quit: Bye] 16:39:36 -!- close-paren` is now known as close-paren 16:41:09 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 246 seconds] 16:41:32 close-paren` [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has joined #scheme 16:41:41 -!- close-paren` [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Client Quit] 16:41:56 close-paren` [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has joined #scheme 16:47:22 bipt [~bpt@cpe-071-070-253-241.nc.res.rr.com] has joined #scheme 16:52:44 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 16:54:03 -!- close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Quit: close-paren] 16:55:51 -!- tejaswidp [~tejaswidp@117.192.153.192] has quit [Quit: Leaving] 16:56:19 tejaswidp [~tejaswidp@117.192.153.192] has joined #scheme 16:56:51 -!- Guest_ [~textual@101.224.19.129] has quit [Quit: Computer has gone to sleep.] 16:56:51 another_brick_in [~another_b@117.192.153.192] has joined #scheme 16:57:37 -!- tejaswidp [~tejaswidp@117.192.153.192] has quit [Client Quit] 16:59:00 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 265 seconds] 17:04:01 -!- untrusted [~user@stgt-5f71b2e1.pool.mediaWays.net] has quit [Remote host closed the connection] 17:12:36 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 17:14:36 -!- lcc`` [~user@71-222-130-163.albq.qwest.net] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 17:15:57 MrFahrenheit [~RageOfTho@cable-77-221-29-132.dynamic.vinet.ba] has joined #scheme 17:21:21 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 272 seconds] 17:29:37 -!- leo2007 [~leo@123.114.56.118] has quit [Ping timeout: 240 seconds] 17:31:34 -!- jewel [~jewel@196-210-160-143.dynamic.isadsl.co.za] has quit [Ping timeout: 246 seconds] 17:31:58 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 17:38:25 -!- hive-mind [pranq@unaffiliated/contempt] has quit [Ping timeout: 268 seconds] 17:39:01 -!- gravicappa [~gravicapp@ppp91-77-222-253.pppoe.mtu-net.ru] has quit [Ping timeout: 248 seconds] 17:39:55 -!- another_brick_in [~another_b@117.192.153.192] has quit [Read error: Connection reset by peer] 17:45:47 -!- close-paren` [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Ping timeout: 240 seconds] 17:51:42 hive-mind [pranq@unaffiliated/contempt] has joined #scheme 17:52:07 gravicappa [~gravicapp@ppp91-77-223-94.pppoe.mtu-net.ru] has joined #scheme 18:04:45 lcc [~user@unaffiliated/lcc] has joined #scheme 18:06:07 -!- Riastradh [~riastradh@fsf/member/riastradh] has quit [Remote host closed the connection] 18:06:35 Riastradh [~riastradh@fsf/member/riastradh] has joined #scheme 18:07:38 -!- wuj [~wuj@ec2-23-21-253-246.compute-1.amazonaws.com] has quit [Quit: leaving] 18:09:41 eni [~eni@31.171.153.34] has joined #scheme 18:16:49 phao [phao@177.77.180.84] has joined #scheme 18:17:07 -!- eni [~eni@31.171.153.34] has quit [Ping timeout: 240 seconds] 18:17:09 -!- copumpkin [~copumpkin@unaffiliated/copumpkin] has quit [Quit: Computer has gone to sleep.] 18:17:39 -!- lcc [~user@unaffiliated/lcc] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 18:24:03 -!- jonrafkind [~jon@racket/jonrafkind] has quit [Ping timeout: 272 seconds] 18:29:40 -!- MrFahrenheit [~RageOfTho@cable-77-221-29-132.dynamic.vinet.ba] has quit [Ping timeout: 246 seconds] 18:42:36 fantazo [~fantazo@91-119-99-99.dynamic.xdsl-line.inode.at] has joined #scheme 18:42:40 eni [~eni@31.171.153.34] has joined #scheme 18:48:00 fantazo_ [~fantazo@91-119-57-219.dynamic.xdsl-line.inode.at] has joined #scheme 18:50:12 -!- fantazo [~fantazo@91-119-99-99.dynamic.xdsl-line.inode.at] has quit [Ping timeout: 244 seconds] 18:57:37 -!- wbooze [~wbooze@xdsl-84-44-155-217.netcologne.de] has quit [Ping timeout: 272 seconds] 19:00:07 -!- fantazo_ [~fantazo@91-119-57-219.dynamic.xdsl-line.inode.at] has quit [Ping timeout: 240 seconds] 19:00:54 fantazo [~fantazo@91-119-229-81.dynamic.xdsl-line.inode.at] has joined #scheme 19:02:45 -!- eni [~eni@31.171.153.34] has quit [Ping timeout: 248 seconds] 19:03:23 fantazo_ [~fantazo@91-119-229-92.dynamic.xdsl-line.inode.at] has joined #scheme 19:05:42 -!- fantazo [~fantazo@91-119-229-81.dynamic.xdsl-line.inode.at] has quit [Ping timeout: 244 seconds] 19:06:55 eni [~eni@31.171.153.34] has joined #scheme 19:20:26 -!- kilimanjaro [~kilimanja@unaffiliated/kilimanjaro] has quit [Ping timeout: 245 seconds] 19:22:03 -!- add^_ [~add^_@m90-130-55-137.cust.tele2.se] has quit [Quit: add^_] 19:22:08 lcc [~user@unaffiliated/lcc] has joined #scheme 19:22:53 -!- eni [~eni@31.171.153.34] has quit [Quit: Leaving] 19:23:08 -!- amgarchIn9 [~amgarchin@p4FD601DB.dip0.t-ipconnect.de] has quit [Quit: Konversation terminated!] 19:25:25 add^_ [~add^_@m90-130-55-137.cust.tele2.se] has joined #scheme 19:36:50 wingo [~wingo@89.131.176.233] has joined #scheme 19:40:46 -!- kuribas [~user@94-227-93-194.access.telenet.be] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 20:17:41 -!- shardz_ [~samantha@ilo.staticfree.info] has quit [Quit: Lost terminal] 20:23:45 -!- adiii [~adityavit@c-69-136-105-164.hsd1.nj.comcast.net] has quit [Ping timeout: 272 seconds] 20:34:04 adiii [~adityavit@c-69-136-105-164.hsd1.nj.comcast.net] has joined #scheme 20:34:22 -!- add^_ [~add^_@m90-130-55-137.cust.tele2.se] has quit [Quit: add^_] 20:38:05 untrusted [~user@stgt-5f71b2e1.pool.mediaWays.net] has joined #scheme 20:39:36 -!- bfgun [~b_fin_g@r186-52-169-149.dialup.adsl.anteldata.net.uy] has quit [Read error: Connection reset by peer] 20:39:48 bfgun [~b_fin_g@r186-54-244-164.dialup.adsl.anteldata.net.uy] has joined #scheme 20:43:04 -!- pnpuff [~pnpuff@gateway/tor-sasl/pnpuff] has quit [Quit: Bye.] 20:50:17 -!- ijp [~user@host86-169-26-98.range86-169.btcentralplus.com] has quit [Quit: The garbage collector got me] 20:50:22 MrFahrenheit [~RageOfTho@cable-77-221-26-82.dynamic.vinet.ba] has joined #scheme 20:50:58 ijp [~user@host86-169-26-98.range86-169.btcentralplus.com] has joined #scheme 20:52:07 amgarchIn9 [~amgarchin@p4FD601DB.dip0.t-ipconnect.de] has joined #scheme 20:57:03 cdidd [~cdidd@95-26-217-108.broadband.corbina.ru] has joined #scheme 20:58:07 -!- gravicappa [~gravicapp@ppp91-77-223-94.pppoe.mtu-net.ru] has quit [Ping timeout: 240 seconds] 21:05:09 close-paren [~close-par@ma52036d0.tmodns.net] has joined #scheme 21:10:26 -!- Razz_ is now known as Razz 21:13:05 -!- sambio is now known as sambio_ 21:18:00 -!- stis [~stis@1-1-1-39a.veo.vs.bostream.se] has quit [Remote host closed the connection] 21:23:57 -!- leppie is now known as bobboblaw 21:29:41 -!- noam [~noam@213.57.201.130] has quit [Read error: Connection reset by peer] 21:30:06 noam [~noam@213.57.201.130] has joined #scheme 21:31:23 -!- untrusted [~user@stgt-5f71b2e1.pool.mediaWays.net] has quit [Remote host closed the connection] 21:31:37 -!- answer_42 [~answer_42@gateway/tor-sasl/answer42/x-66983568] has quit [Ping timeout: 276 seconds] 21:38:56 kilimanjaro [~kilimanja@unaffiliated/kilimanjaro] has joined #scheme 21:39:09 -!- close-paren [~close-par@ma52036d0.tmodns.net] has quit [Ping timeout: 244 seconds] 21:41:23 -!- wingo [~wingo@89.131.176.233] has quit [Ping timeout: 245 seconds] 21:52:14 wbooze [~wbooze@xdsl-78-35-176-3.netcologne.de] has joined #scheme 21:57:13 close-paren [~close-par@ma52036d0.tmodns.net] has joined #scheme 22:01:32 -!- lcc [~user@unaffiliated/lcc] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 22:03:24 -!- close-paren [~close-par@ma52036d0.tmodns.net] has quit [Ping timeout: 244 seconds] 22:07:41 lcc [~user@unaffiliated/lcc] has joined #scheme 22:07:59 -!- Quadrescence [~quad@unaffiliated/quadrescence] has quit [Quit: Leaving] 22:13:07 -!- kilimanjaro [~kilimanja@unaffiliated/kilimanjaro] has quit [Ping timeout: 240 seconds] 22:17:33 -!- lcc [~user@unaffiliated/lcc] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 22:19:39 close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has joined #scheme 22:20:21 -!- superjudge [~superjudg@c83-250-198-227.bredband.comhem.se] has quit [Quit: Leaving...] 22:22:33 If I want a symbol to be unique to my macro for pattern matching, could I say (let ((u 0)) (syntax-case () ;etc? 22:23:55 I would assume then that a pattern such as (_ u) would only match instances of symbol u coming from this same macro's transform output 22:27:37 Er, syntax-rules i mean. 22:32:41 phao_ [~phao@177.174.17.236] has joined #scheme 22:33:27 -!- phao_ [~phao@177.174.17.236] has quit [Client Quit] 22:34:14 the u would need to go in the literals list, but I think so 22:35:22 hmm, technically, in r5rs scheme, this would fall under the category of unspecified 22:36:03 in r6rs it might work 22:36:04 -!- phao [phao@177.77.180.84] has quit [Ping timeout: 260 seconds] 22:38:30 try it and see, I guess 22:38:30 phao [phao@177.174.17.236] has joined #scheme 22:41:39 -!- phao [phao@177.174.17.236] has left #scheme 22:51:58 -!- eMBee [~eMBee@foresight/developer/pike/programmer] has quit [Ping timeout: 272 seconds] 22:55:50 is there an 'argmax' function? 22:56:12 eMBee [~eMBee@foresight/developer/pike/programmer] has joined #scheme 22:56:15 ie, give a list of values, return the index with the biggest value 22:57:38 -!- close-paren [~close-par@c-76-104-189-93.hsd1.wa.comcast.net] has quit [Ping timeout: 245 seconds] 23:01:24 no. 23:08:28 dnolen [~user@cpe-98-14-92-234.nyc.res.rr.com] has joined #scheme 23:13:48 -!- sambio_ is now known as sambio 23:14:11 bfgun: something like (car (sort-list lst >)) works for guile. 23:14:31 fbs, i'm on chicken 23:14:35 let's see 23:14:46 fbs: didn't return the index, but yes it's a simple problem 23:14:46 what does sort-list do? 23:14:47 find a equiv for sort-list 23:15:00 bfgun: it sorts a list 23:15:01 oh index 23:15:14 yeah that wont work 23:15:43 fbs: indexify the list first, and use a modified > relation, then you're done 23:16:46 fbs: also, this can be done in linear time, you wasteful child :P 23:17:13 jao [~user@164.Red-83-32-68.dynamicIP.rima-tde.net] has joined #scheme 23:17:20 -!- jao [~user@164.Red-83-32-68.dynamicIP.rima-tde.net] has quit [Changing host] 23:17:20 jao [~user@pdpc/supporter/professional/jao] has joined #scheme 23:17:39 jonrafkind [~jon@racket/jonrafkind] has joined #scheme 23:19:14 idc about time 23:19:17 :p 23:19:54 phax [~phax@cpc14-haye17-2-0-cust110.haye.cable.virginmedia.com] has joined #scheme 23:20:01 -!- phax [~phax@cpc14-haye17-2-0-cust110.haye.cable.virginmedia.com] has quit [Changing host] 23:20:01 phax [~phax@unaffiliated/phax] has joined #scheme 23:20:10 fbs: Why not (apply max lst) ? It's shorter. :-P 23:21:09 because i never heard of max :p 23:21:16 (define (argmax ls) (define (my-max a b) (if (< (car a) (car b)) b a)) (define (indexify ls) (map cons ls (iota (length ls)))) (define (maximum-by maxer ls) (fold maxer (car ls) (cdr ls))) (if (null? ls) #f (cdr (maximum-by my-max (indexify ls))))) 23:21:25 making it one-pass is left as an exercise 23:26:16 (it's not hard to do, just tedious) 23:28:55 -!- pepijndevos is now known as pepijn_away 23:29:43 ijp: (find (lambda (x) (= x (car (sort-list > lst)))) lst) 23:30:21 phao [phao@177.174.17.236] has joined #scheme 23:31:04 fbs: now you're just trolling me 23:31:45 yea 23:50:13 lcc [~user@unaffiliated/lcc] has joined #scheme 23:51:36 -!- qu1j0t3 is now known as ^q 23:55:05 -!- Nisstyre [~yours@oftn/member/Nisstyre] has quit [Read error: Connection reset by peer] 23:56:23 -!- ^q is now known as qu1j0t3 23:58:20 Nisstyre [~yours@oftn/member/Nisstyre] has joined #scheme