adimit

module Main where

import RTE.Corpus.DTD
import System.Environment (getArgs)
import RTE.Corpus.Reader (readCorpus)
import Data.List (intersect,nub)
import Control.Monad (forM_)
import qualified Data.ListTrie.Patricia.Map as T
import qualified Data.Map as M
import qualified Text.Show as S

adimit

("1",0.1206545729092029,"Pair_entailment_YES")
("2",0.16158342144683588,"Pair_entailment_NO")
("3",0.20172164082201813,"Pair_entailment_UNKNOWN")
("4",0.10516903623802112,"Pair_entailment_YES")
("5",0.29042784080370854,"Pair_entailment_YES")
("6",0.20933095172264307,"Pair_entailment_UNKNOWN")
("7",0.2756929453449271,"Pair_entailment_YES")
("8",6.113330844433598e-2,"Pair_entailment_NO")
("9",0.17916876106637708,"Pair_entailment_UNKNOWN")
("10",0.16542347946810432,"Pair_entailment_NO")

adimit

local playerFrame

local FrameInit = {
»       player = function(self)
»       »       print(tostring(playerFrame))
»       end,
}

local function Initialize(self, unit)
»       if FrameInit[unit] then return FrameInit[unit](self)

adimit

module Main where

import Text.XML.Expat.Tree
import Text.XML.Expat.Proc
import System.Environment (getArgs)
import Control.Monad (liftM)
import qualified Data.ByteString.Lazy as C

justSentences t = filterChildrenName (=="sentence") t

adimit

\documentclass{article}

\usepackage[round]{natbib}
\usepackage{fontspec}
\usepackage{xunicode}
\usepackage{bidi}

\newfontfamily{\hebrf}[Script=Hebrew]{SBLHebrew}
\newcommand{\hebr}[1]{\RL\hebrf #1}

adimit

import Data.STRef
import Control.Monad (when,forM_)
import Control.Monad.ST
import Data.Array.ST
import Data.List (minimumBy)
import Data.Array

findShortestSublist0 :: (Eq a) => [a] -> [a] -> Maybe (Int,Int)
findShortestSublist0 n h = findShortestSublist (map (==) n) h

adimit

s <- 1
png(paste("graphs/subjects/s",s,"qresp.png",sep=""),width=1000,height=1000)
ggplot(items[items$Subject == s,],aes(Condition,ScaledQRESP)) + geom_boxplot()
dev.off()

for (s in 1:31) {
	print(paste("Plotting data for subject",s))

	png(paste("graphs/subjects/s",s,"qresp.png",sep="-"),width=1000,height=1000)
	print(ggplot(items[items$Subject == s,],aes(Condition,ScaledQRESP)) + geom_boxplot())

adimit

{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Text as X
import Data.Text (Text)

import Criterion
import Criterion.Main

escapedChars :: String
escapedChars =  '"':'\\':"-!@~/()*[]="

adimit

data NodeList (l ∷ [*]) where
  NNil ∷ NodeList '[]
  (:-) ∷ e → NodeList l → NodeList (e ': l)

nodeSequence ∷ ∀ m e l. NodeList (m e ': l) → m (NodeList e ': l)
nodeSequence (m :- l) = (m ∷ m e) >>= \(e ∷ e) → return (e :- l)

adimit

packages:
- '.'
- location:
    git: https://github.com/haskell-servant/servant
    commit: d46cde913c8bcd993c3341b252d2f1f2498211ca
  extra-dep: true
  subdirs:
    - servant-server
    - servant