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