fork(1) download
copy 
  1. (a:b)#l@(c:d)|a<'+'=1+b#d|a=='x'=l#('*':b)|a>'W'=d#b|1<2=b#d
  2. _#_=1
  3.  
  4. main = print $ "1x1x" # "***X"
Success #stdin #stdout 0s 4700KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3
https://ideone.com/V1vA59
language:
Haskell (ghc 8.4.4)
created:
7 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!