dinsdag 5 oktober 2004

HBK=HBKP=laatste deel?

Oetzitterd���Alles is herleidbaar tot vier/4!
Alles is herleidbaar tot vier of 4, het is maar hoe je wilt. Hoe kom ik daar bij? Via Zwe,
die kwam daar gisteren namelijk mee. Let maar op!
Twaalf = zes = drie = vier, tel dus maar even het aantal letters. En nee, volgens
mij is er echt geen woord dat niet herleidbaar is tot vier. Probeer maar eens!
Hottentottententententoonstelling = drieendertig = twaalf = zes = drie = vier. Tadaa!
Nog eentje, de = twee = vier. En nog eentje om het af te leren: televisie = negen = vijf = vier.

De filosofie is dus gewoon simpelweg het aantal letters tellen van het woord en dan weer het aantal
letters van het telwoord en mocht dat een vier zijn dan nog maals het aantal letters van dat telwoord
totdat je uiteindelijk op vier uitkomt!

Het getal 4 is daarmee een singulariteit voor het complete woordenboek! (Eigenlijk is het ieder telwoord dat gewoon wordt gereduceerd tot het getal 4)

dit qbasic programmaatje laat dat zien (voor nederlandse teksten):
---------------------------------------------------------------------
CLS
INPUT "overestimation for the amount of words"; N
M$ = CHR$(34)
F$ = "C:\...\...\.."
PRINT "the syntaxis of the path must be written like:"; M$ + F$ + M$
INPUT "path to textfile"; path$
DIM W$(N), W(N)
OPEN path$ FOR INPUT AS #1
DO UNTIL EOF(1)
LINE INPUT #1, RR$
A$ = " " + RR$ + " "
lengte = LEN(A$)
b$ = " "
FOR b = 2 TO lengte
s = INSTR(b - 1, A$, b$)
s1 = INSTR(b, A$, b$)
IF s < s1 THEN
x = x + 1
lengte = s1 - s
G$ = MID$(A$, s, lengte)
IF RIGHT$(G$, 1) = ";" THEN G$ = LEFT$(G$, LEN(G$) - 1)
IF RIGHT$(G$, 1) = "," THEN G$ = LEFT$(G$, LEN(G$) - 1)
IF RIGHT$(G$, 1) = "." THEN G$ = LEFT$(G$, LEN(G$) - 1)
IF RIGHT$(G$, 1) = ":" THEN G$ = LEFT$(G$, LEN(G$) - 1)
IF RIGHT$(G$, 1) = "?" THEN G$ = LEFT$(G$, LEN(G$) - 1)
IF RIGHT$(G$, 1) = "!" THEN G$ = LEFT$(G$, LEN(G$) - 1)
IF RIGHT$(G$, 1) = ")" THEN G$ = LEFT$(G$, LEN(G$) - 1)
IF LEFT$(G$, 1) = "(" THEN G$ = RIGHT$(G$, LEN(G$) - 1)
UL = LEN(G$) - 1
begin:
RESTORE
FOR mm = 1 TO 50
READ num$
IF mm = UL THEN WW$ = num$
NEXT mm
UL = LEN(WW$)
PRINT x, G$, WW$, UL
IF UL <> 4 THEN GOTO begin
PRINT
W$(x) = G$
END IF
NEXT b
LOOP
CLOSE 1
END

DATA een,twee,drie,vier,vijf,zes,zeven,acht,negen,tien,elf,twaalf,dertien
DATA veertien,vijftien,zestien,zeventien,achttien,negentien,twintig
DATA eenentwintig,tweeentwintig,drieentwintig,vierentwintig,vijfentwintig
DATA zesentwintig,zevenentwintig,achtentwintig,negenentwintig,dertig
DATA eenendertig,tweeendertig,drieendertig,vierendertig,vijfendertig
DATA zesendertig,zevenendertig,achtendertig,negenendertig,veertig
DATA eenenveertig,tweeenveertig,drieenveertig,vierenveertig,vijfenveertig
DATA zesenveertig,zevenenveertig,achtenveertig,negenenveertig,vijftig

-------------------------------------------------------------------
(paste and copy)

Het blijkt dat de meeste woorden al in een stap op het gewenste resultaat uitkomen.
In 4 stappen komt maar zelden voor, maar dit zegt alleen maar iets over de lengte van de woorden.

honk=4
bal=drie=4
knuppel=zeven=vijf=4
honkbalknuppel=veertien=acht=4
honkbalspeler=dertien=zeven=vijf=4
enz.