Diamond

Challenge Overview

Given a letter, print a diamond starting with 'A' with the supplied letter at the widest point.

Visit the diamond exercise on Exercism to read the full instructions and download the exercise files.

Community Solutions

View Community Solutions

The following are the top 3 community solutions by stars:

Solution 1 by @talkingaboutcode (⭐ 1) — View on Exercism
Solution 2 by @ErikSchierboom (⭐ 3) — View on Exercism
Solution 3 by @wagenert (⭐ 0) — View on Exercism

Source: Exercism fsharp/diamond

💡 View Solution

module Diamond

let make (letter:char) = 
    let letters = ['A'..letter] |> List.mapi (fun i c -> (i, string c))
    let allLetters = letters @ (letters |> List.rev |> List.tail)

    let spaces n = String.replicate n " " 
    let outerSpace i = letters.Length - (1 + i) |> spaces
    let innerSpace i = (2 * i) - 1 |> spaces