00:03 (join) mwolfe
00:40 (join) _danb_
00:42 (quit) vivitron: Ping timeout: 265 seconds
00:43 (quit) parcs: Ping timeout: 240 seconds
00:45 (join) parcs
01:27 (quit) mwolfe: Remote host closed the connection
01:40 (join) jonrafkind
02:15 (quit) rien_home: Ping timeout: 240 seconds
02:17 (join) rien_home
02:46 (quit) jonrafkind: Ping timeout: 260 seconds
02:55 (join) aLeSD
02:57 (join) neilv
02:57 (quit) neilv: Changing host
02:57 (join) neilv
03:02 (join) MayDaniel
03:06 (join) rexim
03:08 (quit) MayDaniel: Read error: Connection reset by peer
03:54 (quit) aLeSD: Ping timeout: 240 seconds
04:06 (quit) mheld: Quit: mheld
04:40 (quit) tv|z: Ping timeout: 240 seconds
04:43 (join) tv|z
04:52 (nick) _danb_ -> _dnb_
04:56 (join) masm
05:29 (join) aLeSD
06:42 (quit) aLeSD: Ping timeout: 255 seconds
07:09 (join) greenm0nk
07:11 greenm0nk: has the extension of racket changed with the name? or is it still .plt?
07:12 greenm0nk: ah fine... found rkt in the release notes.
07:12 _dnb_: have a feeling .rkt might be the go; but I'm fairly new to this myself
07:12 _dnb_: greenm0nk: what language are you coming from btw?
07:12 greenm0nk: _dnb_: http://docs.racket-lang.org/release-notes/racket/Racket_5.txt says .rkt is the prefered extension
07:13 greenm0nk: _dnb_: ruby js and the web stuff
07:13 _dnb_: ah, like me :)
07:13 _dnb_: there was talk at one of those rails conf with someone going on about sicp
07:14 _dnb_: not that I was there; I was looking at this stuff before I heard it
07:14 greenm0nk: _dnb_: to your tip on the other channel about installing from repo. i downloaded the latest version from racket site
07:14 greenm0nk: _dnb_: oh! were they talking bad or good about the book?
07:15 greenm0nk: _dnb_: well i've never been to railsconf too. I only watch talks online. (only this gifted)
07:15 _dnb_: well, I just happened to be listening to the podcast; he was saying it is the first thing you should read; so I figured there might be more rails/ruby peeps drifting over
07:16 greenm0nk: haha. no. i just came here out of interest.
07:17 greenm0nk: _dnb_: is it compulsory to  specify at the top of the program "#lang racket"
07:17 _dnb_: uhm, probably :)  that's the best option
07:17 _dnb_: I'm checking out the web server
07:17 _dnb_: the plt webserver/app stuff is *very* interesting
07:17 _dnb_: *racket
07:17 _dnb_: though probably not fully-featured the way rails is, obviously
07:19 greenm0nk: you actually get pampered when you turn to ruby that someday you'll start wanting to do some really raw stuff like tinker ASM for instance
07:22 _dnb_: (I think that podcast was dated jun-2010 actually)
07:22 greenm0nk: oh
07:25 greenm0nk: wow! the DrRacket IDE is awesome. I just closed emacs to use it
07:26 _dnb_: hm, yes, I've only just started playing with; ultimately I will probably do any serious work in emacs
07:26 greenm0nk: _dnb_: ofcourse :)
07:31 _dnb_: greenm0nk: btw I think #scheme is a livelier channel; there were some responses to your q's there
07:32 greenm0nk: _dnb_: ya :) agree.
07:34 (join) Yann1
07:36 (quit) Yann3: Ping timeout: 272 seconds
07:43 (quit) greenm0nk: Quit: ChatZilla 0.9.86 [Firefox 3.6.13/20101206121716]
07:45 (join) mceier
08:05 (quit) martinhex: Read error: Connection reset by peer
08:06 (join) martinhex
08:16 (quit) martinhex: Ping timeout: 260 seconds
08:19 (join) martinhex
08:20 (join) MayDaniel
08:26 (quit) martinhex: Ping timeout: 240 seconds
08:31 (join) martinhex
08:36 (quit) martinhex: Remote host closed the connection
08:36 (quit) MayDaniel: 
08:37 (quit) _dnb_: Ping timeout: 272 seconds
08:39 (join) martinhex
08:49 (join) Samy
08:51 Samy: I need all 81 possible combinations of  (1  0 0)(1 0 0)(1 0 0)(1 0 0) like (1  0 0)(0 1 0)(0 0 1)(1 0 0)... can PLS someone tell me how i can do that
08:51 Samy: I Try it with perumation but it dindt work
08:52 Samy: 81 = 3*3*3*3 possible permutations are there
08:54 Samy: pls help me i try it 3 days now :(
08:55 Lajla: Samy, let me see what I can do.
08:57 rien_home: are there really 81 permutations of that??
08:58 Lajla: Yeah
08:58 Lajla: I was just wondering.
08:58 rien_home: I can only find: [[[1,0,0],[0,1,0],[0,0,1]],[[0,1,0],[1,0,0],[0,0,1]],[[0,0,1],[0,1,0],[1,0,0]],[[0,1,0],[0,0,1],[1,0,0]],[[0,0,1],[1,0,0],[0,1,0]],[[1,0,0],[0,0,1],[0,1,0]]]
08:58 (nick) rien_home -> rien_
08:58 Samy: yea   3*3*3*3
08:59 rien_: tell me one that's missing from my list
08:59 Samy: rien  you not find  for example 100 100 100 100
08:59 rien_: oh it's four triples...
09:01 Samy: here is  my code but this find only 24  http://codepad.org/HBzb6fvU
09:02 rien_: Samy: the problem with your question is that it makes me feel dumb :P
09:04 Samy: each bracket can be (1 0 0) or ( 0 1 0) or (0 0 1)  3*3*3*3 =81.
09:05 rien_: yeah I'm convinced now
09:07 Samy: If some one tell me how i can find all 3 permutation of '(1 0 0)  i think that i can solve it alone
09:07 rien_: that's easy
09:07 rien_: http://www.dreamincode.net/forums/topic/105676-scheme-permutation-algorithm/
09:07 rudybot: http://tinyurl.com/37dv6ap
09:10 rien_: that worked for you?
09:11 Samy: no i try it now
09:13 Samy: Here is my problem
09:13 Samy: For (permute '((1 0 0)(1 0 0)(1 0 0)(1 0 0)))
09:13 Samy: i get only  (1 0 0) (1 0 0) (1 0 0) (1 0 0)
09:15 rien_: but is that code from the link working?
09:15 rien_: for '(1 2 3)
09:15 Samy: yea
09:15 Samy: for  1 2 3 it working fine
09:17 bremner: didn't look at the code, but perhaps it assumes the elements are unique
09:17 Samy: yes i know  but  what can i do now ?
09:18 bremner: sorry, I've got my own homework to work on ;).
09:20 Samy: ok i did i think
09:20 Samy: solution is
09:21 Samy: permutation of permutation of permutation of permutation of
09:21 Samy: (permute(permute(permute(permute(permute '(1 0 0))))))
09:21 Samy: = 81
09:21 rien_: got it!!
09:21 Samy: caus 3*3*3*3
09:21 Samy: thx you all
09:21 rien_: [a:b:c:d:[]  | a <- [[1,0,0],[0,1,0],[0,0,1]], b <- [[1,0,0],[0,1,0],[0,0,1]], c <- [[1,0,0],[0,1,0],[0,0,1]], d <- [[1,0,0],[0,1,0],[0,0,1]] ]
09:21 rien_: haskell code
09:22 rien_: if scheme offers list comprehensions, this will be easier on the eyes
09:22 rien_: Samy: your solution doesn't work I think
09:23 (join) aLeSD
09:24 Samy: why
09:24 rien_: Samy: because it doesn't generate 81 lists of 4 items
09:25 Samy: fukk
09:25 Samy: ^^
09:26 Samy: your haskell code worls ?
09:26 Samy: works ?
09:26 rien_: yeah, hold on, I know the solution, just need to get list comprehensions to work in scheme (srfi-42)
09:26 rien_: yes!
09:26 rien_: type this on your irc terminal:
09:26 rien_: > [a:b:c:d:[]  | a <- [[1,0,0],[0,1,0],[0,0,1]], b <- [[1,0,0],[0,1,0],[0,0,1]], c <- [[1,0,0],[0,1,0],[0,0,1]], d <- [[1,0,0],[0,1,0],[0,0,1]] ]
09:26 Samy: (srfi-42)
09:26 rien_: with the > in front of it just like I showed you
09:27 Samy: >srfi-42
09:27 rien_: no
09:27 rien_: copy and past this:
09:27 rien_: > [a:b:c:d:[]  | a <- [[1,0,0],[0,1,0],[0,0,1]], b <- [[1,0,0],[0,1,0],[0,0,1]], c <- [[1,0,0],[0,1,0],[0,0,1]], d <- [[1,0,0],[0,1,0],[0,0,1]] ]
09:28 Samy: > [a:b:c:d:[]  | a <- [[1,0,0],[0,1,0],[0,0,1]], b <- [[1,0,0],[0,1,0],[0,0,1]], c <- [[1,0,0],[0,1,0],[0,0,1]], d <- [[1,0,0],[0,1,0],[0,0,1]]
09:28 rien_: then you'll get a message back from lambdabot (the haskell bot) with your 81 lists
09:28 rien_: now we just have to translate it to scheme
09:28 rien_: with the help of srfi-42
09:28 rien_: I'm trying, ok?
09:28 Samy: ok
09:30 offby1: rudybot: (let ([single-sequence '((0 0 1) (0 1 0) (1 0 0))]) (for*/list ([x single-sequence] [y single-sequence] [z single-sequence]) (list x y z)))
09:30 rudybot: *offby1: ; Value: (((0 0 1) (0 0 1) (0 0 1)) ((0 0 1) (0 0 1) (0 1 0)) ((0 0 1) (0 0 1) (1 0 0)) ((0 0 1) (0 1 0) (0 0 1)) ((0 0 1) (0 1 0) (0 1 0)) ((0 0 1) (0 1 0) (1 0 0)) ((0 0 1) (1 0 0) (0 0 1)) ((0 0 1) (1 0 0) (0 1 0)) ((0 0 1) (1 0 0) (1 0 0)) ((0 1 0) (0 0 1) (0 0 1)) ((0 1 0) (0 0 1) (0 1 0)) ((0 1 0) (0 0 1) (1 0 0)) ((0 1 0) (0 1 0) (0 0 1)) ((0 1 0) (0 1 0) (0 1 0)) ((0 1 0) (0 1 0) (1 0 0)) ((0 1 0) (1 0 0) (0 0 1)) (
09:31 Samy: rudy if your code is to long use pls  codepad.org
09:36 rien_: ok, got it
09:36 rien_: first, you need an egg
09:36 rien_: called list-of
09:36 rien_: so do:
09:36 rien_: sudo chicken-install list-of
09:36 rien_: then the code will be this:
09:36 rien_: (list-of (list a b c d) (a1 in '((1 0 0) (0 1 0) (0 0 1))) (a2 in '((1 0 0) (0 1 0) (0 0 1))) (a3 in '((1 0 0) (0 1 0) (0 0 1))) (a4 in '((1 0 0) (0 1 0) (0 0 1))) (a is a1) (b is a2) (c is a3) (d is a4))
09:36 rien_: TA-DA!
09:36 rien_: *whew*
09:36 rien_: :)
09:37 rien_: try it and let me know
09:38 rien_: Samy: ^
09:38 Samy: how i can compile this ?
09:39 rien_: did you isntall the egg?
09:40 Samy: the egg ?
09:40 rien_: yes
09:40 Samy: what is this ?
09:40 rien_: sudo chicken-install list-of
09:40 rien_: a package
09:40 rien_: you need it
09:40 rien_: to run my code
09:40 Samy: i use windows
09:40 rien_: so?
09:40 Samy: sudo chicken-install list-of  dont work  on windows
09:40 rien_: well then do it the windows way :)
09:41 rien_: (I don't know how)
09:41 rien_: probably just chicken-install list-of
09:41 rien_: probably just chicken-install "list-of" ?
09:41 (quit) neilv: Quit: Leaving
09:42 rien_: Samy: just so you see it working: http://pastebin.ca/2040325
09:43 Samy: wow  rly  nice
09:43 rien_: :)
09:43 Samy: big thx  from germany  rly
09:43 Samy: ^^
09:43 rien_: now go get it to work on your machine! :)
09:43 offby1: what I pasted into rudybot looks to be roughly equivalent
09:44 rien_ tests
09:44 rien_: I get an error, unbound for*/list
09:45 rien_: offby1: ^
09:45 Samy: Is  there a homepage for this egg ?
09:46 Samy: Where i can download it ?
09:46 rien_: http://wiki.call-cc.org/eggref/4/list-of?action=show
09:46 rien_: that's the homepage but you can't download from htere
09:46 rien_: you have to use chicken-install
09:47 rien_: you can probably find it on the folder where you installed chicken
09:47 Samy: on widows systems you cant user chicken-install
09:48 offby1: rien_: it should work in racket, but not in other schemes
09:48 Samy: can you save your 81 lists as .txt and send it to me ?
09:48 bremner: heh. widows systems
09:49 offby1: rudybot: (banner)
09:49 rudybot: *offby1: ; Value: "Welcome to Racket v5.0.1.\n"
09:50 rien_: offby1: oh I tried it in chicken, sorry. I don't know what samy is using
09:51 rien_: Samy: I can paste it online
09:51 (quit) aLeSD: Ping timeout: 260 seconds
09:51 Samy: yea do it  pls
09:54 rien_: Samy: http://pastebin.ca/2040338
09:55 rien_: Samy: wait, are you using racket?
09:55 rien_: offby1's code should work for you then, did you try it?
09:57 rien_: Samy: yeah, if you're using racket, this will work for you (I modified offby1's code):
09:57 rien_: (let ([single-sequence '((0 0 1) (0 1 0) (1 0 0))]) (for*/list ([x single-sequence] [y single-sequence] [z single-sequence] [w single-sequence]) (list x y z w)))
09:57 Samy: YEA  your list work with my code. My  game is almost finished
09:57 rien_: awesome
10:02 offby1 naïvely assumed that, this being #racket, everyone was talking about ... racket
10:05 rien_: offby1: no you're totally right, I just got confused because I have several scheme-related irc channels open. sorry :/
10:07 rien_: offby1: I tried telling him now at the end to use your code :)
10:08 Samy: Is there a way to pick randomly 3 permutations from your list of 81 ?
10:08 Samy: i mean an easy and fast way
10:08 Samy: pick random 3 list of your 81
10:10 rien_: Samy: do (random 81)
10:10 rien_: then you'll get a number between 0 and 80 inclusive. then you use that to select an index from the list
10:11 rien_: just do that three times and check to see if they don't repeat
10:12 Lajla: offby1, pfah, naïve realist.
10:12 Lajla: the axiomatic method is the only way.
10:12 Samy: Ok if rnd  for example  43, how i can  get the 43th list  from 81 ?
10:12 offby1 uses the genetic method
10:12 offby1: rudybot: doc list-ref
10:12 rudybot: *offby1: http://docs.plt-scheme.org/reference/pairs.html#(def._((quote._~23~25kernel)._list-ref))
10:13 offby1: Samy: ^^
10:14 Samy: ah  thx
10:14 Samy: it works
10:22 (join) MayDaniel
10:22 (join) corruptmemory
10:26 (join) aLeSD
10:29 (join) mwolfe
10:35 (join) mheld
10:42 (quit) masm: Ping timeout: 240 seconds
10:42 (nick) samth_away -> samth
10:43 Samy: How i can check are 3 values the same or not
10:44 Samy: in java i use  "and"
10:44 Samy: how it works in racket ?
10:46 offby1: Samy: the racket documentation is at http://docs.racket-lang.org/
10:47 Lajla: Samy, you can use and here too.
10:47 Lajla: Buuut
10:47 Lajla: comparison operators are usually variadic.
10:47 Samy: i read the doc. but and in racket seems different drom java
10:47 Lajla: So you can just use somehing like (string-equal? "string" "string" "string")
10:47 (join) masm
10:48 Lajla: Samy, not reall,y using (and (= x y) (= y z)) works fine, it's just bizarrely convoluted in lieu of using (= x y z)
10:48 Lajla: Same applies for (< x y z)
10:48 rien_: eq? and eqv? aren't variadic
10:48 Lajla: Theya re in racket as far as I know.
10:48 rien_: oh right, = :)
10:48 rien_: no I just tried
10:48 rien_: = is variadic though
10:49 Lajla: rudybot: (eqv? 1 1 1 1 1 1)
10:49 rudybot: Lajla: your sandbox is ready
10:49 rudybot: Lajla: error: eqv?: expects 2 arguments, given 6: 1 1 1 1 1 1
10:49 Lajla: Wot
10:49 Samy: equal? list list list  work  thx you
10:49 Lajla: I could have sworn thy worked.
11:18 _p4bl0: rien_: I know this is called double buffering, thanks for the link I'll try to see with this :-).
11:20 _p4bl0: rien_: what I wanted was the bitmap-dc%, thanks!!
11:26 rien_: _p4bl0: awesome!!
11:35 (quit) aLeSD: Ping timeout: 240 seconds
12:02 (quit) mwolfe: Remote host closed the connection
12:21 (quit) MayDaniel: Read error: Connection reset by peer
12:22 (quit) Samy: Quit: Page closed
13:02 (join) jonrafkind
13:04 (join) carleastlund
13:42 (part) carleastlund
13:42 (join) carleastlund
13:55 (join) anRch
14:24 (join) MayDaniel
14:35 (join) Yann3
14:36 (quit) Yann1: Ping timeout: 250 seconds
14:55 (join) mwolfe
15:16 (quit) jonrafkind: Ping timeout: 264 seconds
15:17 (quit) anRch: Quit: anRch
15:48 (quit) MayDaniel: 
15:56 (join) _danb_
16:29 (join) MayDaniel
16:33 (quit) rexim: Remote host closed the connection
16:43 (quit) MayDaniel: Read error: Connection reset by peer
17:02 (join) Samy_
17:04 (quit) tv|z: Ping timeout: 240 seconds
17:16 (join) lucian
17:17 (join) coldhead
17:25 (join) anRch
17:27 (quit) Samy_: Ping timeout: 265 seconds
17:44 (join) epochwolf|2
17:56 (join) MayDaniel
18:06 (quit) lucian: Remote host closed the connection
18:19 (quit) anRch: Quit: anRch
18:21 (quit) MayDaniel: Read error: Connection reset by peer
18:25 (quit) corruptmemory: Quit: Leaving
19:37 (nick) samth -> samth_away
19:43 (quit) epochwolf|2: Ping timeout: 272 seconds
19:48 (join) epochwolf|2
20:12 (quit) carleastlund: Quit: carleastlund
20:16 (quit) epochwolf|2: Read error: Connection reset by peer
20:34 (join) jonrafkind
20:36 (join) Yann1
20:37 (quit) Yann3: Ping timeout: 240 seconds
20:46 (quit) mceier: Quit: leaving
21:20 (quit) Lajla: Ping timeout: 255 seconds
21:22 (join) Lajla
21:34 (quit) masm: Quit: Leaving.
21:44 (quit) mwolfe: Remote host closed the connection