Find square difference: Difference between revisions
Content added Content deleted
(Added Algol W) |
(→{{header|Haskell}}: Added a Haskell version (is this really the task ? seems absurd)) |
||
Line 153: | Line 153: | ||
print fpow(1001)</lang> |
print fpow(1001)</lang> |
||
{{out}}<pre>501</pre> |
{{out}}<pre>501</pre> |
||
=={{header|Haskell}}== |
|||
<lang haskell>import Data.List (findIndex) |
|||
f = succ . flip div 2 |
|||
-- Or, with redundant verbosity |
|||
g n = |
|||
let Just i = findIndex (> n) [3, 5..] |
|||
in 2 + i |
|||
main = do |
|||
print $ f 1000 |
|||
print $ g 1000</lang> |
|||
{{Out}} |
|||
<pre>501 |
|||
501</pre> |
|||
=={{header|jq}}== |
=={{header|jq}}== |