dabd

{"Player 1:"
 {"bb bet 230, sb fold"
  ["Js8s@0.41,Js8h@0.29,Js8d@0.31,Th8h@0.01,Td8d@0.01,Ts8s@0.03,Tc8d@0.4,Th8d@0.6,Td8h@0.61,Tc8h@0.41,Ts8h@0.96,Ts8d@0.96,Td8s@0.56,Th8s@0.57,Tc8s@0.37,Th7h,Td7d,Tc7c,9s8s@0.06,9s8h@0.94,9h8s@0.84,9s8d@0.95,9c8s@0.74,9d8s@0.85,9c8h@0.21,9d8h@0.33,9c8d@0.23,9h8d@0.34,9h6h,9d6d,9c6c,6h5h,6d5d,6c5c"
   {"One Pair"
    ["Js8s"
     "Js8h"
     "Js8d"
     "Th8h"
     "Td8d"
     "Ts8s"

dabd

SetFocusStarsEditBox()
{
  global stars_editbox
  WinGet, active_id, ID, A
  ControlFocus, stars_editbox, ahk_id %active_id%
}

dabd

RoR.sim <- function(prizes, probs, BI, BR, games=NA, CI=.95, sims=1000, plots=200, warns=TRUE) {
  if(sum(prizes < 0) > 0) {stop("prizes must not be below 0.")}
  if(length(prizes) != length(probs)) {stop("prizes and probs must be the same length (have the same number of elements).")}
  if(warns==T) {
    if(sum(probs) > 1.00001 | sum(probs) < .99999) {warning("Probs might not total 1.0. Check probabilities total or set warns==FALSE")}
  }
  if(CI <= 0 | CI >= 1.0) {stop("CI must be between .00 and 1.00")}
  LL <- (1 - CI) / 2
  UL <- 1 - LL

dabd

myCompare :: (Ord a) => a -> a -> Ordering  
a `myCompare` b  
    | a > b     = GT  
    | a == b    = EQ  
    | otherwise = LT  

dabd

http://i.imgur.com/htdQf1J.png

dabd

(defn test-println
  []  
  (println "hello")
  (println "there!")
  )

dabd

;; A.ahk
#Include %A_ScriptDir%\somedir\B.ahk

;; B.ahk which is in somedir\
#Include %A_ScriptDir%/../C.ahk

dabd

{-# OPTIONS_GHC -Wall #-}

module LogAnalysis where
import Log

-- ex 1
parseMessage :: String -> LogMessage
parseMessage line = 
    case words line of
      ("E":severity:timestamp:content) -> LogMessage (Error $ read severity) (read timestamp) (unwords content)

dabd

{-# OPTIONS_GHC -Wall #-}

module LogAnalysis where
import Log

-- ex 1
parseMessage :: String -> LogMessage
parseMessage line = 
    case words line of
      ("E":severity:timestamp:content) -> LogMessage (Error $ read severity) (read timestamp) (unwords content)

dabd

whatWentWrong :: [LogMessage] -> [String]
whatWentWrong msgs = map (\m -> case m of 
                                  (LogMessage _ _ s) -> s
                                  _ -> "")
                       $ dropWhile (\m -> case m of
                                       (LogMessage (Error severity) _ _) -> severity >= 50
                                       _ -> False) .
                         filter (\m -> case m of
                                       (LogMessage (Error _) _ _) -> True
                                       _ -> False)