Largest product in a grid: Difference between revisions
Content added Content deleted
(Realize in F#) |
Walterpachl (talk | contribs) m (add ooRexx and REXX) |
||
| Line 597: | Line 597: | ||
{{out}}<pre>51267216</pre> |
{{out}}<pre>51267216</pre> |
||
=={{header|ooRexx}}== |
|||
<lang oorexx>/* REXX */ |
|||
a.1=.array~of(08,02,22,97,38,15,00,40,00,75,04,05,07,78,52,12,50,77,91,08) |
|||
a.2=.array~of(49,49,99,40,17,81,18,57,60,87,17,40,98,43,69,48,04,56,62,00) |
|||
a.3=.array~of(81,49,31,73,55,79,14,29,93,71,40,67,53,88,30,03,49,13,36,65) |
|||
a.4=.array~of(52,70,95,23,04,60,11,42,69,24,68,56,01,32,56,71,37,02,36,91) |
|||
a.5=.array~of(22,31,16,71,51,67,63,89,41,92,36,54,22,40,40,28,66,33,13,80) |
|||
a.6=.array~of(24,47,32,60,99,03,45,02,44,75,33,53,78,36,84,20,35,17,12,50) |
|||
a.7=.array~of(32,98,81,28,64,23,67,10,26,38,40,67,59,54,70,66,18,38,64,70) |
|||
a.8=.array~of(67,26,20,68,02,62,12,20,95,63,94,39,63,08,40,91,66,49,94,21) |
|||
a.9=.array~of(24,55,58,05,66,73,99,26,97,17,78,78,96,83,14,88,34,89,63,72) |
|||
a.10=.array~of(21,36,23,09,75,00,76,44,20,45,35,14,00,61,33,97,34,31,33,95) |
|||
a.11=.array~of(78,17,53,28,22,75,31,67,15,94,03,80,04,62,16,14,09,53,56,92) |
|||
a.12=.array~of(16,39,05,42,96,35,31,47,55,58,88,24,00,17,54,24,36,29,85,57) |
|||
a.13=.array~of(86,56,00,48,35,71,89,07,05,44,44,37,44,60,21,58,51,54,17,58) |
|||
a.14=.array~of(19,80,81,68,05,94,47,69,28,73,92,13,86,52,17,77,04,89,55,40) |
|||
a.15=.array~of(04,52,08,83,97,35,99,16,07,97,57,32,16,26,26,79,33,27,98,66) |
|||
a.16=.array~of(88,36,68,87,57,62,20,72,03,46,33,67,46,55,12,32,63,93,53,69) |
|||
a.17=.array~of(04,42,16,73,38,25,39,11,24,94,72,18,08,46,29,32,40,62,76,36) |
|||
a.18=.array~of(20,69,36,41,72,30,23,88,34,62,99,69,82,67,59,85,74,04,36,16) |
|||
a.19=.array~of(20,73,35,29,78,31,90,01,74,31,49,71,48,86,81,16,23,57,05,54) |
|||
a.20=.array~of(01,70,54,71,83,51,54,69,16,92,33,48,61,43,52,01,89,19,67,48) |
|||
max=0 |
|||
Do row=1 To 20 |
|||
Do col=1 To 17 |
|||
ar=a.row |
|||
prod=ar[col]*ar[col+1]*ar[col+2]*ar[col+3] |
|||
If prod>max Then Do |
|||
max=prod |
|||
rc=row col |
|||
l=ar[col]'*'ar[col+1]'*'ar[col+2]'*'ar[col+3]'='prod |
|||
End |
|||
End |
|||
End |
|||
Parse Var rc row col |
|||
Say 'Maximum in row' row 'columns' col '...' (col+3) ':' l |
|||
Do i=1 To 20 |
|||
b.i=.array~of(a.1[i],a.2[i],a.3[i],a.4[i],a.5[i],a.6[i],a.7[i],a.8[i],a.9[i],a.10[i],, |
|||
a.11[i],a.12[i],a.13[i],a.14[i],a.15[i],a.16[i],a.17[i],a.18[i],a.19[i],a.20[i]) |
|||
End |
|||
Do col=1 to 20 |
|||
Do row=1 To 17 |
|||
bc=b.col |
|||
prod=bc[row]*bc[row+1]*bc[row+2]*bc[row+3] |
|||
If prod>max Then Do |
|||
max=prod |
|||
rc=row col |
|||
l=bc[row]'*'bc[row+1]'*'bc[row+2]'*'bc[row+3]'='prod |
|||
End |
|||
End |
|||
End |
|||
Parse Var rc row col |
|||
Say 'Maximum in column' col 'rows' row '...' (row+3) |
|||
Say l</lang> |
|||
{{out}}<pre>Maximum in row 9 columns 11 ... 14 : 78*78*96*83=48477312 |
|||
Maximum in column 16 rows 7 ... 10 : 66*91*88*97=51267216</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
| Line 847: | Line 904: | ||
{{out}} |
{{out}} |
||
<pre>Largest product of 4 adjacent elements: 51267216</pre> |
<pre>Largest product of 4 adjacent elements: 51267216</pre> |
||
=={{header|REXX}}== |
|||
<lang rexx>/* REXX */ |
|||
Call mk_a 1,08,02,22,97,38,15,00,40,00,75,04,05,07,78,52,12,50,77,91,08 |
|||
Call mk_a 2,49,49,99,40,17,81,18,57,60,87,17,40,98,43,69,48,04,56,62,00 |
|||
Call mk_a 3,81,49,31,73,55,79,14,29,93,71,40,67,53,88,30,03,49,13,36,65 |
|||
Call mk_a 4,52,70,95,23,04,60,11,42,69,24,68,56,01,32,56,71,37,02,36,91 |
|||
Call mk_a 5,22,31,16,71,51,67,63,89,41,92,36,54,22,40,40,28,66,33,13,80 |
|||
Call mk_a 6,24,47,32,60,99,03,45,02,44,75,33,53,78,36,84,20,35,17,12,50 |
|||
Call mk_a 7,32,98,81,28,64,23,67,10,26,38,40,67,59,54,70,66,18,38,64,70 |
|||
Call mk_a 8,67,26,20,68,02,62,12,20,95,63,94,39,63,08,40,91,66,49,94,21 |
|||
Call mk_a 9,24,55,58,05,66,73,99,26,97,17,78,78,96,83,14,88,34,89,63,72 |
|||
Call mk_a 10,21,36,23,09,75,00,76,44,20,45,35,14,00,61,33,97,34,31,33,95 |
|||
Call mk_a 11,78,17,53,28,22,75,31,67,15,94,03,80,04,62,16,14,09,53,56,92 |
|||
Call mk_a 12,16,39,05,42,96,35,31,47,55,58,88,24,00,17,54,24,36,29,85,57 |
|||
Call mk_a 13,86,56,00,48,35,71,89,07,05,44,44,37,44,60,21,58,51,54,17,58 |
|||
Call mk_a 14,19,80,81,68,05,94,47,69,28,73,92,13,86,52,17,77,04,89,55,40 |
|||
Call mk_a 15,04,52,08,83,97,35,99,16,07,97,57,32,16,26,26,79,33,27,98,66 |
|||
Call mk_a 16,88,36,68,87,57,62,20,72,03,46,33,67,46,55,12,32,63,93,53,69 |
|||
Call mk_a 17,04,42,16,73,38,25,39,11,24,94,72,18,08,46,29,32,40,62,76,36 |
|||
Call mk_a 18,20,69,36,41,72,30,23,88,34,62,99,69,82,67,59,85,74,04,36,16 |
|||
Call mk_a 19,20,73,35,29,78,31,90,01,74,31,49,71,48,86,81,16,23,57,05,54 |
|||
Call mk_a 20,01,70,54,71,83,51,54,69,16,92,33,48,61,43,52,01,89,19,67,48 |
|||
max=0 |
|||
Do row=1 To 20 |
|||
Do col=1 To 17 |
|||
Parse Value (col+1) (col+2) (col+3) With col1 col2 col3 |
|||
prod=a.row.col*a.row.col1*a.row.col2*a.row.col3 |
|||
If prod>max Then Do |
|||
max=prod |
|||
rc=row col |
|||
l=a.row.col'*'a.row.col1'*'a.row.col2'*'a.row.col3'='prod |
|||
End |
|||
End |
|||
End |
|||
Parse Var rc row col |
|||
Say 'Maximum in row' row 'columns' col '...' (col+3) ':' ö |
|||
Do col=1 to 20 |
|||
Do row=1 To 17 |
|||
Parse Value (row+1) (row+2) (row+3) With row1 row2 row3 |
|||
prod=a.row.col*a.row1.col*a.row2.col*a.row3.col |
|||
If prod>max Then Do |
|||
max=prod |
|||
rc=row col |
|||
l=a.row.col'*'a.row1.col'*'a.row2.col'*'a.row3.col'='prod |
|||
End |
|||
End |
|||
End |
|||
Parse Var rc row col |
|||
Say 'Maximum in row' row 'columns' col '...' (col+3) ':' l |
|||
mk_a: |
|||
row=arg(1) |
|||
Do col=1 To 20 |
|||
a.row.col=arg(col+1) |
|||
End |
|||
Return</lang> |
|||
{{out}}<pre> Maximum in row 9 columns 11 ... 14 : 78*78*96*83=48477312 |
|||
Maximum in column 16 rows 7 ... 10 : 66*91*88*97=51267216</pre> |
|||
=={{header|Ring}}== |
=={{header|Ring}}== |
||