A+B: Difference between revisions
Content added Content deleted
({{header|F_sharp|F#}} added f#) |
No edit summary |
||
| Line 164: | Line 164: | ||
main = getLine >>= (\xs -> print $ sum' xs)</lang> |
main = getLine >>= (\xs -> print $ sum' xs)</lang> |
||
=={{header|Icon and Unicon}}== |
|||
==={{header|Icon}}=== |
|||
<lang icon>procedure main() |
|||
numChars := '-'++&digits |
|||
read() ? { |
|||
A := (tab(upto(numChars)), integer(tab(many(numChars)))) |
|||
B := (tab(upto(numChars)), integer(tab(many(numChars)))) |
|||
} |
|||
write((\A + \B) | "Bad input") |
|||
end</lang> |
|||
==={{header|Unicon}}=== |
|||
The Icon solution also works in Unicon. |
|||
=={{header|Java}}== |
=={{header|Java}}== |
||
<lang java>import java.util.*; |
<lang java>import java.util.*; |
||