ploeh

{-# LANGUAGE DeriveFunctor #-}
module PollingConsumer where

import Data.Time.Clock
import Control.Monad.Trans.Free (Free, FreeF(..), liftF, runFree)
import Control.Concurrent (threadDelay)
import System.Random (getStdRandom, random, randomR)
import Text.Printf (printf)

-- "Types prevent typos" - https://twitter.com/hmemcpy/status/867647943108681728

ploeh

-- Translation to Haskell of:
-- http://ccd-school.de/2017/06/stratified-design-over-layered-design
-- I've deliberately translated each method to a function, in order to show the
-- similarity. Some functions, like extractWords, are redundant (already built
-- in) or almost too simple to get their own function.

module Main where

import Data.List (partition)

ploeh

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace Ploeh.Samples.ChainOfResponsibility
{
    public class Maybe<T>
    {

ploeh

using System;
using System.Collections;
using System.Collections.Generic;

public class Foo : IEnumerable<int>
{
    public IEnumerator<int> GetEnumerator()
    {
        yield return 42;
        yield return 1337;

ploeh

module RadioCode where

import Control.Arrow
import Data.Char
import Data.List
import Data.Maybe

icao :: [(Char, String)]
icao =
    (head &&& delete ',')