snippet: varManager 2012.03.03

varManager b8a9b664-ed5d-4827-9cba-22bfa2fd3369 2 snippet: varManager 2012.03.03 w3b5urf3r,omorr w3b5urf3r - check if a variable is an array - check if a variable is a scalar - size of a variable - sum(1) for M.D.A. - boolean comparison of variables for M.D.A. 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

check if #var is an array #var IsArray #var IsString 0 ≡ #e #var num2str eval : #e mat(findstr 1 + (2^0 > 21 line 0 if 11 line :

check if #var is a number #var IsScalar #var IsArray ¬ (#var IsString ¬ (& 11 line :

returns rows and columns of an array
returns 1 if #var is a number
returns "text" if #var is a string #var size #var IsString ¬ #var num2str mat(findstr stack 1 el 1 ≡ #var rows #var cols 21 mat eval 1 if text if :

returns summation of M.D.A. elements #var sum.1 #size #var size : #size text ≡ 0 #size 1 ≡ #var #output 0 : #i 1 #size 1 el range #j 1 #size 2 el range #var #i #j el size 1 ≡ #output #output #var #i #j el + : #output #output #var #i #j el sum.1 + : if for for #output eval 31 line if if 21 line :

compare #var1 and #var2, using  a text #bool parameter (≡,<,>,≤,≥,≠)
works with numbers, strings, arrays and multi dimensional arrays #var1 #bool #var2 compare #bool #bool = ≡ (≡ #bool if : bools.allowed ≡ < > ≤ ≥ ≠ 16 mat transpose : bools.status 0 : n 1 bools.allowed length range #bool bools.allowed n el ≡ bools.status bools.status 1 + : 0 if for 41 line bools.status 1 ≡ #v1 #var1 : #v2 #var2 : #size1 #v1 size : #size2 #v2 size : #size1 text ≡ (#size2 text ≡ (| #bool ≡ ≡ #v1 #v2 ≡ #bool ≠ ≡ #v1 #v2 ≠ I can't determine if a string is larger or smaller than a number/matrix 021 line if if #size1 1 ≡ (#size2 1 ≡ (& #v1 num2str #bool #v2 num2str concat str2num #size1 1 ≡ (#size2 1 ≡ (| #size1 1 ≡ #v1 #v1 #size2 1 el #size2 2 el matrix + : #size1 #size2 : 21 line #v2 #v2 #size1 1 el #size1 2 el matrix + : #size2 #size1 : 21 line if 0 if #size1 #size2 ≡ #output 0 : #i 1 #size1 1 el range #j 1 #size1 2 el range #v1 #i #j el size 1 ≡ (#v2 #i #j el size 1 ≡ (& #output #i #j el #v1 #i #j el num2str #bool #v2 #i #j el num2str concat str2num : #output #i #j el #v1 #i #j el #bool #v2 #i #j el compare : if for for #output eval 31 line I can't compare matrix with different sizes 021 line if 21 line if if 51 line unallowed boolean: #bool concat if 21 line :