spikest3r

#include <stdio.h>
#include <emscripten.h>
#include <string.h>

int EMSCRIPTEN_KEEPALIVE fib(int n) {
    if(n == 0) return 0;
    if(n == 1) return 1;
    else return fib(n-1) + fib(n-2);
}

spikest3r

import Text.Read (readMaybe)
import Data.Char (toUpper)

lcg :: Int -> Int
lcg x = (1103515245 * x + 12345) `mod` (2^31)

rand :: Int -> Int -> Int
rand n seed = (lcg seed) `mod` n

guess :: Int -> IO()