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