Skip to content

Instantly share code, notes, and snippets.

Avatar

Chris Van Horne cwvh

  • Seattle, WA, USA
View GitHub Profile
View B.hs
{-# LANGUAGE OverloadedStrings #-}
import Data.Array.IO
import Data.Array.Base
import Control.Applicative
import Control.Monad
import Data.Attoparsec.Char8
import qualified Data.ByteString.Char8 as B
import System.Environment
data Primitive =
View y.cpp
#include <iostream>
#include <string>
#include <vector>
#include <cstdlib>
#include <boost/spirit/include/qi.hpp>
namespace ast
{
struct Left
{
@cwvh
cwvh / bf.hs
Last active May 18, 2018
Haskell brainfuck interpreter.
View bf.hs
{-# LANGUAGE OverloadedStrings #-}
import Data.Array.IO
import Data.Array.Base
import Control.Applicative
import Control.Monad.Loops
import Data.Either
import Data.Attoparsec.Char8
import qualified Data.ByteString.Char8 as B
import System.Environment
@cwvh
cwvh / init.el
Created Jan 1, 2014
~/.emacs.d/init.el
View init.el
(setq initial-scratch-message nil)
(setq inhibit-startup-message t)
(setq-default tab-width 4)
(setq-default indent-tabs-mode nil)
(prefer-coding-system 'utf-8)
(setq make-backup-files nil)
(setq auto-save-default nil)
(global-font-lock-mode t)
(setq ring-bell-function 'ignore)
@cwvh
cwvh / factorial.bf
Created Dec 29, 2013
factorial.. incorrect prints for values larger than 1000.
View factorial.bf
+++++++++++++++++++++++++++++++++ c1v33 : ASCII code of !
>++++++++++++++++++++++++++++++
+++++++++++++++++++++++++++++++ c2v61 : ASCII code of =
>++++++++++ c3v10 : ASCII code of EOL
>++++++++++ c4v7 : quantity of numbers to be calculated
> c5v0 : current number (one digit)
>+ c6v1 : current value of factorial (up to three digits)
<< c4 : loop counter
[ block : loop to print one line and calculate next
>++++++++++++++++++++++++++++++++++++++++++++++++. c5 : print current number
@cwvh
cwvh / mandelbrot.bf
Created Dec 29, 2013
mandelbrot, very slow execution
View mandelbrot.bf
A mandelbrot set fractal viewer in brainf*** written by Erik Bosman
+++++++++++++[->++>>>+++++>++>+<<<<<<]>>>>>++++++>--->>>>>>>>>>+++++++++++++++[[
>>>>>>>>>]+[<<<<<<<<<]>>>>>>>>>-]+[>>>>>>>>[-]>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>[-]+
<<<<<<<+++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>>+>>>>>>>>>>>>>>>>>>>>>>>>>>
>+<<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[-]+[>>>>>>[>>>>>>>[-]>>]<<<<<<<<<[<<<<<<<<<]>>
>>>>>[-]+<<<<<<++++[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<+++++++[-[->>>
>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>>+<<<<<<<<<<<<<<<<[<<<<<<<<<]>>>[[-]>>>>>>[>>>>>
>>[-<<<<<<+>>>>>>]<<<<<<[->>>>>>+<<+<<<+<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>>>>>>
[>>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<+<<]>>>>>>>>]<<<<<<<<<[<<<<<<<
<<]>>>>>>>[-<<<<<<<+>>>>>>>]<<<<<<<[->>>>>>>+<<+<<<<<]>>>>>>>>>+++++++++++++++[[
View trace.txt
trace_file_name,compression_algorithm,compression_threshold,spin_down_timeout,total_read_time,read_count,avg_read_time,total_write_time,write_count,avg_write_time,processor_energy_used,disk_energy_used,total_energy_used,total_capacity_used,parse_error_occurred
../desktop.json,gzip,0,inf,5.037378788,141298,3.56507437331e-05,0.924479722976,68674,1.34618592622e-05,174.040380839,4132.71687376,4306.7572546,6159105,False
../desktop.json,gzip,0.4,inf,5.03730286599,141298,3.56502064148e-05,0.92584280094,68674,1.34817077925e-05,176.733297386,4132.51722896,4309.25052634,5458904.65255,False
../desktop.json,gzip,0.993,inf,6.21439429504,141298,4.3980766147e-05,0.927627723261,68674,1.35076990311e-05,237.778890911,4132.5098033,4370.28869421,5456605.6541,False
../desktop.json,gzip,inf,inf,38.3164515773,141298,0.000271174762398,2.35881293136,68674,3.43479764009e-05,1971.57854733,4132.49984377,6104.0783911,5454477.86557,False
../desktop.json,bzip2,0.4,inf,5.39169294615,141298,3.8158310423e-05,0.92622162101,68674,1.34872240005e
@cwvh
cwvh / Z.hs
Created Dec 5, 2013
connects to wss://echo.websocket.org fine, but fails with wss://websocket.mtgox.com
View Z.hs
{-# LANGUAGE OverloadedStrings #-}
import Control.Exception
import Control.Monad
import Control.Monad.IO.Class
import qualified Network.Socket as S
import System.IO (IOMode (ReadWriteMode))
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as L
@cwvh
cwvh / hard.txt
Created Nov 4, 2013
SSEM factoring program description
View hard.txt
00000000000000000000000000000000
01000000000000000000000000011000
01100000000000000000000000011010
01000000000000000000000000011010
01100000000000000000000000011011
01000000000000000000000000010111
10000000000000000000000000011011
11000000000000000000000000000000
00100000000000000000000000010100
10000000000000000000000000011010