/prog/ is dying

you sick FUCKS

LE REDDIT FACE
xD

PROG CHALLENGE [HARD]

IMPLEMENT THE FOLLOWING MORE ELEGANTLY:

http://www.cs.cmu.edu/afs/cs/project/ai-repository/ai/lang/lisp/code/fun/life.cl

conway's game of dicks

( ͡; ͟ʖ ͡;)   and it was never good

(  ͡;  ͟ʖ  ͡; )

>>3
Wasn't this in Lain?

>>7
yes

>>3
I puked a little in my mouth reading that implementation.

>>9
I know, isn't it wonderful?

>>7
And when she reads it, it's displayed in a proportional font!

>>3
No borders and no indices, turned out way uglier than I set it out to be because I got lazy:


(define test
 '((0 0 0 0 0 0 0 0)
   (0 0 0 1 1 0 1 0)
   (0 0 1 0 1 0 1 0)
   (0 0 1 1 1 0 0 0)
   (0 1 0 0 1 1 1 0)
   (0 1 1 1 0 0 0 0)
   (0 0 0 1 1 0 1 0)
   (0 0 0 0 0 0 0 0)))

(define (shiftl l)
  `(,@(cdr l) ,(car l)))

(define (shiftr l)
  `(,(last l) ,@(reverse (cdr (reverse l)))))

