7b313f25-4e9d-41e0-ad6c-d166d52deb2c 97 4 5 false false 0 decimal
&[DATE] &[TIME] - &[FILENAME]
&[PAGENUM] / &[COUNT]
 <p>Strings</p>

IsMat(x) try to check if x is a matrix.

x\032E\ IsMat x\032E\ num2str mat( findstr 1 - ≠ eval 1 1 line :

Reverse$(s) reverses the string s.

x Reverse\0024\ s : k x strlen 1 range s s x k 1 substr concat : for s 3 1 line :

Trim$(S) removes unwanted spaces from the string S.

S\032E\ Trim\0024\ S\032E\ Delim\0024\ 6 el Trim\0024\ Trim\0024\ 1 1 line :

Removes unwanted character t from the string S.

S\032E\ t\032E\ T\032E\ Trim\0024\ s\0324\ S\032E\ : t\0324\2 t\032E\ t\032E\ concat : s\0324\ t\0324\2 findstr 1 - ≠ s\0324\ s\0324\ t\0324\2 t\032E\ strrep : while s\0324\ 1 1 substr t\032E\ ≡ s\0324\ s\0324\ 2 s\0324\ strlen 1 - substr : if s\0324\ s\0324\ strlen 1 substr t\032E\ ≡ s\0324\ s\0324\ 1 s\0324\ strlen 1 - substr : if k\0324\ 1 T\032E\ strlen range u\0324\ T\032E\ k\0324\ 1 substr : s\0324\ s\0324\ u\0324\ t\032E\ concat u\0324\ strrep : s\0324\ s\0324\ t\032E\ u\0324\ concat u\0324\ strrep : 3 1 line for s\0324\ 7 1 line :

Converts a Matrix into a string with specific delimiters.

M\032E\ D\032E\\005B\ D\032E\\005D\ D\032E\\002C\ Mat2Str M\032E\ IsMat s\0324\ D\032E\\005B\ : r\0324\ 1 M\032E\ rows range s\0324\ s\0324\ D\032E\\005B\ concat : c\0324\ 1 M\032E\ cols range s\0324\ s\0324\ M\032E\ r\0324\ c\0324\ el Mat2Str D\032E\\002C\ concat : for s\0324\ s\0324\ 1 s\0324\ strlen 1 - substr D\032E\\005D\ D\032E\\002C\ concat : 3 1 line for s\0324\ s\0324\ 1 s\0324\ strlen 1 - substr D\032E\\005D\ concat : 3 1 line M\032E\ num2str if 1 1 line :

Mat2Str(M) converts a Matrix M into a string using 'Delim$.

M\032E\ Mat2Str M\032E\ Delim\0024\ 1 el Delim\0024\ 2 el Delim\0024\ 3 el Mat2Str 1 1 line :

Str2Mat$(s) converts a string into a matrix. Very simple version. Don't accept nested arrays.

S\032E\ Str2Mat s\0324\ 0 : S\0324\ Delim\0024\ 6 el S\032E\ Trim\0024\ concat : 1 2 mat S\0324\ Delim\0024\ 2 el Delim\0024\ 2 el concat findstr rows 1 > str2mat: Not implemented for nested arrays. error f\0324\ 1 S\0324\ Delim\0024\ 2 el findstr stack : k\0324\ 1 f\0324\ rows 2 - ( range s\0324\ k\0324\ el S\0324\ f\0324\ k\0324\ el 3 + f\0324\ k\0324\ 1 + el f\0324\ k\0324\ el - 3 - substr : for k\0324\ 1 s\0324\ rows ( range k\0324\ 1 ≡ M\0324\ augment( s\0324\ k\0324\ el eval ) concat str2num : M\0324\ M\0324\ augment( s\0324\ k\0324\ el eval ) concat str2num stack : if 1 1 line for M\0324\ 4 1 line if 2 1 line :

Repeat$(s,n) repeats the string s n times.

s\032E\ n\032E\ Repeat\0024\ S\0324\ : k\0324\ 0 : 1 2 mat k\0324\ k\0324\ 1 + : ( n\032E\ ≤ S\0324\ s\032E\ S\0324\ concat : while S\0324\ eval 3 1 line :

UChar(x) Unicode from x char (Warning: is very slow) or char from the code in x.

x\032E\ UChar x\032E\ IsString Very slow! k\0324\ 1 2 16 ^ range k\0324\ UChar x\032E\ ≡ break continue if for k\0324\ 3 1 line c\0324\ x\032E\ : h\0324\ \ : N\0324\ 0123456789ABCDEF : 1 3 mat c\0324\ 0 ≠ m\0324\ c\0324\ 16 mod : h\0324\ N\0324\ m\0324\ 1 + 1 substr h\0324\ concat : c\0324\ c\0324\ m\0324\ - 16 / : 3 1 line while \ 0 5 h\0324\ strlen - Repeat\0024\ h\0324\ concat 3 1 line if 1 1 line :

Unicode chart.

N\032E\ UChart R\0324\ 8 : C\0324\ 8 : 1 2 mat T\0324\ R\0324\ 1 + C\0324\ 1 + matrix : T\0324\ 1 1 el x : 1 2 mat r\0324\ 1 R\0324\ range T\0324\ r\0324\ 1 + 1 el N\032E\ r\0324\ 1 - ( C\0324\ * + : c\0324\ 1 C\0324\ range T\0324\ 1 c\0324\ 1 + el c\0324\ : T\0324\ r\0324\ 1 + c\0324\ 1 + el r\0324\ 1 - ( C\0324\ * c\0324\ + N\032E\ + UChar : 2 1 line for 2 1 line for T\0324\ eval 4 1 line :

From Andrey

ASCII characters strings.

N\0024\.256 N__256 : __k 1 256 range N__256 N__256 __k UChar concat : for N__256 eval 3 1 line :

ASCII characters strings.

N\0024\.256 \0001\\0002\\0003\\0004\\0005\\0006\\0007\\0008\\0009\\000A\\000B\\000C\\000D\\000E\\000F\\0010\\0011\\0012\\0013\\0014\\0015\\0016\\0017\\0018\\0019\\001A\\001B\\001C\\001D\\001E\\001F\\0020\\0021\\0022\\0023\\0024\\0025\\0026\\0027\\0028\\0029\\002A\\002B\\002C\\002D\\002E\\002F\\0030\\0031\\0032\\0033\\0034\\0035\\0036\\0037\\0038\\0039\\003A\\003B\\003C\\003D\\003E\\003F\\0040\\0041\\0042\\0043\\0044\\0045\\0046\\0047\\0048\\0049\\004A\\004B\\004C\\004D\\004E\\004F\\0050\\0051\\0052\\0053\\0054\\0055\\0056\\0057\\0058\\0059\\005A\\005B\\005C\\005D\\005E\\005F\\0060\\0061\\0062\\0063\\0064\\0065\\0066\\0067\\0068\\0069\\006A\\006B\\006C\\006D\\006E\\006F\\0070\\0071\\0072\\0073\\0074\\0075\\0076\\0077\\0078\\0079\\007A\\007B\\007C\\007D\\007E\\007F\\0080\\0081\\0082\\0083\\0084\\0085\\0086\\0087\\0088\\0089\\008A\\008B\\008C\\008D\\008E\\008F\\0090\\0091\\0092\\0093\\0094\\0095\\0096\\0097\\0098\\0099\\009A\\009B\\009C\\009D\\009E\\009F\\00A0\\00A1\\00A2\\00A3\\00A4\\00A5\\00A6\\00A7\\00A8\\00A9\\00AA\\00AB\\00AC\\00AD\\00AE\\00AF\\00B0\\00B1\\00B2\\00B3\\00B4\\00B5\\00B6\\00B7\\00B8\\00B9\\00BA\\00BB\\00BC\\00BD\\00BE\\00BF\\00C0\\00C1\\00C2\\00C3\\00C4\\00C5\\00C6\\00C7\\00C8\\00C9\\00CA\\00CB\\00CC\\00CD\\00CE\\00CF\\00D0\\00D1\\00D2\\00D3\\00D4\\00D5\\00D6\\00D7\\00D8\\00D9\\00DA\\00DB\\00DC\\00DD\\00DE\\00DF\\00E0\\00E1\\00E2\\00E3\\00E4\\00E5\\00E6\\00E7\\00E8\\00E9\\00EA\\00EB\\00EC\\00ED\\00EE\\00EF\\00F0\\00F1\\00F2\\00F3\\00F4\\00F5\\00F6\\00F7\\00F8\\00F9\\00FA\\00FB\\00FC\\00FD\\00FE\\00FF\\0100\ :

AChar(x) ASCII from x char or char from the x code.

x\032E\ AChar x\032E\ IsString N\0024\.256 x\032E\ findstr 1 el eval N\0024\.256 x\032E\ 1 substr eval if 1 1 line :

Compare$(a,b) returns -1 if a<b, 0 if a=b and 1 if a>b, where a, b are strings with only ASCII chars. (Not valid for Unicode characters)

a b Compare\0024\ x k F N\0024\.256 x k 1 substr findstr 1 el : A a strlen : B b strlen : m A B 1 2 mat min : 1 3 mat k 1 m range ans a k F b k F - sign : ( 0 ≡ continue break if for ans 0 ≡ A B - sign ans if 4 1 line :

Compare$(a,b) returns -1 if a<b, 0 if a=b and 1 if a>b. See also Compare$.

a b Compare a IsString a b num2str Compare\0024\ b IsString a num2str b Compare\0024\ a b ≡ 0 a b < 1 - 1 if if if if 1 1 line :

Sort$(A) Sorts the string A by repeatedly taking the next item and inserting it into the final in its proper order with respect to items already inserted.

S Sort\0024\ s : n S strlen : v 1 n range : 1 3 mat κ σ S κ 1 substr : κ φ N\0024\.256 κ σ findstr 1 el : 1 2 mat k 2 n range j k : j 1 > ( v j 1 - el φ v j el φ > ( & tmp v j el : v j el v j 1 - el : v j 1 - el tmp : j j 1 - : 1 4 mat while 2 1 line for k 1 n range s s v k el σ concat : for s 5 1 line :

CSort(M,C) sorts the matrix M by the elements in the column C, extended to ASCII strings in the column.

M C CSort n M rows : v 1 n range : V M C col : A M : 1 4 mat k 2 n range j k : j 1 > ( V v j 1 - el el V v j el el Compare 1 ≡ ( & tmp v j el : v j el v j 1 - el : v j 1 - el tmp : j j 1 - : 1 4 mat while 2 1 line for r 1 n range c 1 M cols range A r c el M v r el c el : for for A 4 1 line :

62 Digits used by Bas2Dec.

Digits\0024\ N__61 : __k 48 122 range __k 57 ≤ ( 65 __k ≤ ( __k 90 ≤ ( & ( | ( 97 __k ≤ ( | N__61 N__61 __k UChar concat : if for N__61 eval 3 1 line :

62 Digits used by Bas2Dec.

Digits\0024\ \0030\\0031\\0032\\0033\\0034\\0035\\0036\\0037\\0038\\0039\\0041\\0042\\0043\\0044\\0045\\0046\\0047\\0048\\0049\\004A\\004B\\004C\\004D\\004E\\004F\\0050\\0051\\0052\\0053\\0054\\0055\\0056\\0057\\0058\\0059\\005A\\0061\\0062\\0063\\0064\\0065\\0066\\0067\\0068\\0069\\006A\\006B\\006C\\006D\\006E\\006F\\0070\\0071\\0072\\0073\\0074\\0075\\0076\\0077\\0078\\0079\\007A\ :

Str2Vec(s) returns a vector with ASCII codes of the string s.

s\032E\ Str2Vec n s\032E\ strlen : v\0324\ n 1 matrix : 1 2 mat k\0324\ 1 n range : v\0324\ k\0324\ el N\0024\.256 s\032E\ k\0324\ 1 substr findstr 1 el : 1 2 mat v\0324\ 3 1 line :

Vec2Str(v) returns a string with chars from ASCII codes in the vector v.

v\032E\ Vec2Str s\0324\ : k\0324\ 1 v\032E\ length range s\0324\ s\0324\ N\0024\.256 v\032E\ k\0324\ el 1 substr concat : for s\0324\ 3 1 line :

Bas2Dec(x,b) onverts the x in base b≤61 to a decimal.

x\032E\ b\032E\ Bas2Dec x\032E\ b\032E\ Digits\0024\ Bas2Dec 1 1 line :

Converts the x in base b using digits in D to a decimal.

x\032E\ b\032E\ D\032E\ Bas2Dec D\032E\ x\032E\ k\0324\ 1 + 1 substr findstr 1 el 1 - ( b\032E\ x\032E\ strlen k\0324\ - 1 - ^ * k\0324\ 0 x\032E\ strlen 1 - sum 1 1 line :

Converts the decimal d into a string in base b≤62.

d\032E\ b\032E\ Dec2Bas\0024\ d\032E\ b\032E\ Digits\0024\ Dec2Bas\0024\ 1 1 line :

Converts the decimal d into a string in base b using digits in D.

d\032E\ b\032E\ D\032E\ Dec2Bas\0024\ h\0324\ : x\0324\ d\032E\ : 1 2 mat x\0324\ 0 ≠ m\0324\ x\0324\ b\032E\ mod : h\0324\ D\032E\ m\0324\ 1 + 1 substr h\0324\ concat : x\0324\ x\0324\ m\0324\ - b\032E\ / : 3 1 line while h\0324\ eval 3 1 line :

<p>Strings Samples</p>

Strings

Trim

Removes unwanted spaces.

 10 10 1 5 sqrt + 2 i + / 1.2944 0.6472 i * - 3!+4 (1+sqrt(5))/(2+i) 1 2 mat

Compare with

 4 + # i + / #

Converting into matrices and vectors

Vec2Str(v) returns a string with chars from ASCII codes in the vector v.

Str2Vec(s) returns a vector with ASCII codes of the string s.

 xyz 120 121 122 3 1 mat

Mat2Str(M) converts a Matrix M into a string using 'Delim$.

Str2Mat$(s) converts a string into a matrix. Very simple version. Don't accept nested arrays.

 [[27,27,14],[60,87,55]] 27 27 14 60 87 55 2 3 mat [[1,f(x,y)],[cos(θ),atan(3,2)]] 1 x y f augment θ cos 3 2 atan augment stack [[1,2],[[[2],[3]],3]] [[1,2],[[[[[3,4]],5],[[[6,7],[[[11,12],[13,14]],15]],16]],[[9,10]]]]

Comparing

Compare$(a,b) returns -1 if a<b, 0 if a=b and 1 if a>b, where a, b are strings with only ASCII chars. (Not valid for Unicode characters)

Compare(a,b) returns -1 if a<b, 0 if a=b and 1 if a>b.

 1 1 - 1 - 0 1 1 - 1 - 0

Characters

Repeat$(s,n) repeats the string s n times.

Reverse$(s) reverses the string s.

x x x cba

UChar(x) Unicode from x char (Warning: is very slow) or char from the code in x.

AChar(x) ASCII from x char or char from the x code.

 x 1 2 3 4 5 6 7 8 9000 \2329\ \232A\ \232B\ \232C\ \232D\ \232E\ \232F\ \2330\ 9008 \2331\ \2332\ \2333\ \2334\ \2335\ \2336\ \2337\ \2338\ 9016 \2339\ \233A\ \233B\ \233C\ \233D\ \233E\ \233F\ \2340\ 9024 \2341\ \2342\ \2343\ \2344\ \2345\ \2346\ \2347\ \2348\ 9032 \2349\ \234A\ \234B\ \234C\ \234D\ \234E\ \234F\ \2350\ 9040 \2351\ \2352\ \2353\ \2354\ \2355\ \2356\ \2357\ \2358\ 9048 \2359\ \235A\ \235B\ \235C\ \235D\ \235E\ \235F\ \2360\ 9056 \2361\ \2362\ \2363\ \2364\ \2365\ \2366\ \2367\ \2368\ 9 9 mat \0041\ 65

Warning: UChar("str") could be very slow.

 a b 97 98 2 2 mat

AChar use only ASCII chars

Sorting

Sort$(A) sorts the string A by repeatedly taking the next item and inserting it into the final in its proper order with respect to items already inserted.

CSort(M,C) sorts the matrix M by the elements in the column C, extended to ASCII strings in the column.

 abc 123ABZaaabbcghj 3 a 7 1 b 5 4 b 8 2 c 6 4 3 mat 2 7 5 8 3 a 6 9 1 b 4 7 3 4 mat

Base Convertion

Dec2Bas$(d,b) converts the decimal d into a string in base b≤62.

Bas2Dec(x,b) converts the x in base b≤61 to a decimal.

 102 258 o1 3001 16503 25187 2 1 sys 1 1 - # SMath Alvaro