Snow
Administrator
Anmeldedatum: 21.11.2000
Beiträge: 1946
Wohnort: Deiningen
|
 Verfasst am: 03.04.2004 - 00:10 Titel: Blödsinn! |
 |
|
Hallo,
angeblich soll ja jeder Text lesbar sein, solange von den einzelnen Wörtern die Anfangs- und Endbuchstaben richtig sind. Alle Buchstaben dazwischen können ruhig in der falschen Reihenfolge da stehen.
Ich habe mir mit AppleScript mal eben einen "Textverwirbler" gebastelt. - Also der resultierende Text liest sich gar nicht mehr leicht:
" Dseier Txet slol nach Abaulf des Setpikrs taotl derdniuancher sein. Dbaei stloeln aebr von jdeem Wrot der Aancubbshsgtafne und Eabhsncbtdue gcileh bbelein. Die jieiglween Babhtuescn deziawhscn mssüen drneheacnduir glbwieret weerdn. "
Hier ist das Skript, das alles durcheinander bringt:
set myText to getMyText()
set AppleScript's text item delimiters to ". "
set SatzListe to every text item of myText
set AppleScript's text item delimiters to ""
set neuerText to ""
repeat with einSatz in SatzListe
set WortListe to every word of einSatz
repeat with einWort in WortListe
set neuerText to neuerText & " " & ScrambleText(einWort)
end repeat
set neuerText to neuerText & ". "
end repeat
neuerText
-------------
(* HANDLER *)
-------------
on ScrambleText(einWort)
set Pos1 to the first character of einWort
set PosL to the last character of einWort
set PosM to characters 2 thru -2 of einWort
set MLength to the length of PosM
set PositionList to (my defineCharList(MLength))
set NewPosList to {}
repeat until (count of NewPosList) = MLength
set newPos to some item of PositionList
if newPos is not in NewPosList then
set the end of NewPosList to newPos
end if
end repeat
set newCharList to {}
repeat with oneItem in NewPosList
set the end of newCharList to item oneItem of PosM
end repeat
set neuesWort to ((Pos1 & newCharList as string) & PosL) as string
return neuesWort
end ScrambleText
on defineCharList(MLength)
set CharCount to 0
set PosList to {}
repeat MLength times
set CharCount to CharCount + 1
set the end of PosList to CharCount
end repeat
return PosList
end defineCharList
on getMyText()
set temp to "Dieser Text soll nach Ablauf des Skriptes total durcheinander sein. Dabei sollten aber von jedem Wort der Anfangsbuchstabe und Endbuchstabe gleich bleiben. Die jeweiligen Buchstaben dazwischen müssen durcheinander gewirbelt werden."
return temp
end getMyText
_________________
Peter
-
Fischer-Bayern.de|Shadetreemicro.com |
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
