Range() functions

[nerobotParticipant]

Set of functions to generate ranges of numbers and chars.

Easy to extending for other numeric types (make it generic for example).

Also there is a helper function Join() that join array values into single string with delimeters.

Functions and demo app (2 in 1):

Monkey

Namespace myapp #Import "<std>" Using std.. Function Main() Local arr1:=Range( 20,10 ) Print "1: "+Join( arr1 ) Local arr2:=Range( 0.0,5.0,.25 ) Print "2: "+Join( arr2 ) Local arr3:=Range( "a","z" ) Print "3: "+Join( arr3 ) End Function Join<T>:String( arr:T[],delimeter:String="," ) Local s:="" For Local i:=Eachin arr If s Then s+=delimeter s+=i Next Return s End Function Range:Int[]( _start:Int,_end:Int,_step:Int=0 ) If _step=0 _step=(_end>_start) ? 1 Else -1 Endif Local st:=New Stack<Int> For Local i:=_start To _end Step _step st.Add( i ) Next Return st.ToArray() End Function Range:Float[]( _start:Float,_end:Float,_step:Float=0 ) If _step=0 _step=(_end>_start) ? 1 Else -1 Endif Local st:=New Stack<Float> For Local i:=_start To _end Step _step st.Add( i ) Next Return st.ToArray() End Function Range:String[]( _start:String,_end:String,_step:Int=0 ) Local istart:=_start[0],iend:=_end[0] If _step=0 _step=(iend>istart) ? 1 Else -1 Endif Local st:=New Stack<String> For Local i:=istart To iend Step _step st.Add( String.FromChar( i ) ) Next Return st.ToArray() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

Namespace myapp   #Import "<std>"   Using std..   Function Main()   Local arr1:=Range( 20,10 ) Print "1: "+Join( arr1 ) Local arr2:=Range( 0.0,5.0,.25 ) Print "2: "+Join( arr2 ) Local arr3:=Range( "a","z" ) Print "3: "+Join( arr3 ) End   Function Join<T>:String( arr:T[],delimeter:String="," ) Local s:="" For Local i:=Eachin arr If s Then s+=delimeter s+=i Next Return s End   Function Range:Int[]( _start:Int,_end:Int,_step:Int=0 ) If _step=0 _step=(_end>_start) ? 1 Else -1 Endif Local st:=New Stack<Int> For Local i:=_start To _end Step _step st.Add( i ) Next Return st.ToArray() End   Function Range:Float[]( _start:Float,_end:Float,_step:Float=0 ) If _step=0 _step=(_end>_start) ? 1 Else -1 Endif Local st:=New Stack<Float> For Local i:=_start To _end Step _step st.Add( i ) Next Return st.ToArray() End   Function Range:String[]( _start:String,_end:String,_step:Int=0 ) Local istart:=_start[0],iend:=_end[0] If _step=0 _step=(iend>istart) ? 1 Else -1 Endif Local st:=New Stack<String> For Local i:=istart To iend Step _step st.Add( String.FromChar( i ) ) Next Return st.ToArray() End

It prints

Monkey

1: 20,19,18,17,16,15,14,13,12,11,10 2: 0,0.25,0.5,0.75,1,1.25,1.5,1.75,2,2.25,2.5,2.75,3,3.25,3.5,3.75,4,4.25,4.5,4.75,5 3: a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z

1 2 3

1: 20,19,18,17,16,15,14,13,12,11,10 2: 0,0.25,0.5,0.75,1,1.25,1.5,1.75,2,2.25,2.5,2.75,3,3.25,3.5,3.75,4,4.25,4.5,4.75,5 3: a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z

Maybe it can be part of std module.

[nerobotParticipant]

A few new kinds of Range is here.

They generate by expression, where single values or ranges are separated by commas,

and ranges min-max diapasons separated by minus-sign.

RangeExprInt – generates sequence of integers , for example: expr=”1,14,20-27″

RangeExprChars – generates sequence of chars, for example: expr=”a-z,A-Z,0-9″

Also there is a Stack extension with method Merge that allow you to merge values into stack to have unique values only.

Monkey

