fork download 
  1. let cuboide a b c =
  2.     let rep = String.replicate
  3.  
  4.     let top =
  5.         [0 .. c]
  6.         |> List.rev
  7.         |> List.map (fun i -> rep i " " + "/" + rep a "____/")
  8.         |> fun x -> (x.Head.Replace("/", " ")::x.Tail)
  9.         |> List.mapi (fun i x -> x + rep (min i b) "|")
  10.         |> List.mapi (fun i x -> if i > b then x + "/" else x)
  11.  
  12.     let front = 
  13.         [1 .. b]
  14.         |> List.map (fun x -> "|" + rep a "____|")
  15.         |> List.mapi (fun i x -> x + rep (min c (b - i - 1)) "|")
  16.         |> List.mapi (fun i x -> if i > b - c - 1 then x + "/" else x)
  17.  
  18.     in top @ front |> List.iter (fun x -> printfn "%s" x)
  19.  
  20. cuboide 3 3 3
  21. cuboide 5 2 3
  22. cuboide 4 6 5
Success #stdin #stdout 0.08s 11768KB
comments (?)
stdin 
Standard input is empty
stdout 
    ____ ____ ____ 
  /____/____/____/|
 /____/____/____/||
/____/____/____/|||
|____|____|____|||/
|____|____|____||/
|____|____|____|/
    ____ ____ ____ ____ ____ 
  /____/____/____/____/____/|
 /____/____/____/____/____/||
/____/____/____/____/____/||/
|____|____|____|____|____||/
|____|____|____|____|____|/
      ____ ____ ____ ____ 
    /____/____/____/____/|
   /____/____/____/____/||
  /____/____/____/____/|||
 /____/____/____/____/||||
/____/____/____/____/|||||
|____|____|____|____||||||
|____|____|____|____|||||/
|____|____|____|____||||/
|____|____|____|____|||/
|____|____|____|____||/
|____|____|____|____|/
https://ideone.com/a4qxb3
language:
F# (mono 4.1)
created:
13 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!