LCME Понедельник, 25.09.2017, 20:04
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: anatoliy 
Форум » Домашние задания » Программирование » Классная работа от 29.11 (Количество информации)
Классная работа от 29.11
freidomДата: Понедельник, 29.11.2010, 17:32 | Сообщение # 1
Главный тут
Группа: Администраторы
Сообщений: 273
Репутация: 20
Статус: Offline
smile
Прикрепления: information.hs(1Kb)
 
iom96Дата: Среда, 01.12.2010, 18:59 | Сообщение # 2
Рядовой
Группа: Проверенные
Сообщений: 15
Репутация: 1
Статус: Offline
А не проще
Code
import Control.Monad

ver simbol l acc text =
  case l of  
   l1:ls -> if simbol == l1 then ver simbol ls (acc+1) text else ver simbol ls acc text
   []-> acc / (fromIntegral $ length text)

prob simbol text = ver simbol text 0 text

loge2 = log 2
log2 a=  log a/ loge2

inf n text = if (prob n text) == 0 then 0 else (-1)*(prob n text)*(log2 (prob n text))

iinf l text=
  case l of        
   l1:ls-> (inf l1 text)+(iinf ls text)
   []->0

main = do
  print $ iinf ("mama myla ramu") ("mama myla ramu")
  
?

Добавлено (01.12.2010, 18:59)
---------------------------------------------
Хмм....Интересно, а захрен у меня import Control.Monad?))


Nobody is perfect. I'm nobody. So I'm perfect
 
Форум » Домашние задания » Программирование » Классная работа от 29.11 (Количество информации)
Страница 1 из 11
Поиск:

Copyright Freidom © 2017 Хостинг от uCoz