Skip to content

Instantly share code, notes, and snippets.

Franklin Chen FranklinChen

Block or report user

Report or block FranklinChen

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
FranklinChen /
Created Oct 5, 2011
C++ abuse: simple example
// C++ abuse
#include <iostream>
using namespace std;
class Animal {
virtual void food() = 0;
virtual void sound() = 0;
FranklinChen / inheritance.c
Created Nov 7, 2011
Most basic inheritance in C
View inheritance.c
#include <stdlib.h>
#include <stdio.h>
/* Single inheritance, treating Animal as abstract base class. */
typedef struct Animal_vtable {
void (*eat)(void *);
void (*sound)(void *);
} Animal_vtable;
typedef struct Animal {
FranklinChen / WordCount.hs
Created Dec 8, 2011
Knuth/McIlroy word count task using Haskell
View WordCount.hs
import qualified System
import qualified Data.List as List
import qualified Data.Char as Char
import qualified Data.HashMap.Strict as HashMap
main :: IO ()
main = do
[arg] <- System.getArgs
text <- getContents
let n = read arg
View tree_select.rb
require 'minitest/autorun'
# Traverse in preorder
def tree_traverse(tree, &block)
if tree.is_a? Array and tree.length > 0
yield tree
tree.each {|t| tree_traverse(t, &block) }
FranklinChen / ForBill.hs
Created Nov 18, 2013
For @BillLaboon hey @FranklinChen is there an easy way in Haskell to find out which element in a list is most common, e.g. [1,1,1,2,3] -> 1 ?
View ForBill.hs
import Test.HUnit
import qualified Data.List as List
import qualified Data.Ord as Ord
import Data.PSQueue as PSQueue
For @BillLaboon
hey @franklinchen is there an easy way in Haskell to find out which element in a list is most common, e.g. [1,1,1,2,3] -> 1 ?
View safety.cpp
// Illustrate disciplined C++ code
#include <vector>
#include <iostream>
using namespace std;
class Foo {
View gist:ec627b32670dd31f4028
sealed trait Interact[A]
case class Ask(prompt: String)
extends Interact[String]
case class Tell(msg: String)
extends Interact[Unit]
trait Monad[M[_]] {
def pure[A](a: A): M[A]
View spark.hs
-- Response to
-- Based on
import System.IO (hPutStrLn, stderr)
import System.Environment (getArgs)
import qualified Data.ByteString as B
import qualified Data.ByteString.Char8 as C
main :: IO ()
main = do
FranklinChen / PointFreeExample.hs
Created Oct 6, 2014
Example of point-free style
View PointFreeExample.hs
import Control.Category ((>>>))
data Option = Option { name :: String }
-- Point-free style. Is this readable?
-- An Option matches a String if: we get the name of the Option and then prepend "--" to it, test whether that is equal
-- to the given String.
matches :: Option -> String -> Bool
matches = name >>> ("--" ++) >>> (==)
View OverloadedNonsense.hs
{-# LANGUAGE OverloadedStrings #-}
import Data.String
data Value = VInt Int
| VString String
-- In order to hide the unitype details from the user.
instance Show Value where
show (VInt i) = show i
You can’t perform that action at this time.