alias listallposibilities {
var %list = ABCabc123 ;just add your own characters to this
var %list.len = $len( %list )
var %len = $1
var %a = 1
while ( %a <= %len ) {
set $+(%,t.,%a) 1
inc %a
}
var %c = 1
var %cc = $calc( %list.len ^ %len )
while ( %c <= %cc ) {
var %b = 1
var %outvar = $null
while ( %b <= %len ) {
var %outvar = %outvar $+ $mid( %list , $eval( $+(%,t.,%b) , 2 ) , 1 )
inc %b
}
echo -at %outvar ;Echoes the "words"
inc $+(%,t.,%len)
var %a = %len
while ( %a >= 2 ) {
var %eval = $eval( $+(%,t.,%a) , 2 )
if ( %eval > %list.len ) {
set $+(%,t.,%a) 1
inc $+(%,t.,$calc(%a - 1))
}
dec %a
}
inc %c
}
}