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

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

("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

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