semiring-0.1: NLP/Semiring/Viterbi.hs

{-# LANGUAGE GeneralizedNewtypeDeriving #-}
module NLP.Semiring.Viterbi where
import NLP.Semiring
import NLP.Semiring.ViterbiNBest

data One = One  
instance N One where 
    mkN = One
    n _ = 1

type Viterbi semi = ViterbiNBest One semi