It deos not mtater...

Blitz3D Forums/Blitz3D Programming/It deos not mtater...

Krischan

(Posted 2011) [#1]

I was bored... execute, read and have fun :-)

Dim words$(99),Array%(0)
Local i%,w%,l%,t%

font=LoadFont("Arial",20)
SetFont font

SeedRnd 1









w=Split("It does not matter in what order the letters are arranged in a word  It is only important that the first and last letters are in the right place and all the others can be complete nonsense  This works because we do read words in a whole and not letter by letter")

For i=1 To w
	
	l=Len(words(i))
	
	If t+l<38 Then
		Write Shuffle(words(i))+" "
	Else
		Write Shuffle(words(i))
		Print ""
		t=0
	EndIf
	
	t=t+l
	
Next

WaitKey

End

Function Shuffle$(word$)
	
	Local f$=Left(word,1)
	Local l$=Right(word,1)
	Local i%=Len(word)
	Local j%
	Local r$=""
	
	If i>2 Then
	
		CreateRandomArray(i-2)
	
		r=f
	
		For j=0 To i-3
			r=r+Mid(word,Array(j)+2,1)
		Next
		
		r=r+l
		
		Return r
		
	Else
		
		Return word
		
	EndIf
	
	
End Function

Function Split$(textline$)
	
	Local p%=1,i%,cell$
	
	words(p)=""
	
	For i=1 To Len(textline)
		
		cell=Mid$(textline,i,1)
		If cell=" " Or cell=". " Then
			p=p+1
			words(p)=""
			If cell="." Then words(p)="."
		Else
			words(p)=words(p)+cell
		EndIf
		
	Next
	
	Return p
	
End Function

Function CreateRandomArray(size%)
	
	Local i%,n%,m%,z%
	
	Dim Array(size)
	
	For i=0 To size-1
		
		Array(i)=i
		
	Next
	
	For n=0 To size-2
		
		m=Rand(n,size-1)
		z=Array(n)
		
		Array(n)=Array(m)
		Array(m)=z
		
	Next
	
End Function

Last edited 2011

Captain Wicker (crazy hillbilly)

(Posted 2011) [#2]

xlsior

(Posted 2011) [#3]

Scroll down in the codebox, there's more there.

It does not matter in what order the letters are arranged in a word It is only important that the first and last letters are in the right place and all the others can be complete nonsense This works because we do read words in a whole and not letter by letter

ilgnitseretny, not eleritny ture snemetatt.

(If the middle letters are backwards instead of random, it no longer applies)