fork download
copy 
  1. main = do cs <- getContents
  2.           print $ cnt 'a' $ cs
  3.  
  4. cnt :: Char -> [Char] -> Int
  5. cnt x [] = 0
  6. cnt x (c:cs) = cnt x cs + fromEnum(x==c)
Success #stdin #stdout 0.02s 3592KB
comments (?)
stdin
copy 
1234abcaaa
stdout
copy 
4
https://ideone.com/SE3do
language:
Haskell (ghc 8.4.4)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!