Tatsuya Hirose lotz84

I'm software engineer in Japan. I'm interested in Haskell.

lotz84 / serversession-wai-example.hs

Created January 8, 2016 06:47

	{-# LANGUAGE OverloadedStrings #-}

	module Main where

	import Control.Monad (when)
	import qualified Data.Vault.Lazy as Vault
	import Data.ByteString.Char8 (ByteString, pack)
	import Data.ByteString.Lazy.Char8 (fromStrict)
	import Data.Text (Text)

lotz84 / kmeans.hs

Created January 6, 2016 02:37

k-means clustering example using iris data set https://archive.ics.uci.edu/ml/datasets/Iris

	import Data.List
	import Data.List.Extra
	import Data.Maybe (mapMaybe)
	import System.Random (randomRIO)
	import qualified Data.IntMap as IntMap

	import Data.Foldable (for_)
	import qualified Data.Map as Map

	kmeans :: Ord b => (a -> a -> b) -> ([a] -> a) -> Int -> Int -> [a] -> IO [[a]]

lotz84 / stack.yaml

Created December 26, 2015 08:57

	resolver: lts-3.19

	packages:
	- '.'
	- location:
	git: git@github.com:bos/hdbc-mysql.git
	commit: d43ea057019ff683f278f36af410f4d3cbc731bc

	extra-deps:
	- relational-record-0.1.2.0

lotz84 / gist:ec45b5ec25b4a276433e

Created December 16, 2015 08:03

Scala の環境を整える

lotz84 / 1.unigram.hs

Last active December 9, 2015 08:10

Calculate unigram of Lovecraft's Dagon using multiset <https://hackage.haskell.org/package/multiset>.

	import Data.List (sortOn)
	import qualified Data.MultiSet as MultiSet

	main :: IO ()
	main = do
	contents <- concat . map words . lines <$> readFile "dagon.txt"
	mapM_ print . take 10 . reverse . sortOn snd . MultiSet.toOccurList . MultiSet.fromList $ contents

lotz84 / stack.yaml

Created November 19, 2015 04:30

http://inf.ufrgs.br/~morprates/code/mandelbrot/

lotz84 / aws.md

Last active November 14, 2015 17:16

lotz84 / mynumber.hs

Last active November 13, 2015 05:06

	import GHC.Int

	validateMyNumber :: Int64 -> Bool
	validateMyNumber myNumber
	\| length (show myNumber) <= 12 =
	let (x:pn) = take 12 . map (`mod` 10) . iterate (`div` 10) $ myNumber
	qn = [if n <= 6 then n + 1 else n - 5 \| n <- [1..11]]
	y = (`mod` 11) . sum . zipWith (*) qn $ pn
	in x == if y <= 1 then 0 else (11 - y)
	\| otherwise = False

lotz84 / maybet.hs

Created November 2, 2015 13:22

	import Control.Monad.Trans.Maybe
	import Control.Monad.IO.Class
	import Data.List

	env :: [(String, Int)]
	env = [("x", 1), ("y", 2), ("z", 3)]

	main :: IO ()
	main = do
	result <- runMaybeT $ do

lotz84 / stack.yaml

Created October 28, 2015 04:52

lts-3.11: HRR