lepoetemaudit

open FSharp.Data
open System.Threading

["http://bbc.co.uk"; "http://www.google.co.uk"]
    |> List.map (fun str ->
        async {
            let! html = Http.AsyncRequestString(str)
            return sprintf "bbc len %d" html.Length 
        }
    )

lepoetemaudit

open System.Threading

type ChatMessage =
    | SendMessage of string
    | GetContent of AsyncReplyChannel<string list>


let agent = MailboxProcessor.Start(fun agent ->
    let rec loop (state : string list) = async {
        printfn "List length is now %d" state.Length

lepoetemaudit

let numberToTokiPona num =
    let rec addNum num str =
        if num >= 2 then addNum (num-2) (str + "twu ")
        else if num = 1 then addNum (num-1) (str + "wan ")
        else str
    if num > 0 then addNum num ""
    else "ala"

(numberToTokiPona 19) |> printfn "%s" 

lepoetemaudit

"""
Extremely crude example of a timing attack
"""

import time
import timeit

actualPassword = '0BEA0239'

def checkpassword(passwd):

lepoetemaudit

(ns tokichat.core
  (:use org.httpkit.server)
  (:gen-class))

(defn handler [req]
  (with-channel req channel            

    (on-close channel (fn [status]
      (println "channel closed")))

lepoetemaudit

Sum

sum1(1, 2, 3) == 6

Fizzbuzz

1 1
2 2
3 Fizz

4 4