zakky-dev’s gists

zakky-dev / Calc.hs

Last active August 29, 2015 14:06

パーサ練習。ファンクタ則、アプリカティブ則、モナド則の検証はしていない。

	module Calc where

	import ToyParser

	choiceChar :: Char -> Char -> Parser Char Char
	choiceChar a b = char a </> char b

	valueP :: Parser Char Int
	valueP = num </> (char '(' +> exprP <+ char ')')

zakky-dev / gist:1d42e71562ce8c29e8b6

Created May 27, 2014 23:33

zakky-dev / todolist.hs

Created May 14, 2014 16:10

Haskell練習用TodoList. 覚えている範囲のスキルのみを使って作成. 実際にはもっと綺麗にできるはず.

	import System.IO
	import System.Directory
	import qualified Data.Map as M
	import Data.List.Split

	-- リストのリストを結合し、一つのリストにする
	flatten :: [[a]] -> [a]
	flatten [] = []
	flatten (x:xs) = x ++ flatten xs

zakky-dev / chapter8_165.hs

Created May 3, 2014 15:36

「すごいHaskell楽しく学ぼう！」第8章165ページのサンプルコードを弄くり回した結果。書籍の「let式を使う」という目的を完全無視し、ひたすら分割する方向へ進めてしまった末路。そして文字列のフォーマットについてごねごね考えた原因。

	import qualified Data.Char as C

	type FirstName = String
	type LastName = String

	flatten :: [[a]] -> [a]
	flatten [] = []
	flatten (x:xs) = x ++ flatten xs

	toUpper :: String -> String

zakky-dev / try-cast.d

Created January 28, 2014 15:44

キャストの有り無しで挙動が変わる

	import std.stdio;

	interface Functor(T) {
	Functor!T fmap(Functor!T delegate(T) lam);
	}

	class TestFunctor(T) : Functor!T {
	private T _value;

	this(T value) {

zakky-dev / opopassign.d

Created January 28, 2014 14:41

opOpAssignで遊んでみる

	import std.stdio;

	class Test {
	private string _value;

	this(string value) {
	this._value = value;
	}

	Test opOpAssign(string op)(Test delegate(string) test) if(op == ">>") {

zakky-dev / udatest.d

Created December 31, 2013 19:06

UDAの利用テスト。

	import std.stdio;

	enum udaprop = "udaprop";

	class UDATest {
	@udaprop private int intProperty;
	@udaprop private string stringProperty;
	private float floatProperty;
	}

zakky-dev / mixin-template.d

Created December 22, 2013 10:08

template mixinのテスト

zakky-dev / methods.d

Created September 9, 2013 15:44

D言語で指定したクラスのメソッド名を文字列で全て取得するサンプル

	class Class(T) {
	private bool[string] methods;

	this() {
	initialize();
	}

	void initialize() {
	foreach(member; __traits(derivedMembers, T)) {
	if(__traits(isVirtualFunction, mixin("T." ~ member))) {

zakky-dev / repro.js

Created September 3, 2013 07:10

node.js + socket.io + redisstoreで何故かソケット情報が蓄積する。

	var SERVER_PORT = 80;
	var LIFE_TIME = 30000;
	var REDIS_HOST = "xxx.xxx.xxx";
	var REDIS_PORT = 6379;

	var http = require('http');
	var io = require('socket.io');

	var server = http.createServer();
	var manager = null;

T.Yamazaki zakky-dev