Skip to content

Instantly share code, notes, and snippets.

View Ball's full-sized avatar

Brian J Ball Ball

31 followers · 7 following
View GitHub Profile
@Ball
Ball / accum_fib.fs
Created November 15, 2009 21:05
let fibonacci n =
let rec loop current a b =
if current == n
then a + b
else loop (current+1) b (a+b)
match n with
| 0 -> 0
| 1 -> 1
| _ -> loop 2 0 1
@Ball
Ball / fibonacci_cp.fs
Created November 15, 2009 21:47
let fibonacci n =
let rec fib_cps n cont =
match n with
| 0 -> (cont 0) // <-- even the base cases need to keep the promise
| 1 -> (cont 1)
| _ -> (fib_cps (n-1) (fun a -> fib_cps (n-2) (fun b -> cont(a+b)) ) )
fib_cps n (fun x -> x) // <- this anon function is our base continuation
@Ball
Ball / network_sockets.hs
Created October 5, 2011 14:00
A networked based socket server
-- Socket based network library
-- http://www.haskell.org/ghc/docs/6.10.4/html/libraries/network/Network-Socket.html
import Network.Socket
-- System io calls. Posix based
-- http://lambda.haskell.org/hp-tmp/docs/2011.2.0.0/ghc-doc/libraries/haskell2010-1.0.0.0/System-IO.html
import System.IO
@Ball
Ball / gist:3986836
Created October 31, 2012 12:40
Defer / disposable in ruby
def using(object, message, *args)
begin
yield if block_given?
ensure
object.send(message, *args)
end
obj = SomthingToClose.connect
@Ball
Ball / stack_monad.fs
Created November 19, 2012 20:58
Learning Monads - Stack from the javascript example
// Adapted from http://igstan.ro/posts/2011-05-02-understanding-monads-with-javascript.html
type StackResult = {value: int; stack: int list}
let push element stack =
{value= element; stack = element :: stack}
let pop stack =
{value= (List.head stack); stack = (List.tail stack)}
let bind operation continuation stack =
let r = operation stack
@Ball
Ball / fizzbuzz.fs
Created November 20, 2012 19:53
FizzBuzz in types
type Fizzable = Plain of int
| Fizzy
| Buzzy
| FizzyBuzzy
let toFizzable n :Fizzable =
match n with
| _ when (n % 3) = 0 && n % 5 = 0 -> FizzyBuzzy
| _ when n % 3 = 0 -> Fizzy
| _ when 0 = n % 5 -> Buzzy
@Ball
Ball / TypeDrivenBowlingKata.fs
Created November 21, 2012 13:55
Type Driven Bowling Kata
type Frame = StandardFrame of int * int
| SpareFrame of int * int
| StrikeFrame
type Game = Frame list
let score game =
let nextRoll frames =
match frames with
| [] -> 0
| StandardFrame(a,_)::_ -> a
@Ball
Ball / MainWindow.cs
Created August 16, 2013 13:39
Cross-Threading binding updates with WPF for RPH. I have no idea if this is best practice, but it seems to work.
namespace MyApplication {
public partial class MainWindow
{
private readonly ViewModel _vm;
private bool _close;
public MainWindow()
{
InitializeComponent();
@Ball
Ball / padding-names.clj
Created January 24, 2014 02:43
some prefixing logic for some files I'm downloading in a personal project.
(defn zero-pad [n number-string]
(->>
(concat (reverse number-string) (repeat \0))
(take n)
reverse
(apply str)))
(defn prefix [file-name]
(str "ns" (clojure.string/replace file-name #"^\d+" #(pad 3 %))))
@Ball
Ball / something.html
Created April 2, 2015 13:56
Deletion Prompt for Jon
<html>
<head>
<script src="http://code.jquery.com/jquery-1.11.2.min.js"></script>
<script type="application/javascript">
$(document).ready(function(e){
$("button.delete").click(function(){
var org_name = $(this).parents("tr")
.children("td:first-child").html();
alert(org_name);
});