Factors of an integer: Difference between revisions
Content added Content deleted
(add Ada) |
m (→Icon and Unicon: header simplification) |
||
| Line 614: | Line 614: | ||
END</lang> |
END</lang> |
||
== |
=={{header|Icon}} and {{header|Unicon}}== |
||
| ⚫ | |||
==={{header|Icon}}=== |
|||
<lang Icon>procedure main(arglist) |
<lang Icon>procedure main(arglist) |
||
numbers := arglist ||| [ 32767, 45, 53, 64, 100] # combine command line provided and default set of values |
numbers := arglist ||| [ 32767, 45, 53, 64, 100] # combine command line provided and default set of values |
||
| Line 629: | Line 629: | ||
factors of 100=1 2 4 5 10 20 25 50 100</pre> |
factors of 100=1 2 4 5 10 20 25 50 100</pre> |
||
The {{libheader|Icon Programming Library}} [http://www.cs.arizona.edu/icon/library/src/procs/factors.icn divisors] |
The {{libheader|Icon Programming Library}} [http://www.cs.arizona.edu/icon/library/src/procs/factors.icn divisors] |
||
| ⚫ | |||
The Icon solution works in Unicon. |
|||
=={{header|J}}== |
=={{header|J}}== |
||