I hereby claim:
- I am quchen on github.
- I am quchen (https://keybase.io/quchen) on keybase.
- I have a public key ASATANMe9QP9201JvWflq0SKHe2ZN6BiVOGtul61dDKMtQo
To claim this, I am signing this object:
13:15 <xQuasar> | HASKELL IS FOR FUCKIN FAGGOTS. YOU'RE ALL A BUNCH OF | |
| FUCKIN PUSSIES | |
13:15 <xQuasar> | JAVASCRIPT FOR LIFE FAGS | |
13:16 <luite> | hello | |
13:16 <ChongLi> | somebody has a mental illness! | |
13:16 <merijn> | Wow...I suddenly see the error of my ways and feel | |
| compelled to write Node.js! | |
13:16 <genisage> | hi | |
13:16 <luite> | you might be pleased to learn that you can compile | |
| haskell to javascript now |
ColorDataFunction[ | |
97, | |
"Indexed", | |
{1, Infinity, 1}, | |
(ToColor[ | |
If[ | |
1 <= #1 <= 10, | |
{ | |
RGBColor[0.368417, 0.506779, 0.709798], | |
RGBColor[0.880722, 0.611041, 0.142051], |
module Main (main) where | |
-- Does not typecheck yet :-( | |
main = putStr (hello (:) [] succ minBound) | |
s f g x = f x (g x) | |
k x _ = x | |
hello :: (char -> io -> io) -> io -> (char -> char) -> char -> io | |
hello = s (s (k s) (s (k (s (k s))) (s (k (s (k (s (k s))))) (s (s (k s) (s (k | |
(s (k s))) (s (k (s (k (s (k s))))) (s (s (k s) (s (k (s (k s))) (s (k (s (k |
#!/usr/bin/env stack | |
{- stack | |
--resolver lts-12.0 | |
--install-ghc | |
runghc | |
--package text | |
--package vector | |
--package base | |
--package random | |
-- |
<!DOCTYPE html> | |
<html lang="en"> | |
<head> | |
<meta charset="utf-8"> | |
<title>Fusion 2018 – Scraped Soundcloud links</title> | |
</head> | |
<body> | |
<h1>Fusion 2018 – Scraped Soundcloud links</h1> |
I hereby claim:
To claim this, I am signing this object:
import qualified Data.Set as S | |
import System.IO.Unsafe | |
import System.Directory | |
import System.Environment | |
import Control.Exception | |
import Data.List | |
newtype Song = Song String | |
deriving (Show, Read, Eq) |
import Text.Parsec hiding ((<|>), many) | |
import Text.Parsec.String | |
import Text.Printf | |
import Control.Applicative | |
data MyType = Single Int | |
| Tuple MyType MyType | |
instance Show MyType where | |
show (Single x) = show x |
{-# LANGUAGE LambdaCase #-} | |
-- | Teaching terrible coding practices with the help of purely functional | |
-- programming. Today: Node.hs! | |
module NodeHs where | |
import Control.Concurrent | |
import Control.Exception |