alias test_numbers {
if ($_test_numbers($iif($1,$1,10))) {
echo 04 -a Failed $v1
}
else {
echo 03 -a All tests passed! Example Result: $numbers
}
}
alias -l _test_numbers {
if ($read($scriptdirnumbers.mrc, r, /(\d)/, 1)) {
return File contains a number on line: $readn
}
else {
var %x = 0, %e = $1, %numbers
while (%x < %e) {
inc %x
%Numbers = $numbers
if (!$len(%Numbers)) {
return $ord(%x) loop: Nothing returned
}
elseif ($regex(%Numbers, /([^\d])/)) {
return $ord(%x) loop: Returned non-numerical character $regml(1)
}
elseif ($regex(%numbers, /(.).*?\1/)) {
return $ord(%x) loop: Contains a duplicate $regml(1)
}
elseif ($regsubex(1234567890, /[ $+ %numbers $+ ]/g,) || $v1 === 0) {
return $ord(%x) loop: Missing $v1
}
}
}
}