Kenny Shen qoelet

qoelet / dedupe_urls.hs

Created September 12, 2013 13:41

	-- given a file, read lines and then return unique entries (remove/ignore duplicates)
	-- outputs cleaned file in same folder: f_name.ext -> f_name_cleaned.ext
	-- caveat: please us absolute path
	-- usage example: runhaskell kern_dedupe.hs /home/path/to/paths.txt

	import System.Environment (getArgs)
	import Data.List.Split (splitOn)
	import Data.List (nub, intercalate)

	main :: IO ()

qoelet / minify_me.hs

Created September 11, 2013 14:04

	-- using scotty or yesod without the scaffolding etc... still wants minified js?
	-- usage example: runhaskell minify.hs /path/to/js/myfile.js
	-- output: myfile-min.js in same folder
	-- requirements: cabal install hjsmin

	import System.Environment (getArgs)
	import Text.Jasmine (minifyFile)
	import Data.List.Split (splitOn)
	import qualified Data.ByteString.Lazy as Bsl

qoelet / hn_highscore.hs

Created September 9, 2013 13:40

	-- prints out article: link (score) if score > n
	import Network.Curl
	import Text.XML.HXT.Core
	import Control.Monad
	import Control.Applicative
	import Data.List (isInfixOf, isPrefixOf)

	getHtmlRespOnly :: (CurlCode, String) -> String
	getHtmlRespOnly (_, s) = s

qoelet / webpage.html

Created September 7, 2013 18:30

qoelet / links_from_hn.hs

Created September 7, 2013 16:51

	import Network.Curl
	import Text.XML.HXT.Core
	import Control.Monad
	import Data.List (isPrefixOf)

	getHtmlRespOnly :: (CurlCode, String) -> String
	getHtmlRespOnly (_, s) = s

	main :: IO ()
	main = do

qoelet / function_application.hs

Created September 5, 2013 16:32

	-- consider function f, which evaluates to its argument multiply by 7
	ghci> let f = (\f -> f * 7)
	ghci> f 8
	56

	-- let's consider another function g, which evaluates the argument mod by 7
	ghci> let g = (\g -> g `mod` 7)
	ghci> g 70
	0

qoelet / index_yesod.hs

Created August 31, 2013 22:02

	-- extensions
	{-# LANGUAGE OverloadedStrings, QuasiQuotes, TemplateHaskell, TypeFamilies, MultiParamTypeClasses #-}

	-- call the boss!
	import Yesod
	import Yesod.Static

	staticFiles "static"

	data NorthPole = NorthPole

qoelet / 3sum.hs

Created August 28, 2013 14:59

	-- 3sum

	type TripleInt = (Integer, Integer, Integer)

	threesum :: [TripleInt] -> Integer
	threesum [] = 0
	threesum ((x,y,z):xs) \| x + y + z == 0 = 1 + threesum xs
	\| otherwise = 0 + threesum xs

qoelet / backward_subst.hs

Last active December 21, 2015 18:19

	-- backwards substitution solving

	type LEq = [Double]
	type Sol = Double
	type XVec = [Double]

	bsolve' :: [LEq] -> [Sol] -> XVec -> XVec
	bsolve' _ [] _ = []
	bsolve' (x:xs) (y:ys) v = let
	x' = dropWhile (\x -> x == 0) x

qoelet / t251.hs

Last active December 21, 2015 16:39