Basicprogramming(.org) > Code and examples

Multiplication with all decimal digits

<< < (2/3) > >>

Aurel:
well i connot found that iBASIC but i found Ecma55
but it looks that is not the same ,,,ecma use line numbers and this one not
and iBASIC looking more modern?

Galileo:
http://ibasic.arredemo.org/download.htm

Aurel:
Thanks Galileo
 :)

Peter:
Interesting challenge, in BaCon it can be done with delimited strings.


--- Code: ---FOR x = 1 TO 99
    FOR y = 1 TO 9999
        str$ = EXPLODE$(STR$(x) & STR$(y) & STR$(x*y), 1)
        IF AMOUNT(str$) = 10 AND AMOUNT(UNIQ$(str$)) = 10 THEN PRINT x, "*", y, "=", x*y
    NEXT
NEXT

--- End code ---

Output:


--- Quote ---3*5694=17082
3*6819=20457
3*6918=20754
3*8169=24507
3*9168=27504
4*3907=15628
4*7039=28156
4*9127=36508
6*5817=34902
7*3094=21658
7*4093=28651
7*9304=65128
7*9403=65821
27*594=16038
36*495=17820
39*402=15678
45*396=17820
46*715=32890
52*367=19084
54*297=16038
63*927=58401
78*345=26910

--- End quote ---

Aurel:
funny commands
EXPLODE()
AMOUNT()

 :)

Navigation

[0] Message Index

[#] Next page

[*] Previous page