fork(5) download
copy 
  1. main=interact $ (unlines.(1!)) . read
  2.  
  3. b!1=["/\\"]
  4. b!n|m<-(1-b)!(n-1)=map(' ':)m++[[("/ "++),(++" \\")]!!b$last m]
Success #stdin #stdout 0s 4776KB
comments (?)
stdin
copy 
10
stdout
copy 
         /\
        /\ \
       / /\ \
      / /\ \ \
     / / /\ \ \
    / / /\ \ \ \
   / / / /\ \ \ \
  / / / /\ \ \ \ \
 / / / / /\ \ \ \ \
/ / / / /\ \ \ \ \ \
https://ideone.com/oGrdB4
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!