likes::[String]->Stringlikes[]="no one likes this"likes[a]=a++" likes this"likes[a,b]=a++" and "++b++" like this"likes[a,b,c]=a++", "++b++" and "++c++" like this"likes(a:b:xs)=a++", "++b++" and "++(show$lengthxs)++" others like this"
For further actions, you may consider blocking this person and/or reporting abuse
We're a blogging-forward open source social network where we learn from one another
Some simple pattern matching with Haskell.