Split any given number into array of numbers

[0x90h]

once again i have found myself in troubles trying to split every given number into array of multiply of number 5 and the rest.

for example, given numbers are:

6,10,18,22

i want to split each of these numbers into array like this:

6 = [5, 1]

10 = [5, 5]

18 = [5, 5, 5, 3]

22 = [5, 5, 5, 5, 2]

would you be so nice and give me a hand on this?

[martin]

once again i have found myself in troubles trying to split every given number into array of multiply of number 5 and the rest.

for example, given numbers are:

6,10,18,22

i want to split each of these numbers into array like this:

6 = [5, 1]

10 = [5, 5]

18 = [5, 5, 5, 3]

22 = [5, 5, 5, 5, 2]

would you be so nice and give me a hand on this?

Maybe this (not tried)

$NumElements = Int($Number/5) + 1;add one for remainder even if it's zero
$remainder =  Mod($number,5)

Dim $array[$NumElements]
For $n = 0 to $NumElements - 2
  $array[$n] = 5
next
$array[$NumElements - 1] = $Remainder

[Jex]

Global $Split[7], $Data

$Split[1] = Split(5, 5)
$Split[2] = Split(10, 5)
$Split[3] = Split(18, 5)
$Split[4] = Split(22, 5)
$Split[5] = Split(2, 8)
$Split[6] = Split(76, 8)
For $i = 1 To 6
    $Data &= $Split[$i] & @CRLF
Next
MsgBox("", "", $Data)

Func Split($Number, $Limit)
    $Test = ""
    While $Number > $Limit
        $Number -= $Limit
        $Test &= $Limit & ", "
    WEnd
    $Test &= $Number
    Return $Test
EndFunc   ;==>Split

That func not create array but will be useful for you i think.

Edited December 28, 2007 by Jex

[martin]

$Count = 0
$Test = ""
$Number = 28
Do
    $Number -= 5
    $Count += 1
Until $Number < 5
For $i = 1 To $Count
    $Test &= "5, "
Next
$Test &= $Number
MsgBox("", "", $Test)

That not give array but give like that :

If $Number = 28 Then $Test = "5, 5, 5, 5, 5, 3"

Not quite. If you start with a number which is less than 5 it will be wrong

$number=28
while $number >= 5
 $number -= 5
 $Test &= "5,"
wend
$test &= $number

[Jex]

Not quite. If you start with a number which is less than 5 it will be wrong

$number=28
while $number >= 5
 $number -= 5
 $Test &= "5,"
wend
$test &= $number

Ahh sorry i'm didn't noticed will be wrong if number less than 5

I'm fixed now thanks

[0x90h]

thanks for helping me on this issue

best wishes,

0x90 nop