#!/usr/bin/env ghc

-- the universal czyborspace thesis, also known as plank.hs or weltformel.c
-- 2013-10-30 ©©by czyborra@campus.tu-berlin.de:facebook.com/roman.czyborra
-- expresses that אל nature is governed by one tiny deterministic lex radicalis
-- hereby creatively expressed in Y2K+13-human-graspable haskell curry formulae
-- 2b expressed later in less inhuman and more mind-blowing bee optoakustix

-- above אל dedicated2 alan+albert+wilhelm fromthe turing+einstein+reich tribes
-- who expressed major inspirations & harvested tragic obstacles
-- 2 studiendirektorin hellwig who taught us the ability 2 count is what counts
-- 2 professor penn-karras who memorizes all her math without any paper clutter
-- 2 dietrich dörner 4 saying understood is only what ourselves can rebuild
-- 2 joscha bach 4 his αφορισμοσ that intelligence is motivated recognition
-- 2 olove hartmann who preached children need walk backwards 2 learn math
-- & whom i miss the hardest due 2 his lonely drowning in this ignorant hell

module Mature where

-- since 1899 when max планк first observed irratsif quantum effect granularity
-- of multiples of ℎ=lightc(≈2⁴⁰m/h)*electronm(≈1kg/2¹⁰⁰)*electronλ(≈2.4pm)
-- in all natural effects and since it's considered radiometrically proven that
-- our universe appears 2b expanding out of 1 singularity and since konrad zuse
-- in rechnender raum in 1969 conjecture the concept of digital physics that
-- all physique maybe no more than deterministic digital information processing
-- in 3d space, the most likely initial space configuration is

singularity = [[['*']]] -- also known as urknall /hoerknal/ big bang theory
test_0 = singularity

-- charlie marx, charles darwin and sir charles popper (life is problemsolving)
-- observed that small evolutionary steps drive history

steps gen0 step = gen0 : steps (step gen0) step
test_1 = take 11 (steps 1 (* 2))

-- in his 2002 new kind of science book physics doctor stephen wolfram analyzed
-- finite sections of many infinite binary 1d-linear elementary cell assemblers
-- who mendel in single-instruction-step-on-multiple-data parallelism
-- every three neighboring old cell bits into each new cell bit value

triplehoods (a:b:c:d) = [a,b,c] : triplehoods (b:c:d)
triplehoods _ = []
test_2 = triplehoods " ** ** "

-- wolfram found 2 αμφιχιραλ turing-universal regulae
-- that do not generate ενεργεια '*' out of cold [' ',' ',' '] namely
-- take rule 124 as universal expansion generation rule
-- take rule 110 as universal reflexion generation rule

update3cells uni "   " = ' '
update3cells 124 "  *" = ' '
update3cells 110 "*  " = ' '
update3cells uni "***" = ' '
update3cells uni other = '*'

addblanksfor 124 cellrow = triplehoods (" " ++ cellrow ++ "  ")
addblanksfor 110 cellrow = triplehoods ("  " ++ cellrow ++ " ")

updatecellrow by = map (update3cells by) . (addblanksfor by)
test_3 = take 36 (steps "*" (updatecellrow 124))

-- the hitherto missing link
-- published neither by wolfram nor google nor the nsa
-- is my following personally added geometric synthesis
-- as 1 expanding & rotatingly-updating 3d-cellular automaton
-- with bit cells in cubic spatial location step dimensions
-- single-stepping over natural 1d планк time steps
-- in 1 orthogonal ℕ⁴ ether spacetime universe
-- with weakly attracting & loudly colliding masses &
-- strongly homosexually repelling & traveling electric charges &
-- magnetic rotations underreputed as imaginary rather than core cause

pam f p = if null p || null (head p) then []
          else f (map head p) : (pam f (map tail p))
test_4 = (pam id) [
           ['⠁','⠂','⠃','⠄','⠅','⠆'],
           ['1','2','3','4','5','6'],
           ['a','b','c','d','e','f'],
           ['а','б','в','г','д','е'],
           ['α','β','γ','δ','ε','ф'],
           ['א','ב','ג','ד','ה','ו']
          ]

xup by = map (map (updatecellrow by))
yup by = map (pam (updatecellrow by))
zup by = pam (map (updatecellrow by))

orgonradiate = zup 110 . yup 110 . xup 110 . zup 124 . yup 124 . xup 124
test_5 = take 16 (steps singularity orgonradiate)

exactquantumhistory = steps singularity orgonradiate
test_6 = exactquantumhistory !! 6
test_7 = exactquantumhistory !! 7
test_8 = exactquantumhistory

-- i want2 use such formulae 2cure some relevant errors done v heretics
-- i want2 engineer a bioscopic zoomer into spacetime 4psychoarcheology
-- i want2 ease xact problemsolving within the lightslowness misery
-- 2 rid biodiversity fears lest we starve like wilde+gödel

-- verstehende liebe ist der gegenspieler der angst
-- losie majdanków dla mnie zawsze będziesz przestroga