rahcola

# i3status configuration file.
# see "man i3status" for documentation.

# It is important that this file is edited as UTF-8.
# The following line should contain a sharp s:
# ß
# If the above line is not correctly displayed, fix your editor first!

general {
        output_format = "i3bar"

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 

rahcola

/*THIS IS PSEUDO*/
divResult mod_div_polynomials(int mod,
                              termNode* p,
                              termNode* q) {
  termNode* r = p;
  termNode* s = NULL;
  int b_inverse = ...;

  for (int i = p->deg - q->deg; i >= 0; i--) {
    if (r->deg == q->deg + i) {

rahcola

typedef struct termNode {
  int coef;
  int deg;
  struct termNode* greater;
  struct termNode* lesser;
} termNode;

termNode* make_term(int coef, int deg) {
  termNode* p = malloc(sizeof(termNode));
  p->coef = coef;

rahcola

(ns kineticc.behaviors
  (:refer-clojure :exclude [delay loop])
  (:require [kineticc.epochal :as e])
  (:require [kineticc.operators :as o])
  (:require [clojure.data.json :as j]))

(defn remove-nil-vals
  "Filter key-val pair in which val is nil."
  [map]
  (into {} (remove (comp nil? second) map)))

rahcola

hFetchLines :: Handle -> [Int] -> IO [String]
hFetchLines h nums = do; end <- hIsEOF h; hFetchLines' nums end 1 []
  where
    hFetchLines' [] _ _ acc = return acc
    hFetchLines' _ False _ acc = return acc
    hFetchLines' nums _ row acc = do
                 line <- hGetLine h
                 end <- hIsEOF h
                 if (head nums) == row
                   then hFetchLines' (tail nums) end (row+1) (line:acc)

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

module Kuukausi where

data Kuukausi = Tammikuu
              | Helmikuu
              | Maaliskuu
              | Huhtikuu
              | Toukokuu
              | Kesäkuu
              | Elokuu
              | Heinäkuu

rahcola

[package]
name = "noober"
version = "0.0.1"
authors = ["Jani Rahkola <jani.rahkola@iki.fi>"]

[[bin]]
name = "noober"

[dependencies]
rustc-serialize = "0.1.0"

rahcola

{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}

import Control.Applicative
import Control.Monad
import qualified Control.Monad.Random as R
import qualified Control.Monad.State as S
import qualified Control.Monad.Trans.Either as E

newtype Fuzzer s a = Fuzzer {
    runFuzzer :: E.EitherT () (S.StateT s (R.Rand R.StdGen)) a