main=interact $ (unlines.(1!)) . read b!1=["/\\"]b!n|m<-(1-b)!(n-1)=map(' ':)m++[[("/ "++),(++" \\")]!!b$last m]
10
/\ /\ \ / /\ \ / /\ \ \ / / /\ \ \ / / /\ \ \ \ / / / /\ \ \ \ / / / /\ \ \ \ \ / / / / /\ \ \ \ \ / / / / /\ \ \ \ \ \
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!