Integer roots: Difference between revisions
Content added Content deleted
m (→{{header|Haskell}}: Pruned out a redundant test.) |
|||
| Line 401: | Line 401: | ||
where |
where |
||
pn = pred n |
pn = pred n |
||
go ( |
go (_:xs@(x:y:_)) |
||
| x == |
| x == y = x |
||
| otherwise = go xs |
| otherwise = go xs |
||