Created
May 28, 2014 19:41
-
-
Save larsw/6b762382b4d05140ab95 to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| let rec getMaxOrder0 number order = | |
| match number with | |
| | _ when number < (pown 26 order) -> getMaxOrder0 number order + 1 | |
| | _ -> order |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment