stesh

<?$choons = Array(
'-1jPUB7gRyg',
'-EqsbGpUrGk',
'-UajuBAUkBs',
'-mPraO_sJ7A',
'07kpF1MZHOQ',
'19HT0w1uW4A',
'19WUwZYM7bM',
'1Hjnf-vPcL4',
'1tuQ6AkOdGY',

stesh

>>> english = set(open('/usr/share/dict/words').read().splitlines())
>>> left_hand = 'qwertasdfgzxcvb'
>>> words_typeable_by_left_hand = [w for w in english if all(c in left_hand for c in w)]
>>> print max(words_typeable_by_left_hand,key = lambda w: len(w))
reverberates

stesh

class Monad m => MonadError e m | m -> e where
    catchError :: e -> m a
    throwError :: m a -> (e -> m a) -> m a

data ErrorT e m a = ErrorT {
    runErrorT :: m (Either e a)
    }

instance MonadTrans (ErrorT e m) where
    lift m = ErrorT $ do

stesh

-- State transformer monad --
--
-- 1. Typeclass MonadState, declaring stateful operations
-- 2. A datatype to work with
-- 3. An implementation of Monad 
-- 4. An implementation of MonadTrans
-- 5. An implementation of MonadState
-- 6. The State Monad for free, by transforming Identity

class (Monad m) => MonadState s m | m -> s where

stesh

type Stream a = MVar (Item a)
data Item a = Item a (Stream a)
data Channel a = Channel (MVar (Stream a)) (MVar (Stream a))

newChannel :: IO (Channel a)
newChannel = do
    hole <- newEmptyMVar
    readVar <- newMVar hole
    writeVar <- newMVar hole
    return $ Channel readVar writeVar

stesh

#!/bin/sh

fomafst="$1"
inverted=$(tempfile)

cat <<EOF | foma -p
read regex @"$fomafst";
invert net
save stack $inverted
EOF

stesh

#!/bin/sh

cat <<EOF | ssh -CX cube python
from nltk.tree import Tree
Tree('''$(pbpaste)''').draw()
EOF

stesh

#!/usr/bin/python

words = open('/usr/share/dict/words').read().splitlines()
sort = lambda s:''.join(sorted(s))
anagrams = {sort(w):[] for w in words}
for word in words:
    anagrams[sort(word)].append(word)
while True:
    print anagrams[sort(raw_input())]

stesh

{
  "Teri accepted {verb} hated pharmacology": {
    "affirmed": true,
    "asked": false,
    "suggested": true,
    "intimated": false,
    "predicted": true,
    "justified": false,
    "denied": true,
    "confabulated": true,

stesh

#!/bin/sh

cd "$HOME/tmp"
ln -s $$ lock || exit 1

TMPDOT="$HOME/tmp/tmp.dot.$$.$RANDOM"
OUTPNG="/srv/webspace/stesh/intersocs.svg"
IRCLINKS="$HOME/bin/irclinks"

[ -x $IRCLINKS ] || exit 1