rahcola

module Kuulaskuri (luo, monesko, seuraava) where

import Data.IORef

newtype Kuulaskuri = Kuulaskuri (IORef Int)

luo :: IO Kuulaskuri
luo = do
    c <- newIORef 1
    return $ Kuulaskuri c

rahcola

function init() {
    naytaLuku("0");
    /*eka näytä nolla */
    var nappula = document.getElementById("nappi");
    var laskin = new Laskin();
    /* on nyt tosi rumasti tehty, mutta en keksinyt parempaakaan
     * eli siis en päässyt tuolta hanskaaHomma-funktiosta
     * käsiksi laskimeen, yritin vaikka mitä esim. antaa sen olion
     * tolle hanskaaHommalle parametrina, mutta ei jostain
     * syystä toiminut. Terkuin 4 tuntia myöhemmin päätin muuttaa