#!/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

-- later definitely expressable in more mind-blowing less inhuman bee optoakustix

-- above אל dedicated 2 alan+albert+wilhelm from the 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 cluttering paper

-- 2 dietrich dörner for saying we have only understood what we can rebuild ourselves

-- 2 joscha bach for his αφορισμοσ that intelligence is motivated recognition

-- 2 olove hartmann who preached children must learn 2 walk backwards 2 learn math

-- & whom i miss the hardest due 2 his lonely drowning in this blind+ignorant hell

module Mature where

-- since 1899 when max планк first observed irratsif quantum effect granularity of

-– h=lightspeed(≈2⁴⁰m/h)electronwavelength(≈2.4pm)/masselectrons(≈2¹⁰⁰/kg) multiples

-- in all natural effects and since it is considered radiometrically proven that

-- our universe appears 2b expanding out of one singularity and since konrad zuse

-- conjectured in rechnender raum the concept of digital physics that all physique

-- might be no more than deterministic digital information processing in 3d space

-- the most likely initial space configuration is

singularity = [[['1']]] –- also known as urknall /dutch hoerknal/ big bang theory

test_0 = singularity

-- charlie marx, charles darwin and sir charles popper

-- 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 cellular 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 "0110110"

-- wolfram found 2 αμφιχιραλ turing-universal regulae

-- that do not generate ενεργεια 1 out of cold 000 namely

-- take rule 124 as universal expansion generation rule

-- take rule 110 as universal reflexion generation rule

update3cells _ "000" = '0'

update3cells 124 "001" = '0'

update3cells 110 "100" = '0'

update3cells _ "111" = '0'

update3cells _ _ = '1'

addblanksfor 124 cellrow = triplehoods ("0" ++ cellrow ++ "00")

addblanksfor 110 cellrow = triplehoods ("00" ++ cellrow ++ "0")

updatecellrow by = map (update3cells by) . (addblanksfor by)

test_3 = updatecellrow 124 "1011100101"

-- the hitherto missing link published neither by wolfram nor google nor the nsa

-- is my personally added geometric synthesis as an expanding and rotatingly updating

-- 3d cellular automaton with bit cells in cubic spatial location step dimensions

-- single-stepping over natural 1d планк time steps in orthogonal ℕ⁴ ether spacetime

-- able to explain a universe with weakly attracting but loudly colliding masses

-- and strongly homosexually repelling but silently еffecting electric charges and

-- magnetic rotations underreputed as imaginary numbers rather than the core cause

heads = map head

tails = map tail

xch f p = if null p || null (head p) then [] else (heads p) : (xch f (tails p))

test_4 = (xch id) ["⠁⠂⠃⠄⠅⠆","123456","abcdef","абвгде","αβγδεф","אבגדהו"]

xup by = map (map (updatecellrow by))

yup by = map (xch (updatecellrow by))

zup by = xch (map (updatecellrow by))

orgonradiate = zup 110 . yup 110 . xup 110 . zup 124 . yup 124 . xup 124

test5 = orgonradiate singularity

exactquantumhistory = steps singularity orgonradiate

test_6 = exactquantumhistory !! 6

test_7 = exactquantumhistory !! 7

test_8 = exactquantumhistory

-- i already dare say this formula may help cure some relevant errors done v heretics

-- by first engineering a bioscopic zoomer into spacetime for future psychoarcheology

-- to ease exact problem solving within the slowness of all miserably mattering light

-- so we can solve most of our biodiversity fears lest we need starve like wilde+gödel

-- verstehende liebe ist der gegenspieler der angst

-- losie majdanków dla mnie zawsze będziesz przestroga