Skip to content

Instantly share code, notes, and snippets.

@staafl

staafl/gist:8943389

Created February 11, 2014 20:26
Show Gist options
  • Save staafl/8943389 to your computer and use it in GitHub Desktop.
Save staafl/8943389 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.fs
let rec loop k =
match () with
| _ when (x % k) = 0 && (x / k >= 100) && (x / k) <= 999 -> true
| _ when (float k) > System.Math.Sqrt (float x) -> false
| _ -> loop (k + 1)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment