Ethiopian multiplication: Difference between revisions

Content added Content deleted
Line 871: Line 871:


=={{header|Icon}} and {{header|Unicon}}==
=={{header|Icon}} and {{header|Unicon}}==
{{works with|Unicon}}
<lang Icon>procedure main(arglist)
<lang Icon>procedure main(arglist)
while ethiopian(integer(get(arglist)),integer(get(arglist))) # multiply successive pairs of command line arguments
while ethiopian(integer(get(arglist)),integer(get(arglist))) # multiply successive pairs of command line arguments