Проверить, является ли строка палиндромом

@gringo19 · Регистрация: 18.12.2014

Author24 — интернет-сервис помощи студентам

Проверить, является ли строка ~~полиномом~~ палиндромом
(читается одинаково задам-наперед)

@Max Dark · 29.05.2015, 18:49

Haskell

1
2
3

some::String->Bool
some s = (reverse s) == s
main = print $ show $ some "abx"

@gringo19 · 29.05.2015, 19:43 **[ТС]**

Забыл уточнить, БЕЗ использования reverse

@XZentus · 29.05.2015, 21:00

Ну так напишите свой reverse. Например, так:

Haskell

1
2
3

rev []  = []
rev [x] = [x]
rev x   = (rev $ tail x) ++ [head x]

@Curry · 29.05.2015, 21:21

Не полином, а палиндром это называется.

Haskell

palindrome :: String -> Bool
palindrome [] = True
palindrome [x] = True
palindrome (x:xs)
   | x == last xs = palindrome $ init xs
   | otherwise = False
   
main = print $ palindrome "арозаупаланалапуазора"

@Shamil1 · 29.05.2015, 21:44

Добавлено через 12 минут
KolodeznyDiver,
На каждом шаге мы будем весь список пробегать 2 раза (для last и для init)?
Выглядит неэффективно.

@Curry · 29.05.2015, 22:27

Сообщение от Shamil1

На каждом шаге мы будем весь список пробегать 2 раза (для last и для init)?
Выглядит неэффективно.

Да. Не эффективно. С reverse быстрее. Но если такие учебные задачи задают. И не факт что самодельный reverse прокатит. Использование двухнаправленного списка (Data.Sequence) тоже врят ли прокатит.

Добавлено через 24 минуты
Можно ещё так

Haskell

1 2	palindrome :: Eq a => [a] -> Bool palindrome s = fst $ foldr (\a (r, b:bx) -> (r && a==b,bx)) (True,s) s

@Catstail · 30.05.2015, 07:21

Наверняка "пафос" задачи в том, чтобы отсечь очевидное решение (с reverse) и использовать простую рекурсию. Напр. так:

Haskell

isPal :: String -> Bool
isPal ""    = True
isPal [x]  = True
isPal x    = (head x)==(last x) && (isPal $ drop 1 $ init x)

@gringo19 0 / 0 / 0 Регистрация: 18.12.2014 Сообщений: 20
		1
	Проверить, является ли строка палиндромом 29.05.2015, 18:39. Показов 3002. Ответов 7 Метки нет (Все метки) Проверить, является ли строка ~~полиномом~~ палиндромом (читается одинаково задам-наперед) 0

@gringo19 0 / 0 / 0 Регистрация: 18.12.2014 Сообщений: 20
	29.05.2015, 19:43 [ТС]	3
	Забыл уточнить, БЕЗ использования reverse 0

@Shamil1 Модератор 3051 / 2193 / 459 Регистрация: 26.03.2015 Сообщений: 8,469
	29.05.2015, 21:44	6
	Добавлено через 12 минут KolodeznyDiver, На каждом шаге мы будем весь список пробегать 2 раза (для last и для init)? Выглядит неэффективно. 0

	30.05.2015, 07:21

Опции темы