Перевод и анализ текстов

Постоянно перевожу, пользуюсь оффлайновым stardict и некоторыми онлайновыми словарями (не только двуязычными). Нахрена переводчику нужен подсчёт вхождений каждого слова в текст, мне лично непонятно. Разве что контролировать себя на предмет слов-паразитов.

Для терминологии может пригодится сначала определиться с тем как и какой термин переводится в каком контексте. И если переводишь только часть придётся анализировать всё что перевели до тебя?

Зачем подсчет слов в тексте? Ну, допустим, чтобы проанализировать несколько текстов и найти незнакомые, но более-менее часто встречаемые слова.

а в emacs стардикт можно подключать?

А, это вариант :)

> а в emacs стардикт можно подключать?

Господи, зачем? :) Там же и так есть мода к dict вроде бы.

а вот это по подробнее, а то я даже не знаю по каким словам гуглить. очень хочется от gtkшной морды стардикта избавиться, консольная версия слишком убогая, а вот встроенный словарик в емаксе был бы кстати

попробовал

M-x dict стоя курсором на слове --- даёт окно с информацией из всех онлайновых словарей к которым может дотянуться. Наверное можно настроить на локальный сервер.

есть M-x

Possible completions are: dict    dict-display-version    dict-mode dict-multiple    dict-on-server    dict-region dict-show-similar    dict-version

Prawda - отечественных open source переводчик. Не развивается в 2006 года, но может пригодится.

StarDict имеет интегрированный переводчик, а также плагины, например построение графа слова по отношению к чему-то там.

в частности интересует подсчет количества вхождений каждого слова в текст

Это довольно простая задача. Вот упрощенная реализация на haskell для plain text:

import System
import Data.Char
import Data.List
import qualified Data.Map as Map
import qualified System.IO.UTF8 as UTF8

toList file = map (map toLower) $ map (filter isAlpha) $ words file

countEntries file = Map.toList $ Map.fromListWith (+) $ zip (toList file) $ repeat 1

sortEntries entries = sort $ [(x,y)|(y,x) <- entries]

showEntries entries = unlines $ [unwords [show x, y]| (x,y)  <- sortEntries entries]

main = do 
  args <- getArgs
  file <- UTF8.readFile $ head args
  UTF8.putStr $ showEntries $ countEntries file