Function RangeExprInt:Int[]( expr:String,sort:Bool=True ) expr = expr.Replace( " ", "" ) Local arr:=expr.Split( "," ) Local st:=New Stack<Int> For Local part:=Eachin arr Local arr2:=part.Split( "-" ) If arr2.Length = 2 st.Merge( Range( Int(arr2[0]),Int(arr2[1]) ) ) Else st.Add( Int(part) ) Endif Next If sort st.Sort() Endif Return st.ToArray() End Function RangeExprChars:String[]( expr:String,sort:Bool=True ) expr = expr.Replace( " ", "" ) Local arr:=expr.Split( "," ) Local st:=New Stack<String> For Local part:=Eachin arr Local arr2:=part.Split( "-" ) If arr2.Length = 2 st.Merge( Range( arr2[0],arr2[1] ) ) Else st.Add( Int(part) ) Endif Next If sort st.Sort() Endif Return st.ToArray() End Class Stack<T> Extension #Rem monkeydoc Add unique values only. #End Method Merge( values:T[] ) For Local val:=Eachin values If Not Self.Contains( val ) Self.Add( val ) Endif Next End End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

Function RangeExprInt:Int[]( expr:String,sort:Bool=True )     expr = expr.Replace( " ", "" )     Local arr:=expr.Split( "," )     Local st:=New Stack<Int>     For Local part:=Eachin arr         Local arr2:=part.Split( "-" )         If arr2.Length = 2             st.Merge( Range( Int(arr2[0]),Int(arr2[1]) ) )         Else             st.Add( Int(part) )         Endif     Next     If sort         st.Sort()     Endif       Return st.ToArray() End   Function RangeExprChars:String[]( expr:String,sort:Bool=True )     expr = expr.Replace( " ", "" )     Local arr:=expr.Split( "," )     Local st:=New Stack<String>     For Local part:=Eachin arr         Local arr2:=part.Split( "-" )         If arr2.Length = 2             st.Merge( Range( arr2[0],arr2[1] ) )         Else             st.Add( Int(part) )         Endif     Next     If sort         st.Sort()     Endif       Return st.ToArray() End     Class Stack<T> Extension #Rem monkeydoc Add unique values only. #End Method Merge( values:T[] ) For Local val:=Eachin values If Not Self.Contains( val ) Self.Add( val ) Endif Next End End

[nerobotParticipant]

Additional arrays helpers:

ArrayPad() – Returns a copy of the array padded to size specified by size with value ‘value’.

ArrayFill() – Fills an array with ‘count’ entries of the ‘value’.

Monkey

Namespace myapp #Import "<std>" Using std.. Function Main() Print "Hello World" Local arr:=ArrayFill( 3,"ok" ) For Local i:=Eachin arr Print i Next Print "---" arr=ArrayPad( arr,5,"no" ) For Local i:=Eachin arr Print i Next End #Rem monkeydoc Returns a copy of the array padded to size specified by size with value 'value'. If value of size is less than or equal to the length of the array then no padding takes place. #End Function ArrayPad<T>:T[]( arr:T[],size:Int,value:T ) If size<=arr.Length Return arr.Slice( 0 ) ' make a copy Local result:=New T[size] arr.CopyTo( result,0,0,arr.Length ) For Local i:=arr.Length Until result.Length result[i]=value Next Return result End #Rem monkeydoc Fills an array with 'count' entries of the 'value'. #End Function ArrayFill<T>:T[]( count:Int,value:T ) Local result:=New T[count] For Local i:=0 Until count result[i]=value Next Return result End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

Namespace myapp   #Import "<std>"   Using std..   Function Main()   Print "Hello World" Local arr:=ArrayFill( 3,"ok" ) For Local i:=Eachin arr Print i Next Print "---" arr=ArrayPad( arr,5,"no" ) For Local i:=Eachin arr Print i Next End     #Rem monkeydoc Returns a copy of the array padded to size specified by size with value 'value'. If value of size is less than or equal to the length of the array then no padding takes place. #End Function ArrayPad<T>:T[]( arr:T[],size:Int,value:T ) If size<=arr.Length Return arr.Slice( 0 ) ' make a copy Local result:=New T[size] arr.CopyTo( result,0,0,arr.Length ) For Local i:=arr.Length Until result.Length result[i]=value Next Return result End   #Rem monkeydoc Fills an array with 'count' entries of the 'value'. #End Function ArrayFill<T>:T[]( count:Int,value:T ) Local result:=New T[count] For Local i:=0 Until count result[i]=value Next Return result End

[Author]

Posts