0 people like it.
Like the snippet!

A CONSOLE-BASED ROCK-PAPER-SCISSORS

When playing rock-paper-scissors (RPS), we show 0 fingers for rock, 2 for scissors and 5 for paper. This rule is also applied for this console-based game written in F#. Enjoy !

 1: 
 2: 
 3: 
 4: 
 5: 
 6: 
 7: 
 8: 
 9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 
18: 
19: 
20: 
21: 
22: 
23: 
24: 
25: 
26: 
27: 
28: 
29: 
30: 
31: 
32: 
33: 
34: 
35: 
36: 
37: 
38: 
39: 
40: 
41: 
42: 
43: 
44: 
45: 
46: 
47: 
48: 
49: 
50: 
51: 
52: 
53: 
54: 
55: 
56: 
57: 
58: 
59: 
60: 
61: 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71: 
72: 
73: 
74: 
75: 
76: 
77: 
78: 
79: 
80: 
81: 
82: 
83: 
84: 
85: 
86: 
87: 
88: 
89: 
90: 
91: 
92: 
93:

open System 

let RPS plr npc : int8 =

    match plr, npc with 
        | 0 , 0 | 2 , 2 | 5 , 5 ->  0y // Draw
        | 0 , 2 | 2 , 5 | 5 , 0 ->  1y // Player wins
        | 0 , 5 | 5 , 2 | 2 , 0 ->  2y // NPC wins
        | 6 , _                 -> -6y // Valid input from the player
        |           _           ->  9y // Default case

let Game : unit =
    
    let mutable local = 0
    let mutable total = 0

    let mutable again = ConsoleKey.Y
    while again = ConsoleKey.Y do

        local <- 0

        printf  "\n\n\t\t\tPLAYER\t\tNPC\t\tRESULT\n\n"

        for i in 1 .. 5 do
            
            printf "  ROUND %d / 5 :\t\t" i
            let plr = match System.Console.ReadKey(true).Key with

                        | ConsoleKey.NumPad0 | ConsoleKey.D0
                        | ConsoleKey.R  ->  Console.ForegroundColor <- ConsoleColor.Green
                                            printf "ROCK\t\t"
                                            0

                        | ConsoleKey.NumPad2 | ConsoleKey.D2
                        | ConsoleKey.S  ->  Console.ForegroundColor <- ConsoleColor.Yellow
                                            printf "SCISSORS\t"
                                            2

                        | ConsoleKey.NumPad5 | ConsoleKey.D5
                        | ConsoleKey.P  ->  Console.ForegroundColor <- ConsoleColor.Cyan
                                            printf "PAPER\t\t"
                                            5

                        | _             ->  Console.ForegroundColor <- ConsoleColor.DarkRed
                                            printf "???\t\t"
                                            6

            let npc = match (System.Random()).Next(0,3) with
                        | 0     ->  Console.ForegroundColor <- ConsoleColor.Green
                                    printf "ROCK\t\t"
                                    0
                        | 1     ->  Console.ForegroundColor <- ConsoleColor.Yellow
                                    printf "SCISSORS\t"
                                    2
                        | _     ->  Console.ForegroundColor <- ConsoleColor.Cyan
                                    printf "PAPER\t\t"
                                    5

            let dxs = match RPS plr npc with
                        |  0y   ->  Console.ForegroundColor <- ConsoleColor.Cyan
                                    printf "TIE\n" 
                                    +0
                        |  1y   ->  Console.ForegroundColor <- ConsoleColor.Green
                                    printf "WON\n" 
                                    +1
                        |  2y   ->  Console.ForegroundColor <- ConsoleColor.Red
                                    printf "LOST\n" 
                                    -1
                        | -6y   ->  Console.ForegroundColor <- ConsoleColor.DarkRed
                                    printf "???\n" 
                                    -2
                        |  _  ->    -0
            
            local <- local + dxs

            Console.ResetColor ()

        match local with
            | _ when local > 0 -> total <- total + 1
            | _ when local < 0 -> total <- total - 1   
            | _                -> ()

        printf "\n      >>  YOUR TOTAL SCORE: %d\n" total
        printf "\n      >>  Do you want to play again ? (Y/N) "
        again <- Console.ReadKey(true).Key

        printf "\n\n  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  "

    printf "\n\n      >>  YOUR FINAL SCORE: %d " total

    ()

Console.ReadKey(true).Key |> ignore

namespace System

val RPS : plr:int -> npc:int -> int8

val plr : int

val npc : int

Multiple items
val int8 : value:'T -> int8 (requires member op_Explicit)

--------------------
type int8 = SByte

val Game : unit

type unit = Unit

val mutable local : int

val mutable total : int

val mutable again : ConsoleKey

field ConsoleKey.Y: ConsoleKey = 89

val printf : format:Printf.TextWriterFormat<'T> -> 'T

val i : int32

type Console =
  static member BackgroundColor : ConsoleColor with get, set
  static member Beep : unit -> unit + 1 overload
  static member BufferHeight : int with get, set
  static member BufferWidth : int with get, set
  static member CapsLock : bool
  static member Clear : unit -> unit
  static member CursorLeft : int with get, set
  static member CursorSize : int with get, set
  static member CursorTop : int with get, set
  static member CursorVisible : bool with get, set
  ...

Console.ReadKey() : ConsoleKeyInfo
Console.ReadKey(intercept: bool) : ConsoleKeyInfo

field ConsoleKey.NumPad0: ConsoleKey = 96

field ConsoleKey.D0: ConsoleKey = 48

field ConsoleKey.R: ConsoleKey = 82

property Console.ForegroundColor: ConsoleColor with get, set

field ConsoleColor.Green: ConsoleColor = 10

field ConsoleKey.NumPad2: ConsoleKey = 98

field ConsoleKey.D2: ConsoleKey = 50

field ConsoleKey.S: ConsoleKey = 83

field ConsoleColor.Yellow: ConsoleColor = 14

field ConsoleKey.NumPad5: ConsoleKey = 101

field ConsoleKey.D5: ConsoleKey = 53

field ConsoleKey.P: ConsoleKey = 80

field ConsoleColor.Cyan: ConsoleColor = 11

field ConsoleColor.DarkRed: ConsoleColor = 4

Multiple items
type Random =
  new : unit -> Random + 1 overload
  member Next : unit -> int + 2 overloads
  member NextBytes : buffer:byte[] -> unit + 1 overload
  member NextDouble : unit -> float

--------------------
Random() : Random
Random(Seed: int) : Random

val dxs : int

field ConsoleColor.Red: ConsoleColor = 12

Console.ResetColor() : unit

val ignore : value:'T -> unit

Raw view Test code New version

More information

Link:	http://fssnip.net/7Yt
Posted:	4 years ago
Author:	me
Tags:	game