LCME Четверг, 28.03.2024, 22:09
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: anatoliy  
Форум » Домашние задания » Программирование » Классная работа от 29.11 (Количество информации)
Классная работа от 29.11
freidomДата: Понедельник, 29.11.2010, 17:32 | Сообщение # 1
Главный тут
Группа: Администраторы
Сообщений: 273
Репутация: 20
Статус: Offline
smile
Прикрепления: information.hs (0.7 Kb)
 
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 из 1
  • 1
Поиск:

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