module Darts (score) where
score :: Float -> Float -> Int
score x y
| x^2 + y^2 <= 1 = 10
| x^2 + y^2 <= 25 = 5
| x^2 + y^2 <= 100 = 1
| otherwise = 0