nobsun’s gists

nobsun / deleteMin.hs

Created November 16, 2013 16:07

空ではないリストから最小の要素を１つだけ削除する ref: http://qiita.com/nobsun/items/49440368b85c36ec4d42

nobsun / file0.txt

Created November 12, 2013 12:57

Lenovo ThinkPad X240s に Ubuntu 13.10 amd64 ja をインストール直後の設定 ref: http://qiita.com/nobsun/items/5b59358ec75c9b503ddd

	$ sudo apt-get update
	$ sudo apt-get upgrade

nobsun / delayList.hs

Last active January 31, 2019 00:00

遅延リストの間欠生成 ref: https://qiita.com/nobsun/items/850f48c8c8fbc2277816


	module DelayList where

	import Control.Concurrent (threadDelay)
	import System.IO.Unsafe (unsafeInterleaveIO)

	delayList :: Int -> [a] -> IO [a]
	delayList _ [] = unsafeInterleaveIO $ return []
	delayList i (x:xs)
	= unsafeInterleaveIO $ threadDelay i >> delayList i xs >>= return . (x:)

nobsun / pascal.hs

Created June 11, 2013 23:25

Data.List.mapAccumR のつかいどころ ref: http://qiita.com/items/389da409cabceebd8ab7

nobsun / coin.hs

Created May 22, 2013 22:27

複数の関数のメモ化はできるか ref: http://qiita.com/items/93e2110ddb80e1e6f2c1

	{-# LANGUAGE TupleSections #-}

	module Main where

	import Data.Function.YaMemo (Memo, memo)
	import Data.Map (Map)

	main :: IO ()
	main = undefined

nobsun / gist:4712792

Last active December 12, 2015 04:18

	{-# LANGUAGE FlexibleInstances #-}
	instances Num (a -> Maybe b) where
	fromInteger 1 = const Nothing
	a = Nothing
	ex = a >>= 1

nobsun / file0.txt

Created December 10, 2012 12:19

逆順ナンバリング ref: http://qiita.com/items/e57d03a92ad6d0ffe0ac

	テキストファイルを指定するとそのファイル名と，行番号をふった内容を印字するプログラムを作成せよ．
	ただし，ファイルは複数指定できるものとし，行番号は（そのファイルでの）残りの行数を表す数である．
	（対象ファイルがn行からなる場合，n-1から0までの番号が降順にふられる．）

nobsun / AdventCalendar2012.hs

Created December 9, 2012 15:11

引数の置換（permutation） ref: http://qiita.com/items/d05735d37b2111eefb39

	{-# LANGUAGE EmptyDataDecls #-}
	{-# LANGUAGE TypeFamilies #-}
	{-# LANGUAGE TypeSynonymInstances #-}
	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE OverlappingInstances #-}
	{-# LANGUAGE UndecidableInstances #-}
	{-# LANGUAGE ScopedTypeVariables #-}

	module AdventCalendar2012 where

nobsun / numbering.hs

Created November 26, 2012 15:05

ナンバリング ref: http://qiita.com/items/d325823f141375816cf5

	module Main where
	import System.Environment

	main :: IO ()
	main = mapM_ numbering =<< getArgs

	numbering :: FilePath -> IO ()
	numbering f = putStr . unlines . zipWith number [1..] . lines =<< readFile f

	number :: Int -> String -> String

nobsun / ifphex010204.hs

Created November 23, 2012 08:12

IFPH 練習問題 1.2.4 簡約系列の列挙 ref: http://qiita.com/items/ffd0dab664422ed2b079

Nobuo Yamashita nobsun