Sentence scrambler

[Toady]

Aoccdrnig to a rscheearch at an Elingsh uinervtisy, it deosn't mttaer in waht oredr the ltteers in a wrod are, the olny iprmoetnt tihng is taht frist and lsat ltteer is at the rghit pclae. The rset can be a toatl mses and you can sitll raed it wouthit porbelm. Tihs is bcuseae we do not raed ervey lteter by it slef but the wrod as a wlohe..

Looky..

I know its old, so please don't post unless you have something useful to say, thanks.

expandcollapse popup

#include <GuiConstants.au3>

$GUI = GUICreate("Sentence scramble",300,300,-1,-1)
GUICtrlCreateLabel("Enter a sentence",20,10,100)
$input_sentence = GUICtrlCreateInput("",20,30,260,100, $ES_MULTILINE)
$button = GUICtrlCreateButton("Scramble Sentence",90,260,120,30)
$output_sentence = GUICtrlCreateEdit("",20,150,260,100, $ES_READONLY)
GUISetState(@SW_SHOW,$GUI)

While 1
    $msg = GUIGetMsg()
    Select 
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $button
            Local $sentence = GUICtrlRead($input_sentence)
            If $sentence <> "" Then
                GUICtrlSetData($output_sentence,"")
                GUICtrlSetData($output_sentence,_Sentence_Scramble($sentence))
            Else
                MsgBox(0,"No sentence entered","Enter a sentence")
            EndIf
    EndSelect
WEnd

Func _Sentence_Scramble($sentence)
    Local $randomList
    Local $scrambled_Sentence
    $randomList = StringSplit($sentence," ")
    For $i = 1 To $randomList[0] 
        $scrambled_Sentence &= _Word_Randomize($randomList[$i]) & " "
    Next
    Return StringTrimRight($scrambled_Sentence,1)
EndFunc

Func _Word_Randomize($word)
    If StringLen($word) < 4 Then Return $word
    Local $literal
    For $i = 2 To Int(StringLen($word) / 2)
        $literal = $literal & StringMid($word, StringLen($word) - _ 
        $i + 1, 1) & StringMid($word, $i, 1)
    Next
    If Mod(StringLen($word), 2) Then
        $literal = $literal & StringMid($word, $i, 1)
    EndIf
    Return StringLeft($word,1) & $literal & StringRight($word,1)
EndFunc

Edited July 18, 2007 by Toady

[ashley]

Looky..

expandcollapse popup

#include <GuiConstants.au3>

$GUI = GUICreate("Sentence scramble",300,300,-1,-1)
GUICtrlCreateLabel("Enter a sentence",20,10,100)
$input_sentence = GUICtrlCreateInput("",20,30,260,100, $ES_MULTILINE)
$button = GUICtrlCreateButton("Scramble Sentence",90,260,120,30)
$output_sentence = GUICtrlCreateEdit("",20,150,260,100, $ES_READONLY)
GUISetState(@SW_SHOW,$GUI)

While 1
    $msg = GUIGetMsg()
    Select 
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $button
            Local $sentence = GUICtrlRead($input_sentence)
            If $sentence <> "" Then
                GUICtrlSetData($output_sentence,"")
                GUICtrlSetData($output_sentence,_Sentence_Scramble($sentence))
            Else
                MsgBox(0,"No sentence entered","Enter a sentence")
            EndIf
    EndSelect
WEnd

Func _Sentence_Scramble($sentence)
    Local $randomList
    Local $scrambled_Sentence
    $randomList = StringSplit($sentence," ")
    For $i = 1 To $randomList[0] 
        $scrambled_Sentence &= _Word_Randomize($randomList[$i]) & " "
    Next
    Return StringTrimRight($scrambled_Sentence,1)
EndFunc

Func _Word_Randomize($word)
    If StringLen($word) < 4 Then Return $word
    Local $literal
    For $i = 2 To Int(StringLen($word) / 2)
        $literal = $literal & StringMid($word, StringLen($word) - _ 
        $i + 1, 1) & StringMid($word, $i, 1)
    Next
    If Mod(StringLen($word), 2) Then
        $literal = $literal & StringMid($word, $i, 1)
    EndIf
    Return StringLeft($word,1) & $literal & StringRight($word,1)
EndFunc

this is old i saw this like 2 years ago

on a diffeenty site

[Toady]

Sentence scrambler, We hvae all seen tihs breofe

^^ as my title said....

[idusy]

this is old i saw this like 2 years ago

on a diffeenty site

Scrambled sentences are easier to understand then Ashley's. (Oh snap)

I aylaws leovd tshee tshgin.

[James]

Seen this before, like you said. Always interested me, how our brains work.

[Skrip]

You are right. I was easily able to read that first paragraph. Good job!

[james3mg]

Mnoodiitfaics to tihs pohneenmon hvae been persoopd - taht is, the mroe ceotmapclid (drae: lroeng) the wdors aer, the lses llieky taht you wlil slulcuefssy be albe to deehcpir tehm on the fsirt psas thhgruo. I am ulnbae to fnid the pgae at the mtonme, but if I reebmmer cyolrtrce, it had snoimhetg to do wtih the pnleamcet of vloews tuhorhogut the wdors as wlel.

Translation:

Modifications to this phenomenon have been proposed - that is, the more complicated (read: longer) the words are, the less likely that you will sucessfully be able to decipher them on the first pass through. I am unable to find the page at the moment, but if I remember correctly, it had something to do with the placement of vowels throughout the words as well.

It would be very interesting, if we could reinvent or find the rules they proposed, to modify this script with the new 'rules' and see if it passes or fails as above...

However, very cool script!

Edit: Haven't found the original page I was looking for, but there's a pretty good discussion of this phenomenon and possible reasons for it at http://www.languagehat.com/archives/000840.php. My favorite part was this:

"Artichoking to a reindeerwash at Cartilage Unfamiliarity, it dentis't molar in wheat oater the ladybugs in a weed ate, the ozzy insideout thong is twit the foist and list louvre be at the ranft pekoe. The raft can be a Tyrol MIDI and you can shell rind it whippet pogrom. Toes is buncombe the harem mood digs not road energy ladder by insectivore, but the wild as a wookiee."

Edited July 19, 2007 by james3mg