LCME Среда, 13.11.2024, 21:03
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: anatoliy  
Домашнее задание от 09.02 (Поляк)
froci9rgevkaДата: Вторник, 09.02.2010, 21:27 | Сообщение # 1
Лейтенант
Группа: Проверенные
Сообщений: 71
Репутация: 1
Статус: Offline
Ааааа. тут какой то жёсткий БАГ завёлся... никак не найду. програмка вроде не мудрёная, все кто может помогите.

open String;;

(*смотрим сколько раз ашка повторяется в строке l *)
let rec proverka j l a =
if j>=0 then
(if l.[j]=a then 1+(proverka (j-1) l a) else proverka (j-1) l a)
else 0;;

(*пробигаем по всем элементам первой строки и сравниваем количество включений каждого элемента в первой строке и во второй, если одинаково тоо всё хорошо, идём дальше, если нет, всё плохо... сигнатура string -> string -> bool*)
let rec polinom i l m =
if i>=0 then (if (proverka i l l.[i])=(proverka i m l.[i])
then polinom (i-1) l m else false)
else true;;

(*если их длины ровны то начинаем манипуляции, если же нет то нечего и старатся*)
let rec gh l m =
if (length l)=(length m) then polinom ((length l)-1) l m else false;;

let test l m = if gh m l then print_string "\n OK!"
else print_string "\n Oh! NO!";;

test "qw" "wq";;


Саня - тащщи! XD

"If you have time to panic, you have time to be doing something productive" © Josh Whipple

You’re standing on your Bridle. Idiot! =)
© Roland “Slim” Simpson

Сообщение отредактировал froci9rgevka - Вторник, 09.02.2010, 23:43
 
freidomДата: Среда, 10.02.2010, 19:45 | Сообщение # 2
Главный тут
Группа: Администраторы
Сообщений: 273
Репутация: 20
Статус: Offline
А при чём здесь полиномы? Может быть, ты имел в виду анаграммы?
 
froci9rgevkaДата: Среда, 10.02.2010, 20:11 | Сообщение # 3
Лейтенант
Группа: Проверенные
Сообщений: 71
Репутация: 1
Статус: Offline
да-да... анаграммы, просто забыл как называется

Саня - тащщи! XD

"If you have time to panic, you have time to be doing something productive" © Josh Whipple

You’re standing on your Bridle. Idiot! =)
© Roland “Slim” Simpson

 
froci9rgevkaДата: Пятница, 05.03.2010, 22:51 | Сообщение # 4
Лейтенант
Группа: Проверенные
Сообщений: 71
Репутация: 1
Статус: Offline
аааа... понял.... дааа слишком я всё намудрил - сам запутался, вот правельное:
Прикрепления: anagram-.ml (0.9 Kb)


Саня - тащщи! XD

"If you have time to panic, you have time to be doing something productive" © Josh Whipple

You’re standing on your Bridle. Idiot! =)
© Roland “Slim” Simpson

 
  • Страница 1 из 1
  • 1
Поиск:

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