nobsun’s gists

nobsun / Main.hs

Created June 2, 2021 01:36

Advent of Code 2020 day08

	module Main where

	import Data.Char ( toUpper )

	main :: IO ()
	main = print . finalAcc . run . load . map toUpper . filter ('+' /=) =<< readFile "day08.txt"

	finalAcc :: [VMState] -> Acc
	finalAcc states = case last states of
	vm -> _acc vm

nobsun / Multiplication4.hs

Created July 8, 2020 00:06

	module Multiplication4 where

	import Data.List
	import Data.Ord

	multi :: Int -> Int -> [Int] -> Int
	multi n k as = case sg of
	1 -> product' xs
	0 -> 0
	_ -> maxprod n k [ss,xs,ys,nxs,pxs,nys,pys]

nobsun / FullBinaryTree.hs

Last active May 24, 2020 11:05

	{-# LANGUAGE LambdaCase #-}
	{-# LANGUAGE NPlusKPatterns #-}
	{-# LANGUAGE ScopedTypeVariables #-}
	{-# LANGUAGE TypeFamilies #-}
	{-# LANGUAGE DeriveFunctor #-}

	module FullBinaryTree where

	import Control.Arrow ((&&&))
	import Control.Comonad.Cofree (Cofree (..))

nobsun / SLang.hs

Last active November 3, 2018 12:32

Eagerな(おもちゃ)言語

nobsun / Lang.hs

Last active November 7, 2018 12:59

Lazyな(おもちゃ)言語

	{-# LANGUAGE TupleSections #-}
	module Lang where

	import Control.Arrow
	import Control.Monad.State
	import Data.Bool
	import Data.Either
	import Data.List
	import Data.Maybe
	import Control.Monad.Trans.Iter

nobsun / file0.txt

Last active January 21, 2018 08:30

Tree: 親子関係の付け替え ref: https://qiita.com/nobsun/items/27fe53516cbb90ba02e2

	import Data.Tree

	data Lab = A \| B \| C \| D \| E \| F \| G \| H \| I \| J \| K \| L \| M \| N \| O \| P \| Q \| R \| S \| T \| U \| V \| W \| X \| Y \| Z
	deriving (Eq,Ord,Enum,Bounded,Show,Read)

	sample :: Tree Lab
	sample = Node A [Node B [Node C [Node D []
	,Node E []]
	,Node F [Node G []
	,Node H []]]

nobsun / FizzBuzz.hs

Last active September 26, 2017 21:00

「FizzBuzzクイズ」クイズ - Haskell版？ ref: http://qiita.com/nobsun/items/285f208a17285953f2ab

nobsun / F06.hs

Last active September 21, 2017 11:48

「ツリーの中の数」の問題 ref: http://qiita.com/nobsun/items/495b0cc478521dd6b60a

	module F06 where

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

	ordering :: b -> b -> b -> Ordering -> b
	ordering x _ _ LT = x
	ordering _ y _ EQ = y
	ordering _ _ z GT = z

nobsun / file0.txt

Last active June 18, 2017 06:01

愛しの Lazy I/O ref: http://qiita.com/nobsun/items/a0fc3b987f013e9649f0

nobsun / file0.txt

Last active June 8, 2017 21:45

多相関数を数える ref: http://qiita.com/nobsun/items/5662968f1c381695e7ff

Nobuo Yamashita nobsun