You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
17 lines
327 B
Forth
17 lines
327 B
Forth
3 years ago
|
// Modules
|
||
|
|
open System
|
||
|
|
|
||
|
|
// Recursive definition
|
||
|
|
let rec mc91 n =
|
||
|
|
if n > 100 then
|
||
|
|
n - 10
|
||
|
|
else
|
||
|
|
mc91 (mc91 (n + 11))
|
||
|
|
|
||
|
|
// Ask for input
|
||
|
|
printfn "Inserisci l'intero in cui calcolare la funzione 91 di McCarthey:\n"
|
||
|
|
let i = Console.ReadLine() |> int
|
||
|
|
|
||
|
|
// Print result
|
||
|
|
printfn "%d" (mc91 (i))
|