Skip to content

Instantly share code, notes, and snippets.

@akouryy

akouryy/aoj10002.hs

Last active August 29, 2015 14:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save akouryy/468e508e234361866676 to your computer and use it in GitHub Desktop.
Save akouryy/468e508e234361866676 to your computer and use it in GitHub Desktop.
Download ZIP
ポイントフリーの練習
Raw
aoj10002.hs
-- http://judge.u-aizu.ac.jp/onlinejudge/description.jsp?id=10002
main = getLine >>= putStrLn . unwords . map show . flip map [product, (2*) . sum] . flip ($) . map read . words
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment