Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
24 lines (16 sloc) 472 Bytes

twss.hs

Usage

import Twss

main = do
    pos <- readTrainingData "positive"
    neg <- readTrainingData "negative"
  input <- getLine
  print $ isTwss pos neg input
  print $ isTwssProbability pos neg input -- show the probability of this being a twss

Executable

Installing this will give you a twss executable:

twss <string>

Credits

This is a port of DanielRapp's twss.js by Aditya Bhargava.