I hereby claim:
- I am ssboisen on github.
- I am ssboisen (https://keybase.io/ssboisen) on keybase.
- I have a public key ASAx14dDln2g4CZ0iAfqva-VUr6A54ul2NRVcQBFjX69ugo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
| #include "stdafx.h" | |
| #include <iostream> | |
| #include <functional> | |
| class FunctionTester | |
| { | |
| public: | |
| FunctionTester(); | |
| std::function<int(bool)> DoStuff(); | |
| }; |
| using System; | |
| using System.Collections.Generic; | |
| using System.IO; | |
| using System.Linq; | |
| using System.Text; | |
| namespace SuffixTreeAlgorithm | |
| { | |
| public class SuffixTree | |
| { |
| public enum TradeStatusEnum { Created, Approved } | |
| public class Party | |
| { | |
| //ctor etc. | |
| public string Name { get; protected set; } | |
| } | |
| public class Trade |
| open System; | |
| open System.Diagnostics; | |
| [<EntryPoint>] | |
| let main argv = | |
| let rec cc amount coins = | |
| match (amount, coins) with | |
| | (0,_) -> 1 | |
| | (_,[]) -> 0 | |
| | (amount,_) when amount < 0 -> 0 |
| let memoize2 f = | |
| let cache = ref Map.empty | |
| fun a b -> | |
| match (!cache).TryFind (a,b) with | |
| | Some(cv) -> cv | |
| | None -> | |
| let v = f a b | |
| cache := Map.add (a,b) v !cache | |
| v | |
| let inline inTheForest (a: ^a) = | |
| (^a : (member Quack: unit -> unit) (a)) | |
| (^a : (member Feathers: unit -> unit) (a)) | |
| () | |
| type Duck() = | |
| member x.Quack() = printfn "Quaaaaaack!" | |
| member x.Feathers() = printfn "The duck has white and gray feathers." | |
| type Person() = |
| [Route('/person/{id}')] | |
| public class Person | |
| { | |
| public Int Id; | |
| public string Name; | |
| public Address HomeAddress; | |
| } | |
| [Route('/address/{id}')] | |
| public Address |
| public class GzipJsonServiceClient : JsonServiceClient | |
| { | |
| public GzipJsonServiceClient(string baseUri) : base(baseUri) { } | |
| public GzipJsonServiceClient(string syncReplyBaseUri, string asyncOneWayBaseUri) : base(syncReplyBaseUri, asyncOneWayBaseUri) { } | |
| public override void SerializeToStream(IRequestContext requestContext, object request, Stream stream) | |
| { | |
| using (var memStream = new MemoryStream()) | |
| { |
| (defn branch? [node] | |
| (= (:type node) :branch)) | |
| (defn get-chars [node] | |
| (if (branch? node) | |
| (:chars node) | |
| [(:char node)])) | |
| (defn leaf [char weight] | |
| {:char char :weight weight :type :leaf}) |