TI-BASIC:Scramble A String - Revision history

KermMartian at 19:40, 25 February 2016

2016-02-25T19:40:40Z

← Older revision		Revision as of 19:40, 25 February 2016
Line 1:		Line 1:
	{{Template:TI-BASIC:Routine		{{Template:TI-BASIC:Routine
	\|picture=~~scramble_routine~~.gif ~~width="200"~~		\|picture=Scramble_Routine.gif{{!}}200px
	\|summary=Scrambles a string		\|summary=Scrambles a string
	\|input=''Str1'' - The string you want to scramble		\|input=''Str1'' - The string you want to scramble

Maintenance script: Automated @@ correction

2016-02-24T22:12:12Z

Automated @@ correction

← Older revision		Revision as of 22:12, 24 February 2016
Line 6:		Line 6:
	\|variable=Ans, Str1, L, θ, L₁, L₂		\|variable=Ans, Str1, L, θ, L₁, L₂
	\|compatibility=TI-83/84/+/SE		\|compatibility=TI-83/84/+/SE
	\|author=@@		\|author=
	\|authors=seb83, Edward H, Timothy Foster		\|authors=seb83, Edward H, Timothy Foster
	\|url=@@		\|url=
	\|download=[file scramble_prgm.zip]		\|download=[file scramble_prgm.zip]
	}}		}}

Maintenance script: Initial automated import

2016-02-24T18:33:37Z

Initial automated import

New page

{{Template:TI-BASIC:Routine
|picture=scramble_routine.gif width="200"
|summary=Scrambles a string
|input=''Str1'' - The string you want to scramble
|output=''Ans'' - The scrambled string
|variable=Ans, Str1, L, θ, L₁, L₂
|compatibility=TI-83/84/+/SE
|author=@@
|authors=seb83, Edward H, Timothy Foster
|url=@@
|download=[file scramble_prgm.zip]
}}

This routine takes a string stored in Str1 and scramble it. The results is contained in Ans. For example, "ABCDE12345" could be scrambled to "B34AC1DE25".

:rand(length(Str1→L₁
:cumSum(1 or Ans→L₂
:SortA(L₁,L₂
:sub(Str1,L₂(1),1
:For(N,2,length(Str1
:Ans+sub(Str1,L₂(N),1
:End

With your string stored in Str1, it creates L₁={1,2,3,4,...,length(Str1)}. After that, L₂ is created randomly to sort L₁ in function of L₂. L₁ now could look like {5,3,4,1,2} if you entered a 5 character string. In the [[TI-BASIC:For|For(]] loop, it takes one by one the character of Str1 accordingly to L₁ to store it to Ans. Your scrambled string is now in Ans.

For the TI-84+ and higher with a MathPrint or color OS, use this code instead:

:randIntNoRep(1,length(Str1→L₁
:sub(Str1,Ans(1),1
:For(N,2,length(Str1
:Ans+sub(Str1,L₁(N),1
:End

= Related Routines =

* [[TI-BASIC:Reverse_A_String|Reverse_A_String]][[Category:TI-BASIC]]
[[Category:TIBD]]