Minimum multiple of m where digital sum equals m: Difference between revisions
Content added Content deleted
(Added Swift solution) |
Not a robot (talk | contribs) (Add FOCAL) |
||
Line 431: | Line 431: | ||
1076923 1030303 880597 1469116 1157971 12842857</pre> |
1076923 1030303 880597 1469116 1157971 12842857</pre> |
||
=={{header|FOCAL}}== |
|||
<lang focal>01.10 F N=1,40;D 2 |
|||
01.20 Q |
|||
02.10 S M=0 |
|||
02.20 S M=M+1 |
|||
02.30 S D=N*M |
|||
02.40 D 3 |
|||
02.50 I (N-S)2.2,2.6,2.2 |
|||
02.60 T "N",%2,N," M",%6,M,! |
|||
03.10 S S=0 |
|||
03.20 S E=FITR(D/10) |
|||
03.30 S S=S+(D-E*10) |
|||
03.40 S D=E |
|||
03.50 I (-D)3.2</lang> |
|||
{{out}} |
|||
<pre style='height:50ex;'>N= 1 M= 1 |
|||
N= 2 M= 1 |
|||
N= 3 M= 1 |
|||
N= 4 M= 1 |
|||
N= 5 M= 1 |
|||
N= 6 M= 1 |
|||
N= 7 M= 1 |
|||
N= 8 M= 1 |
|||
N= 9 M= 1 |
|||
N= 10 M= 19 |
|||
N= 11 M= 19 |
|||
N= 12 M= 4 |
|||
N= 13 M= 19 |
|||
N= 14 M= 19 |
|||
N= 15 M= 13 |
|||
N= 16 M= 28 |
|||
N= 17 M= 28 |
|||
N= 18 M= 11 |
|||
N= 19 M= 46 |
|||
N= 20 M= 199 |
|||
N= 21 M= 19 |
|||
N= 22 M= 109 |
|||
N= 23 M= 73 |
|||
N= 24 M= 37 |
|||
N= 25 M= 199 |
|||
N= 26 M= 73 |
|||
N= 27 M= 37 |
|||
N= 28 M= 271 |
|||
N= 29 M= 172 |
|||
N= 30 M= 1333 |
|||
N= 31 M= 289 |
|||
N= 32 M= 559 |
|||
N= 33 M= 1303 |
|||
N= 34 M= 847 |
|||
N= 35 M= 1657 |
|||
N= 36 M= 833 |
|||
N= 37 M= 1027 |
|||
N= 38 M= 1576 |
|||
N= 39 M= 1282 |
|||
N= 40 M= 17497 |
|||
</pre> |
|||
=={{header|Forth}}== |
=={{header|Forth}}== |
||
{{works with|Gforth}} |
{{works with|Gforth}} |