OR
Size: a a a
2020 July 10
Д
Нужно находить номера банковских карт вида <4 цифры><separator><4 цифры><separator><4 цифры><separator><4 цифры> (причем сепаратор должен быть один и тот же, используется backreference для него) или <8 цифр><separator><8 цифр> или <16 цифр>
при чём тут коты тогда интересно)
T
Это у тебя просто в группу взятое выражение вторым в списке выводится
Это пример xy problem) как задача поставлена, такие и решения
T
Не, надо чтобы все возможные варианты нашло и по ним еще алгоритмом Луна проверить
Типа 1111 2222 33334444?
IL
Типа 1111 2222 33334444?
Ну вычленить все варианты с оверлаппингом
T
Тебе зачем оверлаппинг? Чтобы номер карты через такой же разделитель не стоял рядом с другими 4мя цифрами?
IL
Тебе зачем оверлаппинг? Чтобы номер карты через такой же разделитель не стоял рядом с другими 4мя цифрами?
Если другие 4 цифры стоят до или после, то тоже чтоб находил
T
Я бы делал без регекспа. Это простой редьюс
IL
(time
(dotimes [i 100000]
(let [input "cat cat cat ! bar cat cat ! cat ! ! cat cat cat cat cat cat ! cat"
search "cat cat"
iter (take-while
(comp (partial <= (count search)) count)
(iterate rest input))]
(->> iter
(map (partial take (count search)))
(filter (partial = (seq search)))
(map str/join)
doall))))
"Elapsed time: 4988.35768 msecs"
=> nil
(time
(dotimes [i 100000]
(doall
(map #(->> % rest (string/join " "))
(re-seq #"(cat) (?=(cat))" "cat cat cat ! bar cat cat ! cat ! ! cat cat cat cat cat cat ! cat")))
))
"Elapsed time: 591.221235 msecs"
OR
Для примера
через несколько раз будет
user=> (time (dotimes [i 100000] (reduce (fn [acc i] (when-let [pos (clojure.string/index-of "cat cat cat" "cat cat" i)] (conj acc pos))) #{} (range (- (count "cat cat cat") (count "cat cat"))))))
"Elapsed time: 149.210892 msecs"через несколько раз будет
user=> (time (dotimes [i 100000] (reduce (fn [acc i] (when-let [pos (clojure.string/index-of "cat cat cat" "cat cat" i)] (conj acc pos))) #{} (range (- (count "cat cat cat") (count "cat cat"))))))
"Elapsed time: 62.439154 msecs"IL
Ну там надо reduce в doall взять, но в целом да, надо использовать либу
DF
Забавно,
работает норм в cljs над subvec вот так
Но в clojure выдает ошибку
🤔
reduce-kv
работает норм в cljs над subvec вот так
(reduce-kv conj [] (subvec [:a :b :c :d] 1 3) )
Но в clojure выдает ошибку
No implementation of method
🤔
OR
OR
No implementation of method: :kv-reduce of protocol: #'clojure.core.protocols/IKVReduce found for class: clojure.lang.APersistentVector$SubVectorOR
У cljs просто было время сделать иначе
T
У cljs просто было время сделать иначе
"было время"?