(define (combine . xs)
  (cond
    ((foldl (λ (a b) (or a b)) #f (map null? xs)) null)
    ((foldl (λ (a b) (and a b)) #t (map (λ (x) (not (list? x))) xs)) (apply list xs))
    (else (cons (apply combine (map car xs)) (apply combine (map cdr xs))))))

(define (neighbors m)
  (let ((top (shiftr m))
        (middle m)
        (bottom (shiftl m)))
    (map (λ (r) (map (λ (l) (foldl (λ (v i) (+ v i)) 0 l)) r)) (combine (map shiftl top) top (map shiftr top) (map shiftl middle) (map shiftr middle) (map shiftl bottom) bottom (map shiftr bottom)))))

(define (conway cell neighbor-count)
  (cond
    ((= neighbor-count 3) 1)
    ((and (= 1 cell) (= neighbor-count 2) 1))
    (else 0)))

(define (tick m)
  (map (λ (l) (map (curry apply conway) l)) (combine m (neighbors m))))

(define (show m)
   (for-each (λ (l) (begin (for-each (λ (e) (display (if (= e 1) "*" " "))) l) (newline))) m))

(define (life time torus)
  (let loop ((gen 0) (t torus))
    (unless (= gen time)
      (printf "Generation ~s\n" gen)
      (show t)
      (loop (add1 gen) (tick t)))))

>>12
Use vectors!

>>13
I wanted to use lists, if I want to do things with arrays I use C.

>>14
No, you've got it wrong. The data types you use should be determined by purpose, not language.

>>15
I just wanted to do it in a cute way. I know what the boring answer would look like.

>>16
You are forgiven. The gods will not haunt you tonight. I like how you used λ also.

>>5
U MENA /b/

hey
hey guys
I just saw this cool new même on the imageboards

*whips out dick*

[spoiler]/prog/[spoiler] is devolving, not dying.

>>20
Especially due to ^B_Bcode failures.

Minecraft confirms it

...3d would be better. ...and not in stutter. omg

　 　　　　　　　　　　,ﾍr/'!_,..-─- ､.,_
　　　　　　　　　　 ｒi:::;ゝ'´=-..,,__ 　　｀ヽ.
　　　　　　　　　　くﾝ´　　　　 　｀ヽ.､　　ヽ.
　　　　　　　　　　 / ,　/ ､_ i　　,　 ヽ!　 　',
　　　　　　　　　 く_/､ 」ｫ､!/! ./l_,.!- ﾊ　　 i
　　　　　　　　　　　//.7.ゞ'└'ｧr-ｫ Li_」　 i
　　　　　　　　　　く/ .ﾍ 　' ___　ゞ'´/ /　ﾊ !
　　　　　　　　　　　｀.!/｀>､'　 ) ,.イ､/!､/ !」
　　　　　　　　　　 　 ￣ ヾ'￣く／　｀ヽ.>ヽ
　　　　　　　　　　　　　　　 く!/　 　　 　!ヽﾄ､
　　　　　　　　　　　　　　　　ゝ!､　　ｧ'"ヽ:::', ヽ.
　　　　　　　　　-=＝ﾆニ二く!/｀'ｰへ. 　 ヽ.! /_
　　　　　　　　　　　　　　　　 <::::::::::::::〉　 /!´ー'　　　　　i
─-- ..,,,,__ 　　　　　　　　　.r／7｀'ｰ/　 ./「　　　　　　　ﾊ
｀"'' ─-- 二_"__''　─-- ::;;;____「|_,/　 /::::ﾊ　　　　　　/ .ﾉ
　　　　　　　　　　￣ｒ.ア"'':ｰ--| l.　　,iﾆﾆ⊃ヽ　　　 　i （
　　　　　　　　　　 r＜:::::/::::::::::l.」ｰ‐'::::::/::::ﾑ〉>､　　　 i　｀ヽ.
　　　　　　　　　　 7''>rヽ二ゝ､:::::::::::::::/::::;:イﾝ　　　　ノ　　　|
　　　　　　　　　　｀7'ｰ''￣｀_rｧ'-､__.イ/ン´　　,. '" ￣ ｀ヽ.　 i
　　　　　　　　　　.!,ゝ､_､_,.／　 .,.-ｒ'ｰ'7　　　,' ,.　　　　 ､　　 i
　　　　　　　　 　/　　／　　　　|i::;イ'7　　　 i　・　 　　・　　　i
　　　　　　,.-‐ ｒ'ｰ-ン　　　　　 ヽ--'　　　　 ',　ヽ-' ｰ'　　　/
　　　　　 |i:::;イ｀ｰ'7　　　　　　　　　　　　　　 ヽ､.,_______,,. '
　　　　　 ヽ､__ﾆン

　　　　　　　　　　　_,,,...,,_
　　　　　　　　　,.:く:::::::::::::::＼
　　　　　　　　,:'＿;;:＞-‐::ｧ':::':,　　　　/´｀ヽ、 ,. -─- ､
　　　　 　 　 /:::::::::::::::::::／:::::::::';　　,. - ､＿,,.メ.,__ 　　　＼
　　　　　　　;:-＼＿::イ::::::::::::::_;ﾊ／　 _,..,_　　　　 ｀ヽ
　　　　　　　|:::::::::＞ ''"´￣￣　｀''＜´　　 ｀'　、　　　}
　　　　　　　l,　'´/　　　　、　　　　　｀' 、　　　 ':,　　/
　　　　　 ／　　 ; 　　　　ハ‐-ヽ、 　　 ヽ　}　 　}
　　　　.,:'　.　　/{ 　　　./_」ﾆ=t､ﾊ 　 　　ﾊﾉ　　 ;
　　　 /　./　 /__ﾄ､　　;'ｧ' lh　,ﾊﾉl|　　,　 | '　　 /
　　　.'　 ;　　;' _」_　＼| 　 ゝ-ﾟ' ,./　 /　 ;　|　　;
　　　!　 {　　l!´lhﾊ　　 　　 　 ∠ イ　 |/　;'　　{
　　　',　 ＼ ﾊ　ゝﾟ`　　　ノ　　 　/　　,ﾊ ∧　　'、
　　　 ＼ 　｀＞"　　 ｰ'´　　　　,'　　,.'　 ;'　':、　 ＼
　　　　　∨ | 人 　　　　　　　 ;　.／/　/　　 ',　　　ヽ
　　　　　　/{ 　 |＞, 、　　_,,.　ﾚ'ﾑ,ｲ ／　　　 } 　　　 ':,
　　　　　 ,'　' 　 !/ |　｀てlﾊ　　_／ ｀ｧ─- ､ /　 }　　　}
　　　　　 ﾚ'´ ＼{　 '､|　ｒ'八￣ 　 ／　　/ 　 ヽ./　　 ./
　　　　　　　　　 　　 _/{ト-ｒ-= '" 　　　.|/　 　 ＼ ／
　　　　　　　　　 　;'´ {/　/　{　　 　　　/　 　　 　 ,
　　　　　　　　 　 ;　|/ ／_ 　}　　　　　;　　　 　 　 }
　　　　　　　　 　,　.,' ;:'"::::::':,{　　　　／´） 　 　　|/
　　　　　 　 　　/　' .{:::::::::::::;l!　　　/ ´-ヽ　　 　,'
　　　　　　　　 ;'　 {/ ﾞ' ｰ ''"ﾘ　 _ｒ;'　 _-､_）　　/
　　　　　　 　ｒ'{　/}　　　　 /／/!　　ﾉ　　　　/
　　　　　　　 { ヽ.,/　_,,.. -''"　 { { イ　　　　 /{ヽ

░░░░░░░▄▀▀▀▀▀▀▀▀▀▀▄▄░░░░░░░░░
░░░░▄▀▀░░░░░░░░░░░░░▀▄░░░░░░░
░░▄▀░░░░░░░░░░░░░░░░░░▀▄░░░░░ YOU HAVE BEEN VISITED BY
░░█░░░░░░░░░░░░░░░░░░░░░▀▄░░░ LE 'FEEL OF NO GF
░▐▌░░░░░░░░▄▄▄▄▄▄▄░░░░░░░▐▌░░
░█░░░░░░░░░░░▄▄▄▄░░▀▀▀▀▀░░█░░ A qt 3.14 gf will come to you,
▐▌░░░░░░░▀▀▀▀░░░░░▀▀▀▀▀░░░▐▌░ but ONLY if you post a
█░░░░░░░░░▄▄▀▀▀▀▀░░░░▀▀▀▀▄░█░ `>tfw no GF on this thread
█░░░░░░░░░░░░░░░░▀░░░▐░░░░░▐▌
▐▌░░░░░░░░░▐██▀█▄░░░░░░█▀█░▐▌
░█░░░░░░░░░░░▀▀▀░░░░░░▀▀▀▀░▀▄
░▐▌░░░░▄░░░░░░░░░░░░░▌░░░░░░█
░░▐▌░░▐░░░░░░░░░░░░░░▀▄░░░░░█
░░░█░░░▌░░░░░░░░▐▀░░░░▄▀░░░▐▌
░░░▐▌░░▀▄░░░░░░░░▀░▀░▀▀░░░▄▀░
░░░▐▌░░▐▀▄░░░░░░░░░░░░░░░░█░░
░░░▐▌░░░▌░▀▄░░░░▀▀▀▀▀▀░░░█░░░
░░░█░░░▀░░░░▀▄░░░░░░░░░░▄▀░░░
░░▐▌░░░░░░░░░░▀▄░░░░░░▄▀░░░░░
░▄▀░░░▄▀░░░░░░░░▀▀▀▀█▀░░░░░░░