kakkun61

#include<iostream>
#include<functional>
#include<cmath>

using namespace std;
using namespace std::tr1;

template<typename Param, typename Result>
class Function {
private:

kakkun61

makeFib = func()
  inner a = 0,
  inner b = 1,
  func()
    rtn = a,
    a = b,
    b = rtn + b,
    rtn..,
fib = makeFib(),
for (i = 0; i < 50; i = i + 1)

kakkun61

a = 0,
b = 1,
for (i = 0; i < 31 - 2; i = i + 1)
    tmp = a,
    a = b,
    b = tmp + b.,
puts(b).

kakkun61

upperCase :: Char -> Char
upperCase c =
    let l = length ['a'..'z']
        t = length $ takeWhile (/=c) ['a'..'z']
    in
        if l == t
            then c
            else ['A'..'Z'] !! t

upperString :: String -> String

kakkun61

#! /bin/bash

if [ $# -ne 1 ]; then
    echo 'Usage: texpdf file(w/o extension)'
    exit 1
fi

platex $1.tex && platex $1.tex && dvipdfm -p a4 $1.dvi
if [ -e $1.dvi ]; then
    rm $1.dvi

kakkun61

import Parupunte
import Prelude hiding ((+), (*))
import qualified Prelude as P

main = do
    print $ (2+8)*(3+7) -- should print 37
    print $ (2 P.+ 8) P.* (3 P.+ 7)

kakkun61

module MemoFib (
    memoFib
) where

import qualified Data.Map as M

memoFib :: (Ord k, Num k, Num a) => k -> a
memoFib k = snd $ memoFib' (M.fromList [(0,0),(1,1)]) k

memoFib' :: (Ord k, Num k, Num a) => M.Map k a -> k -> (M.Map k a, a)

kakkun61

[Desktop Entry]
Version=1.0
Name=Leksah
Comment=Haskell IDE
GenericName=Haskell IDE
Keywords=Haskell;IDE
Exec=leksah
Terminal=false
X-MultipleArgs=false
Type=Application

kakkun61

module Bookmark (
    Bookmark (..),
    toJson
) where

import Data.List (intercalate)

data Bookmark =
    Bookmark String String |
    Folder String [Bookmark]

kakkun61

{-# LANGUAGE TypeSynonymInstances #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoMonomorphismRestriction #-}

class VLArg a where
    vla :: Show b => [String] -> b -> a

instance VLArg (IO ()) where
    vla acc a = putStrLn $ vla acc a