jarnaldich

#!/usr/bin/env stack
{- stack --resolver lts-12.20 --install-ghc runghc
--package random --package async --package stm-chans --package wreq --package cassava
-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE DeriveGeneric #-}
import Control.Exception
import Control.Concurrent.Async (mapConcurrently, concurrently)

jarnaldich

#!/usr/bin/env stack
{-
stack
--install-ghc runghc
--package xml-lens
-}
{-# LANGUAGE OverloadedStrings #-}
module Main where
import System.Environment (getArgs)
import Text.XML

jarnaldich

function Sample-Count-Files {
    [CmdletBinding()]

    param(
        # The file pattern to count
        [Parameter(Mandatory=$true, 
                   Position=0)]
        [string]$pattern,

        # Name of the log file

jarnaldich

#!/usr/bin/env stack
{-
stack
--resolver lts-4.2
--install-ghc runghc
--package xml-lens
--package directory-tree
-}
{-# LANGUAGE OverloadedStrings #-}
module Main where

jarnaldich

#lang racket

(provide my-match-lambda*
         (struct-out my-match-lambda-procedure)
         my-match-lambda-append
         my-match-lambda-add-clause!
         my-match-lambda-add-overriding-clause!
         (struct-out exn:fail:my-match-lambda:no-match)
         (struct-out exn:fail:my-match-lambda:no-match:next-clause)
         raise-my-match-lambda:no-match-error)