Nobreakspace
Ausstattung
Dienste
Chaotikum
Seitenleiste
projekte:barcamp:notes:aplundqube
Dies ist eine alte Version des Dokuments!
Notes
Meine Sprache hat mehr Sonderzeichen als deine: Game Of Life in APL und Qube
APL
⍝ Game of Life r ← (3 3 ⍴ ⍳ 9) ∊ 2 6 7 8 9 R ← ¯1 ⊖ ¯1 ⌽ 6 6 ↑ r life←{⊃1 ⍵ ∨.∧ 3 4 = +/ +/ 1 0 ¯1 ∘.⊖ 1 0 ¯1 ⌽¨ ⊂⍵} gen←{(life⍣⍵)⍺} gens ← {((⍵+1) ⍴ ⊂⍺) gen¨ (⍳ ⍵+1)-1} print ← {{'.⌹'[⍵+1]}¨⍵} print¨ R gens 4 )OFF
projekte/barcamp/notes/aplundqube.1454707013.txt.gz · Zuletzt geändert: 04.01.2021 00:58 (Externe Bearbeitung)