Kazuki Okamoto kakkun61

🚂

Choo-choo

岡本和樹 [o̞͑kä̝mo̞͑to̞͑ kä̝zʊ̠kɪ̟]

kakkun61 / gist:5974664

Created July 11, 2013 11:31

My answer for http://go-tour-jp.appspot.com/#40

	package main

	import (
	"code.google.com/p/go-tour/wc"
	"strings"
	)

	func WordCount(s string) map[string]int {
	tab := make(map[string]int)
	for _, w := range strings.Fields(s) {

kakkun61 / gist:5974649

Created July 11, 2013 11:28

My answer for http://go-tour-jp.appspot.com/#35

	package main

	import "code.google.com/p/go-tour/pic"

	func Pic(dx, dy int) [][]uint8 {
	pic := make([][]uint8, dy)
	for y := 0; y < dy; y++ {
	pic[y] = make([]uint8, dx)
	}
	for y, pr := range pic {

kakkun61 / gist:5974638

Last active December 19, 2015 15:09

My answer for http://go-tour-jp.appspot.com/#23

kakkun61 / .bashrc

Created June 22, 2013 06:47

	# ~/.bashrc: executed by bash(1) for non-login shells.
	# see /usr/share/doc/bash/examples/startup-files (in the package bash-doc)
	# for examples

	# If not running interactively, don't do anything
	case $- in
	i) ;;
	*) return;;
	esac

kakkun61 / gist:5754414

Last active December 18, 2015 08:29

TaPL 3章

	data Term = TTrue \| TFalse \| Zero
	\| Succ Term \| Pred Term \| IsZero Term
	\| If Term Term Term
	deriving (Eq, Show)

	eval :: Term -> Term
	eval (IsZero Zero) = TTrue
	eval (IsZero TTrue) = TFalse
	eval (IsZero TFalse) = TFalse
	eval (IsZero t) = isZero $ eval t

kakkun61 / Main.hs

Last active December 15, 2015 11:29

すごい Haskell 読書会 in 大阪 #7

	{-
	小問1
	------

	(選択肢文字列,値)のリストをとって、ユーザーに選択肢を提示し、番号を入力して選んでもらった値を返す関数

	``` {haskell}
	choice :: [(String, a)] -> IO a
	```

kakkun61 / gist:5116110

Last active December 14, 2015 16:38

すごい Haskell 読書会 in 大阪 #6

	{-# LANGUAGE TypeOperators #-}
	{-# LANGUAGE MultiParamTypeClasses #-}
	{-# LANGUAGE FlexibleInstances #-}

	{-
	問題:コロンをつかってみよう

	data k :> v = k :> v deriving (Eq, Show)
	data k :=> v = Nil
	\| (k :> v) :+ (k :=> v)

kakkun61 / Main.hs

Last active December 14, 2015 09:49

λカ娘4を読んだ記憶を頼りに Haskell で多引数関数を書いてみた。

	{-# 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

kakkun61 / Bookmark.hs

Created February 13, 2013 11:58

すごい Haskell 読書会 in 大阪 #5 問題 https://gist.github.com/yashigani/4943873

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

	import Data.List (intercalate)

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

kakkun61 / leksah.desktop

Created February 9, 2013 20:04

put at ~/.local/share/applications