Department numbers: Difference between revisions
Content added Content deleted
(Add MATLAB implementation) |
(Added ABC) |
||
Line 198: | Line 198: | ||
</pre> |
</pre> |
||
=={{header|ABC}}== |
|||
{{Trans|ALGOL_68}} |
|||
<syntaxhighlight lang="abc"> |
|||
PUT 7 IN max.department.number |
|||
PUT 12 IN department.sum |
|||
WRITE "police sanitation fire" / |
|||
PUT 2 IN police |
|||
WHILE police <= max.department.number: |
|||
FOR sanitation IN { 1 .. max.department.number }: |
|||
IF sanitation <> police: |
|||
PUT ( department.sum - police ) - sanitation IN fire |
|||
IF fire > 0 AND fire <= max.department.number AND fire <> sanitation AND fire <> police: |
|||
WRITE police>>6, sanitation>>11, fire>>5 / |
|||
PUT police + 2 IN police</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
police sanitation fire |
|||
2 3 7 |
|||
2 4 6 |
|||
2 6 4 |
|||
2 7 3 |
|||
4 1 7 |
|||
4 2 6 |
|||
4 3 5 |
|||
4 5 3 |
|||
4 6 2 |
|||
4 7 1 |
|||
6 1 5 |
|||
6 2 4 |
|||
6 4 2 |
|||
6 5 1 |
|||
</pre> |
|||
=={{header|Action!}}== |
=={{header|Action!}}== |