Skip to content

Instantly share code, notes, and snippets.

@hafuu
Created March 25, 2015 05:23
Show Gist options
  • Save hafuu/fc7eb5f2f064571d7977 to your computer and use it in GitHub Desktop.
Save hafuu/fc7eb5f2f064571d7977 to your computer and use it in GitHub Desktop.
yuitoのアレ
let beginPage = fsi.CommandLineArgs.[1] |> int
let endPage = fsi.CommandLineArgs.[2] |> int
let actualBeginPage = function
| 1 -> 1
| n -> (n - 2) / 4 * 2 + 3
let actualEndPage n = actualBeginPage n + 1
printfn "%d-%d" (actualBeginPage beginPage) (actualEndPage endPage)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment