I hereby claim:
- I am rahcola on github.
- I am rahcola (https://keybase.io/rahcola) on keybase.
- I have a public key whose fingerprint is 976E 796E 97C0 6370 903F FAD1 9C06 91C9 237B 9137
To claim this, I am signing this object:
data ResourceId a = ResourceId Integer | |
data Image | |
data User | |
data Authorized a b = Authorized (ResourceId a) | |
data Create | |
data Read | |
data Update | |
data Delete | |
I hereby claim:
To claim this, I am signing this object:
{-# 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 |
[package] | |
name = "noober" | |
version = "0.0.1" | |
authors = ["Jani Rahkola <jani.rahkola@iki.fi>"] | |
[[bin]] | |
name = "noober" | |
[dependencies] | |
rustc-serialize = "0.1.0" |
module Kuukausi where | |
data Kuukausi = Tammikuu | |
| Helmikuu | |
| Maaliskuu | |
| Huhtikuu | |
| Toukokuu | |
| Kesäkuu | |
| Elokuu | |
| Heinäkuu |
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 |
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) |
(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))) |
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; |
/*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) { |