David Vollbracht qxjit

## gist:10434995
Excepting deserializing game: System.ArgumentNullException: Argument cannot be null.
Parameter name: array
  at Microsoft.FSharp.Collections.ArrayModule.Fold[EntityId,SetTree`1] (Microsoft.FSharp.Core.FSharpFunc`2 folder, Microsoft.FSharp.Collections.SetTree`1 state, CoinDB.EntityId[] array) [0x00000] in <filename unknown>:0
  at Microsoft.FSharp.Collections.SetTreeModule.ofArray[EntityId] (IComparer`1 comparer, CoinDB.EntityId[] l) [0x00000] in <filename unknown>:0
  at Microsoft.FSharp.Collections.FSharpSet`1[CoinDB.EntityId].OnDeserialized (StreamingContext context) [0x00000] in <filename unknown>:0
  at System.Runtime.Serialization.SerializationCallbacks.Invoke (System.Collections.ArrayList list, System.Object target, StreamingContext context) [0x00000] in <filename unknown>:0
  at System.Runtime.Serialization.SerializationCallbacks.RaiseOnDeserialized (System.Object target, StreamingContext contex) [0x00000] in <filename unknown>:0
  at System.Runtime.Serialization.ObjectManager.RaiseOnDeserializedE

## regular_vs_active_pattern.fs
type A =
  | A of int
  | B of string

> List.choose (|A|_|) [ A 3; B "foo"];;

  List.choose (|A|_|) [ A 3; B "foo"];;
  -------------^^^^^

/vagrant/stdin(6,14): error FS0039: The value or constructor '|A|_|' is not defined

## scone_creep.idr
data Creep = SomeCreep
data Scope a = SomeScope a
data Scone a = AScone a

data Taste a =
    Disgusting
  | Yucky
  | Edible
  | Yummy
  | Delicious

## gist:2de9409c40c605c77182

      
              1 file
            
          
              1 fork
            
          
              0 comments
            
          
              0 stars
            
          
                qxjit
                / gist:2de9409c40c605c77182
            
            
              Last active
              August 29, 2015 14:03
            
              
                Cthulhu Voice Procedure Alphabet
              
          
Letter
Word


A
Azathoth


B
B’gnu-Thun


C
Cthulhu


D
D’endrrah


E
Ei'lor


F
Fhtagn


G
Gi-Hoveg


H
Hastur


## comp.rb
def comp(*gs)
  id = -> x { x }
  gs.inject(id) do |f,g|
    -> x do
      f.to_proc.call g.to_proc.call x
    end
  end
end

times_2 = -> x { x * 2 }

## multilineLet.fsx
let f x =
  let a =
    let c = 2
    let d = 3

    c + d*x

  a + a

printfn "%d" (f 1)

## calculator.html
<html>
  <head>
    <style type="text/css">
      body {
        width: 966px;
        margin: auto;
        background-color: gray;
      }

      .button-section {

## new_line_message_send.rb
# This program prints out:
#
# Reversed: god
# God
#
# I originally found it in the documentation
# of BasicObject#tap in "Programming Ruby 1.9" by Dave Thomas
#

puts "dog"

## gist:760707
def reverse(a) a.reverse; end

## Boca Golf 2011-01-19
def sanitize(w,s)s.tr('/*-._\\','').sub(/#{w}/i,'*'*w.size)end
	Excepting deserializing game: System.ArgumentNullException: Argument cannot be null.
	Parameter name: array
	at Microsoft.FSharp.Collections.ArrayModule.Fold[EntityId,SetTree`1] (Microsoft.FSharp.Core.FSharpFunc`2 folder, Microsoft.FSharp.Collections.SetTree`1 state, CoinDB.EntityId[] array) [0x00000] in <filename unknown>:0
	at Microsoft.FSharp.Collections.SetTreeModule.ofArray[EntityId] (IComparer`1 comparer, CoinDB.EntityId[] l) [0x00000] in <filename unknown>:0
	at Microsoft.FSharp.Collections.FSharpSet`1[CoinDB.EntityId].OnDeserialized (StreamingContext context) [0x00000] in <filename unknown>:0
	at System.Runtime.Serialization.SerializationCallbacks.Invoke (System.Collections.ArrayList list, System.Object target, StreamingContext context) [0x00000] in <filename unknown>:0
	at System.Runtime.Serialization.SerializationCallbacks.RaiseOnDeserialized (System.Object target, StreamingContext contex) [0x00000] in <filename unknown>:0
	at System.Runtime.Serialization.ObjectManager.RaiseOnDeserializedE
	type A =
	\| A of int
	\| B of string

	> List.choose (\|A\|_\|) [ A 3; B "foo"];;

	List.choose (\|A\|_\|) [ A 3; B "foo"];;
	-------------^^^^^

	/vagrant/stdin(6,14): error FS0039: The value or constructor '\|A\|_\|' is not defined
	data Creep = SomeCreep
	data Scope a = SomeScope a
	data Scone a = AScone a

	data Taste a =
	Disgusting
	\| Yucky
	\| Edible
	\| Yummy
	\| Delicious
Letter	Word
A	Azathoth
B	B’gnu-Thun
C	Cthulhu
D	D’endrrah
E	Ei'lor
F	Fhtagn
G	Gi-Hoveg
H	Hastur
	def comp(*gs)
	id = -> x { x }
	gs.inject(id) do \|f,g\|
	-> x do
	f.to_proc.call g.to_proc.call x
	end
	end
	end

	times_2 = -> x { x * 2 }
	let f x =
	let a =
	let c = 2
	let d = 3

	c + d*x

	a + a

	printfn "%d" (f 1)
	<html>
	<head>
	<style type="text/css">
	body {
	width: 966px;
	margin: auto;
	background-color: gray;
	}

	.button-section {
	# This program prints out:
	#
	# Reversed: god
	# God
	#
	# I originally found it in the documentation
	# of BasicObject#tap in "Programming Ruby 1.9" by Dave Thomas
	#

	puts "dog"