| Textmutationen von ??? |
| Ein Thread über Codes um Texte zu mutieren. Erstes einfach Beispiel: Ein Code der bei allen Wörtern die Buchstaben durcheinanderbringt, ausser dem ersten und letzten Buchstaben eines Wortes: [code:1:f8e0ba40c5]SeedRnd MilliSecs() s$=Input$("Gebe einen Satz ein: ") Print SentenceLetterSwap$(s$) WaitKey End ;========================================= Function SentenceLetterSwap$(s$) i2 = 1 i = Instr(s$," ",1) If i = 0 Then Return LetterSwap$(s$) Repeat r$ = r$ + " " + LetterSwap$(Mid$(s$,i2,i-i2)) i2 = i+1 i = Instr(s$," ",i+1) Until i=0 r$ = Mid$(r$,2,-1)+" "+LetterSwap$(Mid$(s$,i2,-1)) Return r$ End Function ;========================================= Function LetterSwap$(s$) Print s$ l = Len(s$)-2 If l<2 Then Return s$ r$ = Left$(s$,1) z$ = Mid$(s$,2,l) Repeat i = Rand(1,l) r$ = r$ + Mid$(z$,i,1) z$ = Left$(z$,i-1)+Mid$(z$,i+1,-1) l = l - 1 Until z$="" r$ = r$ + Right$(s$,1) Return r$ End Function[/code:1:f8e0ba40c5] |
| von ??? |
| lass mich raten, du hast auch diesen text gelesen, das die setlulng der Bucshtbaen egal ist wenn der erste und letzte Buchstabe jeweils stimmt ? |
| von ??? |
| Hmm, bei langen Worten wird es schon zu einem Problem. Ab einer gewissen Grösse sollte man die ersten und letzten beiden Buchstaben stehen lassen... |
| von ??? |
| Was ist denn leichter zu lesen: Hlalo oder Wderiefauabu |
| von ??? |
| das längere *find* |
| von ??? |
| zum Thema Buchstabensalat http://www.n-tv.de/3184754.html |