00:04:33 mbohun [~mbohun@eth649.act.adsl.internode.on.net] has joined #scheme 00:06:04 -!- mbohun [~mbohun@eth649.act.adsl.internode.on.net] has quit [Client Quit] 00:06:27 mbohun [~mbohun@ppp115-156.static.internode.on.net] has joined #scheme 00:10:49 -!- brandelune [~suzume@pl571.nas982.takamatsu.nttpc.ne.jp] has quit [Quit: brandelune] 00:18:35 -!- schmir [~schmir@p54A9125D.dip0.t-ipconnect.de] has quit [Remote host closed the connection] 00:23:29 brandelune [~suzume@pl571.nas982.takamatsu.nttpc.ne.jp] has joined #scheme 00:29:38 -!- jonrafkind [~jon@crystalis.cs.utah.edu] has quit [Ping timeout: 276 seconds] 00:56:40 -!- klovett [~klovett@c-67-180-97-38.hsd1.ca.comcast.net] has quit [Quit: klovett] 01:00:50 -!- mbohun [~mbohun@ppp115-156.static.internode.on.net] has quit [Ping timeout: 276 seconds] 01:09:10 clog [nef@bespin.org] has joined #scheme 01:18:18 jcowan [~John@cpe-98-14-172-204.nyc.res.rr.com] has joined #scheme 01:19:18 mjonsson [~mjonsson@cpe-98-14-173-5.nyc.res.rr.com] has joined #scheme 01:28:23 -!- githogori [~githogori@187.sub-75-210-112.myvzw.com] has quit [Read error: Connection reset by peer] 01:30:43 nik0 [~niko@freenode/staff/ubuntu.member.niko] has joined #scheme 01:31:42 aidalgol [~user@202.36.179.68] has joined #scheme 01:41:44 -!- bgs100 [~ian@unaffiliated/bgs100] has quit [Read error: Connection reset by peer] 02:00:19 -!- museun [~what@h-66-167-50-47.atlngahp.dynamic.covad.net] has quit [Ping timeout: 240 seconds] 02:02:13 -!- MrFahrenheit [~RageOfTho@users-55-80.vinet.ba] has quit [Read error: Connection reset by peer] 02:02:37 MrFahrenheit [~RageOfTho@users-55-80.vinet.ba] has joined #scheme 02:05:26 -!- megajosh2 is now known as gigajosh2 02:05:33 -!- gigajosh2 is now known as megabot 02:08:03 -!- megabot is now known as gigajosh2 02:21:39 -!- aidalgol [~user@202.36.179.68] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 02:22:38 -!- SirNick [~nick@199.223.126.66] has quit [Ping timeout: 245 seconds] 02:23:02 -!- gigajosh2 is now known as megajosh2 02:23:33 gigajosh2 [~gigajosh2@pool-96-241-38-130.washdc.fios.verizon.net] has joined #scheme 02:23:49 -!- gigajosh2 [~gigajosh2@pool-96-241-38-130.washdc.fios.verizon.net] has quit [Client Quit] 02:23:57 -!- bzzbzz [~franco@modemcable240.34-83-70.mc.videotron.ca] has quit [Read error: Operation timed out] 02:24:10 -!- megajosh2 [~megajosh2@unaffiliated/megajosh2] has quit [Quit: Lost terminal] 02:27:21 -!- rbarraud [~rbarraud@118-93-95-133.dsl.dyn.ihug.co.nz] has quit [Read error: Operation timed out] 02:27:24 rbarraud_ [~rbarraud@118-92-139-26.dsl.dyn.ihug.co.nz] has joined #scheme 02:29:28 bzzbzz [~franco@modemcable240.34-83-70.mc.videotron.ca] has joined #scheme 02:43:55 -!- MrFahrenheit [~RageOfTho@users-55-80.vinet.ba] has quit [Ping timeout: 240 seconds] 02:52:42 timj_ [~timj@e176196174.adsl.alicedsl.de] has joined #scheme 02:56:32 -!- timj [~timj@e176192010.adsl.alicedsl.de] has quit [Ping timeout: 276 seconds] 03:05:29 -!- Jafet [~Jafet@unaffiliated/jafet] has quit [Ping timeout: 255 seconds] 03:07:58 -!- brandelune [~suzume@pl571.nas982.takamatsu.nttpc.ne.jp] has quit [Quit: brandelune] 03:08:45 SirNick [~nick@c-67-160-151-16.hsd1.wa.comcast.net] has joined #scheme 03:08:49 Jafet [~Jafet@unaffiliated/jafet] has joined #scheme 03:20:55 githogori [~githogori@adsl-66-123-22-146.dsl.snfc21.pacbell.net] has joined #scheme 03:36:54 -!- MichaelRaskin [~MichaelRa@195.91.224.225] has quit [Ping timeout: 240 seconds] 03:57:45 echo-area [~echo-area@114.251.86.0] has joined #scheme 04:08:45 -!- hohoho [~hohoho@ntkngw229253.kngw.nt.ftth.ppp.infoweb.ne.jp] has quit [Remote host closed the connection] 04:09:13 http://ideone.com/HloeA 04:23:08 MichaelRaskin [~MichaelRa@pantagruel.mccme.ru] has joined #scheme 04:24:14 jonrafkind [~jon@jonr5.dsl.xmission.com] has joined #scheme 04:24:56 felipe [~felipe@my.nada.kth.se] has joined #scheme 04:56:45 Guest15733 [~Claudio@cablelink36-126.telefonia.intercable.net] has joined #scheme 04:57:31 -!- Guest15733 [~Claudio@cablelink36-126.telefonia.intercable.net] has quit [Read error: Connection reset by peer] 05:00:11 rdd [~rdd@c83-250-48-164.bredband.comhem.se] has joined #scheme 05:03:52 Claudio_rdgz [~Claudio@cablelink36-126.telefonia.intercable.net] has joined #scheme 05:05:34 -!- mjonsson [~mjonsson@cpe-98-14-173-5.nyc.res.rr.com] has quit [Ping timeout: 240 seconds] 05:06:51 -!- Claudio_rdgz [~Claudio@cablelink36-126.telefonia.intercable.net] has quit [Read error: Connection reset by peer] 05:23:28 -!- xwl_ [~user@nat/nokia/x-jismxuipcthfovsl] has quit [Ping timeout: 252 seconds] 05:48:43 hohoho [~hohoho@sbm210-128-84-23.bmobile.ne.jp] has joined #scheme 05:58:19 -!- rdd [~rdd@c83-250-48-164.bredband.comhem.se] has quit [Ping timeout: 240 seconds] 05:58:32 -!- jonrafkind [~jon@jonr5.dsl.xmission.com] has quit [Ping timeout: 276 seconds] 06:01:24 ski [~slj@c-3810e055.1149-1-64736c10.cust.bredbandsbolaget.se] has joined #scheme 06:05:58 -!- jlongster [~user@c-71-199-182-60.hsd1.ga.comcast.net] has quit [Ping timeout: 245 seconds] 06:06:17 mjonsson [~mjonsson@cpe-98-14-173-5.nyc.res.rr.com] has joined #scheme 06:53:24 wingo [~wingo@232.Red-88-17-207.dynamicIP.rima-tde.net] has joined #scheme 07:01:33 -!- mjonsson [~mjonsson@cpe-98-14-173-5.nyc.res.rr.com] has quit [Remote host closed the connection] 07:25:41 brandelune [~suzume@pl571.nas982.takamatsu.nttpc.ne.jp] has joined #scheme 07:25:48 -!- githogori [~githogori@adsl-66-123-22-146.dsl.snfc21.pacbell.net] has quit [Remote host closed the connection] 07:27:38 -!- wingo [~wingo@232.Red-88-17-207.dynamicIP.rima-tde.net] has quit [Ping timeout: 245 seconds] 07:29:31 -!- SirNick [~nick@c-67-160-151-16.hsd1.wa.comcast.net] has quit [Ping timeout: 240 seconds] 07:39:12 Blkt [~user@93-33-130-96.ip44.fastwebnet.it] has joined #scheme 08:00:13 gravicappa [~gravicapp@ppp85-140-118-171.pppoe.mtu-net.ru] has joined #scheme 08:04:42 schmir [~schmir@p54A907C7.dip0.t-ipconnect.de] has joined #scheme 08:17:21 -!- hohoho [~hohoho@sbm210-128-84-23.bmobile.ne.jp] has quit [Remote host closed the connection] 08:23:51 -!- nik0 [~niko@freenode/staff/ubuntu.member.niko] has quit [Quit: leaving] 08:42:42 museun [~what@h-66-167-50-47.atlngahp.dynamic.covad.net] has joined #scheme 09:19:43 -!- jao [~user@253.Red-213-98-193.dynamicIP.rima-tde.net] has quit [Ping timeout: 245 seconds] 09:26:16 -!- echo-area [~echo-area@114.251.86.0] has quit [Read error: Connection reset by peer] 09:26:35 -!- schmir [~schmir@p54A907C7.dip0.t-ipconnect.de] has quit [Ping timeout: 252 seconds] 09:42:47 -!- rbarraud_ [~rbarraud@118-92-139-26.dsl.dyn.ihug.co.nz] has quit [Ping timeout: 276 seconds] 09:49:16 masm [~masm@bl15-78-167.dsl.telepac.pt] has joined #scheme 09:54:55 -!- Axioplase is now known as Axioplase_ 10:10:49 wbooze` [~user@xdsl-87-79-87-210.netcologne.de] has joined #scheme 10:11:50 homie` [~user@xdsl-87-79-87-210.netcologne.de] has joined #scheme 10:12:34 -!- homie [~user@xdsl-78-34-207-201.netcologne.de] has quit [Ping timeout: 240 seconds] 10:12:43 -!- wbooze [~user@xdsl-78-34-207-201.netcologne.de] has quit [Ping timeout: 240 seconds] 10:30:01 Nils^ [steele@beegees.mtveurope.org] has joined #scheme 10:30:06 greetings, earthlings. 11:01:22 -!- gravicappa [~gravicapp@ppp85-140-118-171.pppoe.mtu-net.ru] has quit [Ping timeout: 272 seconds] 11:04:11 gravicappa [~gravicapp@ppp85-140-118-171.pppoe.mtu-net.ru] has joined #scheme 11:05:15 rmrfchik [~rmrfchik@linuxhacker.ru] has joined #scheme 11:13:48 schmir [~schmir@p54A907C7.dip0.t-ipconnect.de] has joined #scheme 11:15:44 I want to implement an irregular number system, like in old currencies. To be specific I want to create a system which is base5 the first to digits of a number but after that base7. 11:17:01 if I do 200+500 I get 1000 and if I do 230+20 I get 300 11:17:49 doing math in each of these is not the problem, but mixing it so I can feed my "+" function with a string-number is the part I don't know how to do 11:18:33 it was "base5 the first two digits", not "to" 11:27:26 Nils^: What you need is just a custom string->number and number->string. 11:27:36 Nils^: You don't need a custom + or any other function. 11:29:09 Now, if you want a custom + as _syntactic sugar_ around the string->number/number->string calls, that's fine. But don't actually do custom calculation within your custom + function. 11:29:36 (define (ANS-7::math op one two) ; wants two string (number->string (op (string->number one 7) (string->number two 7)) 7)) 11:29:42 thats my math prototype 11:29:48 for base7 only 11:30:12 op is then defined in the + - * / and so on function. 11:30:48 You will want to take an arbitrary number of arguments, not just 2. :-P 11:30:54 cky: I guess thats the wrong variant because its limited to 2 arguments 11:31:30 So, write a ANS-7::string->number function. Make it do the right thing. 11:31:38 Also an ANS-7::number->string. 11:32:33 Then: (define (ANS-7::math op . nums) (ANS-7::number->string (apply op (map ANS-7::string->number nums)))) 11:33:38 -!- gnomon [~gnomon@CPE0022158a8221-CM000f9f776f96.cpe.net.cable.rogers.com] has quit [Ping timeout: 264 seconds] 11:33:54 gnomon [~gnomon@CPE0022158a8221-CM000f9f776f96.cpe.net.cable.rogers.com] has joined #scheme 11:34:34 cky: thank you! what is apply ? 11:35:27 well. no, I can look that up 11:35:56 Nils^: (apply + '(1 2 3)) == (apply 1 2 3) 11:35:58 Oops. 11:36:01 Nils^: (apply + '(1 2 3)) == (+ 1 2 3) 11:36:23 Nils^: (apply * 5 6 '(7 8)) == (* 5 6 7 8) 11:36:34 ah ok, useful to know 11:36:56 So, the last argument is a list, and everything before the last argument is pasted before it. :-P 11:37:03 cky: And in my custom number<->string functions I take care of the dual base number? 11:37:07 Yes. 11:37:43 Guile has a string-split function that takes care of the string->number quite well for you, but it's not standard Scheme, so if you're not using Guile you'll have to write your own string-split equivalent. :-P 11:38:03 Oh wait. 11:38:11 string-split doesn't do what I expect it to do. Never mind. 11:38:18 HG` [~HG@xdsl-92-252-101-207.dip.osnanet.de] has joined #scheme 11:38:54 I use guile and already have a function that divides digits to the left and right on a specified position 11:39:01 Awesome. :-) 11:39:10 as hack for rounding, haha... 11:39:35 I just drop the last two chars and replace them with 00 11:39:40 *g* 11:40:50 Well, I figured you could use: (let ((lhs (string-drop-right str 2)) (rhs (string-take-right str 2))) (+ (string->number rhs 5) (* (string->number lhs 7) 25))) 11:40:57 Or something like that. 11:41:13 Replacing the last two chars with 00 isn't right unless you're really multiplying by 49, and not 25. 11:41:49 cky: I used the wrong words. I really intended to reset the number to plain "hundreds" 11:42:42 Now I'm completely lost. :-P 11:43:06 the numbers have more meaning than plain numbers and get translated via a hashtable, but that does not matter for the current problem. 11:44:10 Hmmm. 11:44:15 each number stands for a certain object in my program. The objects can be "mathed" via base7, but you can split the objects and then you need base5. so 5 sub-objects are one real and 7 real objects are a complete cycle/set 11:45:03 That's warping my head, but okay. :-P 11:45:12 float is not possible with base7 so I take 100 as basic unit 11:45:22 Yeah, don't use float. :-P 11:45:30 Just stick to fixed-point if you can help it. 11:45:39 i'm trying to compile code using mzc and i get an error "else: not allowed as an expression in: else", if i replace else with #t it works http://paste.pocoo.org/show/268464/ 11:45:55 I don't know what fixed-point is but I think I do the right thing 11:45:57 what is going wrong? 11:46:39 DasIch: I know a musician who names himself DasIch in ICQ, too. Are you a musician? 11:47:21 Nils^: i know there is a band called DasIch but as i choose the name i didn't know them 11:47:49 DasIch: Does it work if you take out the (require eopl) line? 11:48:03 DasIch: My feeling is that the eopl module removes certain parts of the laguage. 11:48:05 *language 11:48:13 cky: it does 11:48:22 Well, that answers your question then. :-D 11:49:07 cky: the code is the one used in the example in the book eopl 3rd edition 11:49:16 cky: which is weird 11:50:24 Right, but 3e is quite new. 11:50:33 Maybe the module only supports what's used in 2e. 11:51:05 cky: would you advice using 2e instead? 11:53:52 I've not read either version, so, can't comment. 11:54:07 I've done more digging, BTW. It seems the limitation isn't so much a 2e or 3e thing per se... 11:54:18 ...but that eopl/eopl uses the mzscheme version of cond. 11:54:32 And the mzscheme version of cond doesn't support "else" or "=>". :-S 11:54:47 Now, I have no idea why that is, only that it is what it is. 11:55:01 cky: so simply using #t instead is the way to go here? 11:55:08 Yep, that works. 11:55:54 cky: thanks 12:00:33 typemore [~typemore@unaffiliated/typemore] has joined #scheme 12:00:37 is there anything like laubind, but for scheme? 12:02:13 -!- acarrico [~acarrico@pppoe-68-142-40-104.gmavt.net] has quit [Ping timeout: 252 seconds] 12:02:34 -!- schmir [~schmir@p54A907C7.dip0.t-ipconnect.de] has quit [Remote host closed the connection] 12:03:58 megajosh2 [~megajosh2@unaffiliated/megajosh2] has joined #scheme 12:18:18 echo-area [~echo-area@114.251.86.0] has joined #scheme 12:18:31 -!- Jafet [~Jafet@unaffiliated/jafet] has quit [Ping timeout: 265 seconds] 12:19:17 (13:40) ( cky) Well, I figured you could use: (let ((lhs (string-drop-right str 2)) (rhs (string-take-right str 2))) (+ (string->number rhs 5) (* (string->number lhs 7) 25))) 12:20:00 this already works well for converting a number in the special format to a decimal number. but the other way around it has a variable amount of digits 12:20:14 or better I confess that I don't have a clue how to convert it back 12:21:10 cky: and to be honest I don't know why there is a +25 in the end. 12:21:17 acarrico [~acarrico@pppoe-68-142-40-104.gmavt.net] has joined #scheme 12:23:02 25 is the number of values that fit in the initial two positions in base 5 12:25:21 Converting it back: loop from left to right, take the digit at the position and add it to the result. Then multiply by 7 (or 5 if this is the next-to-last position) 12:25:26 ...I think 12:25:30 Mixing bases is weird 12:25:45 -!- megajosh2 [~megajosh2@unaffiliated/megajosh2] has quit [Quit: Lost terminal] 12:25:48 not for the human who uses the system in the end 12:26:11 (ah, its not +25, its *25.. misread) 12:26:57 My description is misleading: first multiply the result by 7, then add the digit and loop 12:30:09 why is it important to separate symbols from strings? 12:35:26 typemore: symbols can be compared in constant time, while strings need to be compared character by character 12:35:50 -!- wbooze` [~user@xdsl-87-79-87-210.netcologne.de] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 12:35:53 -!- homie` [~user@xdsl-87-79-87-210.netcologne.de] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 12:35:54 They are used similarly to enums in C 12:36:01 (but not exactly the same) 12:36:50 ie, a descriptive name that doesn't require a string comparison everytime you use it 12:37:27 They're also distinct from strings because of the fact that code = data, and you need to distinguish between an identifier and a string 12:37:55 ("+" 1 2) is invalid 12:38:30 that depends on the string implementation 12:39:38 You don't want every string used in a program to be interned, that would eat up too much memory 12:40:18 If you don't intern strings, there's no other way to compare arbitrary strings 12:41:14 -!- pchrist [~spirit@gentoo/developer/pchrist] has quit [Ping timeout: 265 seconds] 12:42:37 sjamaan: I'm so sorry, I don't get your loop description. I tried my interpretations of your description but I seem to not understand it right. 12:43:00 if I convert 1140 (baseNils) to base10 I get 220. 12:43:04 pchrist [~spirit@gentoo/developer/pchrist] has joined #scheme 12:43:47 and now I have to loop through the single digits of 220 ? 12:43:54 ? 12:44:03 (14:26) ( sjamaan) My description is misleading: first multiply the result by 7, then add the digit and loop 12:45:45 IIUC you pick 1 from the left side, then loop. multiply the result by 7, then add 1. multiply by 7 and add 4. multiply by 5 and add 0 12:45:48 right? 12:47:47 Or maybe multiply by 7, multiply by 5, muliply by 5 12:47:48 I take the first two digits/chars of the string "1140" and convert the 11 through base7 to decimal-number. Then the last two digits/chars through base5 to decimal 12:47:56 *sjamaan* is thoroughly confused 12:48:20 ok, ignore me then 12:48:25 I have no idea what I'm talking about 12:48:29 Jafet [~Jafet@unaffiliated/jafet] has joined #scheme 12:48:30 the decimal result of converting 11 through base7 is multiplied with 25 for a reason I don't understand 12:48:41 *sjamaan* goes back to work before making even more an ass out of himself 12:48:43 sjamaan: cky wrote that. I only partly understand it 12:49:10 How the hell can you work with these weird numbers if you don't understand the math behind them yourself? 12:49:15 I don't want to just copy and paste 12:50:08 sjamaan: well... I have a clear understanding what each digit stands for in the end thats why I think I'm still on the right track. 12:50:28 -!- typemore [~typemore@unaffiliated/typemore] has quit [Quit: leaving] 12:52:19 my system works until now, and now I try to make it better (for the human mind) and I obviously have to learn some math for it 12:55:40 -!- jcowan [~John@cpe-98-14-172-204.nyc.res.rr.com] has quit [Quit: Leaving] 12:56:11 I wonder if this is all easier with a base35 system... 13:03:49 homie [~user@xdsl-87-79-87-210.netcologne.de] has joined #scheme 13:10:03 -!- jmcphers [~jmcphers@218.185.108.156] has quit [Remote host closed the connection] 13:10:51 jmcphers [~jmcphers@218.185.108.156] has joined #scheme 13:14:07 wbooze [~user@xdsl-87-79-87-210.netcologne.de] has joined #scheme 13:18:16 -!- pumpkin [~copumpkin@host174-226-dynamic.246-95-r.retail.telecomitalia.it] has quit [Ping timeout: 240 seconds] 13:19:28 -!- gravicappa [~gravicapp@ppp85-140-118-171.pppoe.mtu-net.ru] has quit [Remote host closed the connection] 13:25:08 pumpkin [~copumpkin@host174-226-dynamic.246-95-r.retail.telecomitalia.it] has joined #scheme 13:30:33 mjonsson [~mjonsson@cpe-98-14-173-5.nyc.res.rr.com] has joined #scheme 13:45:14 -!- HG` [~HG@xdsl-92-252-101-207.dip.osnanet.de] has quit [Quit: Leaving.] 13:45:48 MrFahrenheit [~RageOfTho@users-55-96.vinet.ba] has joined #scheme 13:46:38 -!- antoszka [~antoszka@unaffiliated/antoszka] has quit [Read error: Operation timed out] 13:48:27 antoszka [~antoszka@unaffiliated/antoszka] has joined #scheme 13:59:09 -!- museun [~what@h-66-167-50-47.atlngahp.dynamic.covad.net] has quit [Ping timeout: 265 seconds] 14:10:44 -!- Nshag [user@lns-bzn-40-82-251-177-201.adsl.proxad.net] has quit [Ping timeout: 272 seconds] 14:17:38 -!- mjonsson [~mjonsson@cpe-98-14-173-5.nyc.res.rr.com] has quit [Ping timeout: 245 seconds] 14:20:31 cky: The `mzscheme' version does have `else' and `=>' -- but they're done differently in the new languages, which is why the identifier is different and therefore doesn't match. 14:20:42 DasIch: Is this code literally from the book? 14:21:17 eli: the style is slightly different but the book uses else 14:21:26 I'm asking only about using `#lang scheme' and then (require eopl/eopl) -- the rest is clearly yours. 14:21:45 (The style is very different, BTW, you'll change it when you get used to scheme.) 14:21:48 eli: that part not 14:22:07 Ok so *that* is the real problem. 14:22:14 eli: the examples in the book should run with every r5rs implementation 14:22:16 You should be using the "EoPL" language. 14:22:29 Not really. 14:22:37 There is some library support that is needed. 14:22:53 Nshag [user@lns-bzn-30-82-253-156-111.adsl.proxad.net] has joined #scheme 14:23:36 klovett [~klovett@c-67-180-97-38.hsd1.ca.comcast.net] has joined #scheme 14:23:38 In any case, the EoPL language should give you everything that you need -- the language that is used in the book and the extra support (things like `error' and a bunch of other stuff.) 14:29:16 -!- acarrico [~acarrico@pppoe-68-142-40-104.gmavt.net] has quit [Ping timeout: 240 seconds] 14:33:23 femtoo [~femto@95-89-248-241-dynip.superkabel.de] has joined #scheme 14:35:47 -!- DasIch [~DasIch@p5DC5FAE9.dip.t-dialin.net] has quit [Ping timeout: 265 seconds] 14:39:23 museun [~what@h-66-167-50-47.atlngahp.dynamic.covad.net] has joined #scheme 14:47:28 DasIch [~DasIch@p5DC5FFD7.dip.t-dialin.net] has joined #scheme 14:51:14 -!- klovett [~klovett@c-67-180-97-38.hsd1.ca.comcast.net] has quit [Quit: klovett] 14:54:58 bweaver [~user@75-148-111-133-Chattanooga.hfc.comcastbusiness.net] has joined #scheme 15:00:01 Rearden [~John@209-217-211-155.northland.net] has joined #scheme 15:07:03 dzhus [~sphinx@95-24-0-250.broadband.corbina.ru] has joined #scheme 15:10:17 -!- brandelune [~suzume@pl571.nas982.takamatsu.nttpc.ne.jp] has quit [Quit: brandelune] 15:10:44 femtooo [~femto@95-89-248-241-dynip.superkabel.de] has joined #scheme 15:12:50 -!- femtoo [~femto@95-89-248-241-dynip.superkabel.de] has quit [Ping timeout: 276 seconds] 15:19:46 klovett [~klovett@c-67-180-97-38.hsd1.ca.comcast.net] has joined #scheme 15:20:13 acarrico [~acarrico@pppoe-68-142-40-104.gmavt.net] has joined #scheme 15:21:26 -!- saccade [~saccade@209-6-54-113.c3-0.smr-ubr1.sbo-smr.ma.cable.rcn.com] has quit [Quit: This computer has gone to sleep] 15:34:45 gravicappa [~gravicapp@ppp85-140-145-129.pppoe.mtu-net.ru] has joined #scheme 15:46:45 jcowan [~John@cpe-98-14-172-204.nyc.res.rr.com] has joined #scheme 15:55:13 SirNick [~nick@c-67-160-151-16.hsd1.wa.comcast.net] has joined #scheme 16:00:00 rdd [~rdd@c83-250-48-164.bredband.comhem.se] has joined #scheme 16:03:34 stis [~stis@1-1-1-39a.veo.vs.bostream.se] has joined #scheme 16:05:08 -!- MichaelRaskin [~MichaelRa@pantagruel.mccme.ru] has quit [Ping timeout: 245 seconds] 16:11:46 jonrafkind [~jon@crystalis.cs.utah.edu] has joined #scheme 16:12:04 -!- jcowan [~John@cpe-98-14-172-204.nyc.res.rr.com] has quit [Quit: Leaving] 16:28:17 -!- homie [~user@xdsl-87-79-87-210.netcologne.de] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 16:28:23 -!- wbooze [~user@xdsl-87-79-87-210.netcologne.de] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 16:30:48 fradgers- [~fradgers-@5e0aadb6.bb.sky.com] has joined #scheme 16:35:05 -!- fradgers- [~fradgers-@5e0aadb6.bb.sky.com] has left #scheme 16:35:19 fradgers- [~fradgers-@5e0aadb6.bb.sky.com] has joined #scheme 16:36:13 jewel [~jewel@196-210-187-107.dynamic.isadsl.co.za] has joined #scheme 16:46:26 -!- eno [~eno@nslu2-linux/eno] has quit [Read error: Connection reset by peer] 16:51:00 eno [~eno@nslu2-linux/eno] has joined #scheme 16:59:43 -!- jewel [~jewel@196-210-187-107.dynamic.isadsl.co.za] has quit [Ping timeout: 245 seconds] 17:33:44 cipher [~cipher@c-76-24-16-225.hsd1.ma.comcast.net] has joined #scheme 17:34:08 how do you create optional function arguments in the r6rs? 17:43:26 -!- Jafet [~Jafet@unaffiliated/jafet] has quit [Ping timeout: 255 seconds] 17:53:32 viller [~chatzilla@20.217.190.90.dyn.estpak.ee] has joined #scheme 17:53:34 wingo [~wingo@232.Red-88-17-207.dynamicIP.rima-tde.net] has joined #scheme 17:57:03 Probably easiest to use case-lambda, unless you have srfi-89 and the like. 18:02:21 -!- gravicappa [~gravicapp@ppp85-140-145-129.pppoe.mtu-net.ru] has quit [Remote host closed the connection] 18:02:40 n00b here, but what's wrong with (define (f . q) ...) or (define (f x . y) ...) 18:07:52 FurnaceBoy: 1) it's error-prone; you have to parse the args. 18:07:59 2) it's not expressive / readable. 18:08:14 wingo: can u give an example with case-lambda 18:08:17 3) people usually don't check that the length of args is reasonable. 18:08:21 4) it conses. 18:08:33 FurnaceBoy: http://wingolog.org/archives/2009/11/07/case-lambda-in-guile 18:08:37 thx 18:08:39 or read the srfi. 18:09:03 optional and keyword args are usually better tho. 18:09:25 gotcha, this is an excellent post. thanks! 18:09:27 githogori [~githogori@183.sub-75-208-174.myvzw.com] has joined #scheme 18:12:06 see http://wingolog.org/archives/2009/11/08/optionals-keywords-oh-my for thoughts on optionals and keywords. 18:12:09 fwiw, anyway. 18:14:51 ok 18:17:17 -!- viller [~chatzilla@20.217.190.90.dyn.estpak.ee] has quit [Quit: ChatZilla 0.9.86 [Firefox 3.6.10/20100914125854]] 18:23:58 wbooze [~user@xdsl-87-79-87-210.netcologne.de] has joined #scheme 18:24:00 homie [~user@xdsl-87-79-87-210.netcologne.de] has joined #scheme 18:39:12 See page 15 of r6rs-lib.pdf for explanation of case-lambda. 18:43:13 gravicappa [~gravicapp@ppp85-140-145-129.pppoe.mtu-net.ru] has joined #scheme 18:45:08 -!- wingo [~wingo@232.Red-88-17-207.dynamicIP.rima-tde.net] has quit [Ping timeout: 245 seconds] 18:45:42 wingo [~wingo@81.38.181.220] has joined #scheme 18:59:54 SirNick_ [~nick@c-67-160-151-16.hsd1.wa.comcast.net] has joined #scheme 19:03:34 -!- SirNick [~nick@c-67-160-151-16.hsd1.wa.comcast.net] has quit [Ping timeout: 252 seconds] 19:04:04 danbrown [~jdanbrown@nomad.ccs.neu.edu] has joined #scheme 19:13:29 -!- leppie [~lolcow@196-215-63-152.dynamic.isadsl.co.za] has quit [Read error: Connection reset by peer] 19:13:32 -!- femtooo [~femto@95-89-248-241-dynip.superkabel.de] has quit [Quit: Leaving] 19:14:05 leppie [~lolcow@196-215-63-152.dynamic.isadsl.co.za] has joined #scheme 19:15:41 jdanbrown pasted "print-graph" at http://paste.lisp.org/display/114999 19:16:10 question about graphs and printing 19:16:42 why does the code above print shared even though print-graph is #f by default? 19:17:07 inserting (print-graph #f) doesn't change the output, but inserting (print-graph #t) will print the (list a a) as shared in addition to the (foo a a) 19:17:32 and in DrRacket, nothing prints as shared, even with (print-graph #t) 19:19:16 saccade [~saccade@18.111.80.84] has joined #scheme 19:26:39 is there a way to automatically create the mirrorhash from a given hashtable? I need to access the table both by key and by value. 19:32:21 -!- echo-area [~echo-area@114.251.86.0] has quit [Remote host closed the connection] 19:34:28 MichaelRaskin [~MichaelRa@195.91.224.225] has joined #scheme 19:34:57 Jafet [~Jafet@unaffiliated/jafet] has joined #scheme 19:44:30 -!- saccade [~saccade@18.111.80.84] has quit [Quit: This computer has gone to sleep] 19:46:25 -!- Rearden [~John@209-217-211-155.northland.net] has quit [Quit: Leaving] 19:46:41 jao [~user@253.Red-213-98-193.dynamicIP.rima-tde.net] has joined #scheme 19:47:05 RageOfThou [~RageOfTho@users-42-138.vinet.ba] has joined #scheme 19:49:31 -!- MrFahrenheit [~RageOfTho@users-55-96.vinet.ba] has quit [Ping timeout: 240 seconds] 19:53:08 -!- SirNick_ [~nick@c-67-160-151-16.hsd1.wa.comcast.net] has quit [Ping timeout: 276 seconds] 20:01:44 Nils^: What you need is a com.google.common.collect.BiMap. :-P *grins, ducks, and runs* 20:02:53 -!- Jafet [~Jafet@unaffiliated/jafet] has quit [Ping timeout: 276 seconds] 20:08:37 Jafet [~Jafet@unaffiliated/jafet] has joined #scheme 20:09:28 hotblack23 [~jh@p57B59EC3.dip.t-dialin.net] has joined #scheme 20:17:13 -!- eno [~eno@nslu2-linux/eno] has quit [Ping timeout: 245 seconds] 20:19:09 eno [~eno@adsl-70-137-136-89.dsl.snfc21.sbcglobal.net] has joined #scheme 20:19:12 -!- eno [~eno@adsl-70-137-136-89.dsl.snfc21.sbcglobal.net] has quit [Changing host] 20:19:14 eno [~eno@nslu2-linux/eno] has joined #scheme 20:24:09 -!- zilt [~zilt@67.23.13.119] has left #scheme 20:27:36 bgs100 [~ian@unaffiliated/bgs100] has joined #scheme 20:44:20 -!- gravicappa [~gravicapp@ppp85-140-145-129.pppoe.mtu-net.ru] has quit [Ping timeout: 255 seconds] 21:02:00 molbdnilo [~Ove@c80-216-202-29.bredband.comhem.se] has joined #scheme 21:02:04 -!- stis [~stis@1-1-1-39a.veo.vs.bostream.se] has quit [Remote host closed the connection] 21:04:51 rbarraud_ [~rbarraud@118-92-139-26.dsl.dyn.ihug.co.nz] has joined #scheme 21:08:50 -!- klovett [~klovett@c-67-180-97-38.hsd1.ca.comcast.net] has quit [Quit: klovett] 21:11:15 megajosh2 [~megajosh2@unaffiliated/megajosh2] has joined #scheme 21:13:34 -!- Blkt [~user@93-33-130-96.ip44.fastwebnet.it] has quit [Ping timeout: 265 seconds] 21:19:36 lbc [~lbc@0909ds1-sdb.0.fullrate.dk] has joined #scheme 21:33:43 schmir [~schmir@p54A902BA.dip0.t-ipconnect.de] has joined #scheme 21:34:14 -!- schmir [~schmir@p54A902BA.dip0.t-ipconnect.de] has quit [Remote host closed the connection] 21:43:55 -!- acarrico [~acarrico@pppoe-68-142-40-104.gmavt.net] has quit [Ping timeout: 240 seconds] 21:51:57 gravicappa [~gravicapp@ppp85-140-145-129.pppoe.mtu-net.ru] has joined #scheme 22:01:01 -!- Adamant [~Adamant@unaffiliated/adamant] has quit [Quit: Adamant] 22:02:36 aidalgol [~user@202.36.179.68] has joined #scheme 22:02:36 -!- gravicappa [~gravicapp@ppp85-140-145-129.pppoe.mtu-net.ru] has quit [Ping timeout: 240 seconds] 22:05:43 -!- antoszka [~antoszka@unaffiliated/antoszka] has quit [Read error: Operation timed out] 22:07:33 -!- bweaver [~user@75-148-111-133-Chattanooga.hfc.comcastbusiness.net] has quit [Quit: ERC Version 5.3 (IRC client for Emacs)] 22:11:31 gravicappa [~gravicapp@ppp85-140-145-129.pppoe.mtu-net.ru] has joined #scheme 22:15:08 -!- wingo [~wingo@81.38.181.220] has quit [Ping timeout: 245 seconds] 22:18:14 jcowan [c6b912cf@gateway/web/freenode/ip.198.185.18.207] has joined #scheme 22:18:44 *jcowan* unvanishes 22:19:17 -!- Modius [~Modius@cpe-24-28-30-165.austin.res.rr.com] has quit [Quit: I'm big in Japan] 22:25:55 antoszka [~antoszka@unaffiliated/antoszka] has joined #scheme 22:29:15 -!- fradgers- [~fradgers-@5e0aadb6.bb.sky.com] has left #scheme 22:33:06 saccade [~saccade@209-6-54-113.c3-0.smr-ubr1.sbo-smr.ma.cable.rcn.com] has joined #scheme 22:34:40 -!- wbooze [~user@xdsl-87-79-87-210.netcologne.de] has quit [Read error: Connection reset by peer] 22:34:42 -!- homie [~user@xdsl-87-79-87-210.netcologne.de] has quit [Read error: Connection reset by peer] 22:36:16 wbooze [~user@xdsl-78-34-222-94.netcologne.de] has joined #scheme 22:36:23 homie [~user@xdsl-78-34-222-94.netcologne.de] has joined #scheme 22:36:28 -!- danbrown [~jdanbrown@nomad.ccs.neu.edu] has quit [Quit: danbrown] 22:42:10 -!- molbdnilo [~Ove@c80-216-202-29.bredband.comhem.se] has quit [Quit: molbdnilo] 22:42:20 brandelune [~suzume@pl571.nas982.takamatsu.nttpc.ne.jp] has joined #scheme 22:47:48 -!- hotblack23 [~jh@p57B59EC3.dip.t-dialin.net] has quit [Quit: Leaving.] 22:54:53 -!- aidalgol [~user@202.36.179.68] has quit [Quit: test] 23:05:32 -!- Nshag [user@lns-bzn-30-82-253-156-111.adsl.proxad.net] has quit [Ping timeout: 276 seconds] 23:07:50 Nshag [user@lns-bzn-40-82-251-172-184.adsl.proxad.net] has joined #scheme 23:09:43 -!- gravicappa [~gravicapp@ppp85-140-145-129.pppoe.mtu-net.ru] has quit [Ping timeout: 245 seconds] 23:18:51 great! My program worked out in the end and is now finished. Another step to world maket domination for my notation software (once Guile fixes baseN radix > 16) 23:19:26 cky: instead of creating a mixed base7, base5 enviroment I just used base35 which is harder to read for the human but a lot easier to implement 23:19:44 but it keeps the numbers short :) 23:22:24 fod [~fod@92.251.255.6.threembb.ie] has joined #scheme 23:25:13 Scala_ [~agscala@198.111.39.24] has joined #scheme 23:27:07 -!- dzhus [~sphinx@95-24-0-250.broadband.corbina.ru] has quit [Ping timeout: 240 seconds] 23:32:33 -!- jcowan [c6b912cf@gateway/web/freenode/ip.198.185.18.207] has quit [Quit: Page closed] 23:44:19 -!- Fare [~Fare@ita4fw1.itasoftware.com] has quit [Quit: Leaving] 23:46:13 -!- brandelune [~suzume@pl571.nas982.takamatsu.nttpc.ne.jp] has quit [Quit: brandelune] 23:59:03 SirNick [~nick@199.223.126.66] has joined #scheme