DEV Community

Discussion on: Daily Challenge #172 - Find All in an Array

View post
Collapse
 
craigmc08 profile image
Craig McIlwrath •

Haskell:

import Data.List (findIndices) 

findAll :: Eq a => a -> [a] -> [Int]
findAll x = findIndices (==x)

or alternatively,

findAll :: Eq a => a -> [a] -> [Int]
findAll x = map fst . filter ((==x) . snd) . zip [0..]