Skip to content

Домашнее задание 2: палиндром #12

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
vsotnikov wants to merge 1 commit into
base: main
Choose a base branch
from
Open

Домашнее задание 2: палиндром #12

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
15 changes: 13 additions & 2 deletions otus-02/src/otus_02/homework/palindrome.clj
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,4 +1,15 @@
(ns otus-02.homework.palindrome)
(ns otus-02.homework.palindrome
(:require [clojure.string :as cs]))
Copy link
Collaborator

@margintop15px margintop15px May 15, 2023

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

это не ошибка, а скорее совет на будущее - одно или дву буквенные алиасы не рекомендуется использовать так как в будущем будет тяжело понять что это значит
в данном случае можно использовать string в качестве алиаса


(defn- bad-char? [c]
Copy link
Collaborator

@margintop15px margintop15px May 15, 2023

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

в принципе тот же совет что и выше про алиасы, лучше называть переменные и аргументы какими то осмысленными словами. через месяц или два становится очень трудно понять что значит буква c

(boolean (some #{\space \? \,} [c])))

(defn is-palindrome [test-string])
(defn- bad-char-to-nil [c]
(when-not (bad-char? c)
c))
(defn- rm-bad-chars [s]
(apply str (map bad-char-to-nil s)))
Copy link
Collaborator

@margintop15px margintop15px May 15, 2023

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

хорошее решение через map
еще мы на втором уроке говорили про clojure.string/replace эта функция здесь хорошо бы подошла

(defn is-palindrome [test-string]
(let [s (cs/lower-case (rm-bad-chars test-string))
rs (cs/reverse s)]
(= s rs)))