Skip to content

Instantly share code, notes, and snippets.

@einarwh
einarwh / diamond.fsx
Last active August 29, 2015 14:15 — forked from bjartwolf/diamond.fsx
Tweaks just because.
open System
// We can not work with radius of the diamond outside 0 to 25
let createRadius i =
match i with
| i when i >= 0 && i < 26 -> Some i
| _ -> None
let radius = createRadius 20 |> Option.get
let axis = [|-radius .. radius|]