Нахождение «подпалиндромов».

24

Самый короткий код, который находит все уникальные «подпалиндромы» строки, то есть: любую подстроку длиной> 1, которая является палиндромом.

eg.1

input: "12131331"
output: "33", "121", "131", "313", "1331"

eg.2

input: "3333"
output: "33", "333", "3333"
Eelvex
источник
1
Может ли строка быть ее собственным подпалиндромом? Поскольку строка является собственной подстрокой.
JPvdMerwe
@JPvdMerwe: Да, конечно.
Eelvex
На самом деле важнее: каким должен 333быть результат? Наивно вы в конечном итоге напечатаете 33дважды
JPvdMerwe
@JPvdMerwe: «333» -> «33», «333». Я отредактирую вопрос соответственно. Спасибо.
Eelvex
Как указан выход? Разделенные запятыми с кавычками вокруг каждого подпалиндрома, как вы демонстрируете здесь? Один подпункт на строку?
Джои

Ответы:

11

J 24 31 40

~.(#~(1<#*]-:|.)&>),<\\.

Образец использования:

   ~.(#~(1<#*]-:|.)&>),<\\. '12131331'
┌───┬───┬───┬────┬──┐
│121│131│313│1331│33│
└───┴───┴───┴────┴──┘
   ~.(#~(1<#*]-:|.)&>),<\\. '3333'
┌──┬───┬────┐
│33│333│3333│
└──┴───┴────┘

Возьми это, GolfScript!

JB
источник
Признайся, ты просто положил свалку /dev/randomотсюда, чтобы обмануть нас ;-)
Joey
@ Джои попробуй сам; р (Т.Б.Х., я сначала не думал, что это сработает)
JB
Я уверен, что это настоящий код. Я провел выходные, пытаясь обернуть голову вокруг J, но с треском провалился. Тем не менее, я узнаю код; Я просто не понимаю, что он делает ;-)
Джои
2
Разве это не может быть сокращено до ~.(#~(1<#*]-:|.)&>),<\\.(24 символа)?
ephemient
@ephemient Это действительно так. (Похоже, я застрял в менталитете «ответ должен быть функцией», который здесь не применим.) Отредактировано, спасибо!
JB
7

Питон 124

r=raw_input()
l=range(len(r))
print', '.join(set('"'+r[i:j+1]+'"'for i in l for j in l if i<j and r[i:j+1]==r[i:j+1][::-1]))
Александр
источник
5

Haskell 98, 88 91 96

import List
main=interact$show.filter(\x->length x>1&&x==reverse x).nub.(tails=<<).inits
JB
источник
3

Питон - 138 136

Этот код не дублирует подпалиндромы.

r=raw_input()
i,l=0,len(r)
j=l
a=[]
while i<l-1:
 t=r[i:j];j-=1
 if t==t[::-1]:a+=['"'+t+'"']
 if j<i+2:i+=1;j=l
print", ".join(set(a))
JPvdMerwe
источник
1
Измените '"'+t+'"'на, tчтобы сэкономить место, хотя он использует одинарные кавычки.
Томас О
3

Рубин - 126 102 97 знаков

s=gets
*m=*0..s.size
puts m.product(m).map{|h,j|(c=s[h,j+1]).size>1&&c==c.reverse ? c:0}.uniq-[0]
Nemo157
источник
3

Golfscript, 48 символов

subpalindrome.gs

{,}{(;}/{{,}{);}/}%{+}*{.,1>\.-1%=*},.&{`}%", "*

Использование:

echo "12131331" | ruby golfscript.rb subpalindrome.gs

Первая операция {,}{(;}/превращает строку в список конечных подстрок. Аналогичное преобразование ведущих подстрок затем отображается на результат. Затем сгладьте с помощью {+}*, отфильтруйте палиндромы, используя предикат .,1>\.-1%=*, возьмите уникальные значения с помощью .&, затем хорошенько напечатайте.

Было бы удобнее извлечь преобразование конечных подстрок в виде блока и использовать его в качестве замены ведущих подстрок после обращения каждой конечной подстроки, но я не могу найти краткий способ сделать это.

roobs
источник
2

Хаскелл - 170 , 153

import Data.List
import Data.Set
p a=fromList$[show x|x<-subsequences a,x==reverse x,length x>1]
main=getLine>>=(\x->putStrLn$intercalate", "$toList$p x)
Джонатан Штернберг
источник
Заменить main=getLine>>=(\x->putStrLn$intercalate", "$toList$p x)на main=getLine>>=putStrLn.intercalate", ".toList.p. Я также заменил бы вызов pсвоим телом.
Ясир Арсанукаев
Подстроки / = subsequences! Ваша программа сообщает о большем количестве субпалиндромов, чем эталонный выход для примера 1. (например, «1111»)
JB
2

J, 48

f=:,@:".
h=:\\.
~.(#~10&<)((]h-:"0&f|.h)#[:f]h)

например

~.(#~10&<)((]h-:"0&f|.h)#[:f]h) '12131331'
121 131 313 1331 33
Eelvex
источник
2

Пролог, 92

f(S,P):-append([_,X,_],S),X=[_,_|_],reverse(X,X),atom_codes(P,X).
p(S,R):-setof(P,f(S,P),R).

Образец использования:

?- p("12131331",R).
R = ['121', '131', '1331', '313', '33'].

?- p("3333",R).
R = ['33', '333', '3333'].
JB
источник
2

Windows PowerShell, 104 109 111

0..($l=($s="$input").length-1)|%{($a=$_)..$l|%{-join$s[$a..$_]}}|sort -u|?{$_[1]-and$_-eq-join$_[$l..0]}

Это ожидает ввода в stdin и выбрасывает все найденные палиндромы по одному на строку в stdout:

PS Home:\SVN\Joey\Public\SO\CG183> '12131331'| .\subp.ps1
33
121
131
313
1331

(Когда запускается из cmdнего становится echo 12131331|powershell -file subp.ps1- это просто $inputимеет немного другое значение в зависимости от того, как был вызван скрипт, но это может быть стандартным, но не в интерактивном режиме.)

2011-01-30 13:57 (111) - Первая попытка.

2011-01-30 13:59 (109) - Объявление встроенных переменных.

2011-06-02 13:18 (104) - Переделайте поиск подстроки, присоединив массив char вместо вызова .Substring()и добавив немного больше.

детеныш
источник
2

Q, 78

{a::x;(?)(,/)b@'(&:')({x~(|:)x}'')b:-1_1_'({(sublist[;a]')x,'1+c}')c::(!)(#)a}

использование

q){a::x;(?)(,/)b@'(&:')({x~(|:)x}'')b:-1_1_'({(sublist[;a]')x,'1+c}')c::(!)(#)a}"12131331"
"121"
"131"
"313"
"1331"
"33"
q){a::x;(?)(,/)b@'(&:')({x~(|:)x}'')b:-1_1_'({(sublist[;a]')x,'1+c}')c::(!)(#)a}"3333"
"33"
"333"
"3333"
tmartin
источник
2

Сетчатка , 34 27 байт

&@!`(.)+.?(?<-1>\1)+(?(1)^)

Попробуйте онлайн!

Набор тестов нуждается в, Mпотому что он сопровождается другим этапом для вставки пустых строк между тестовыми примерами.

объяснение

&@!`(.)+.?(?<-1>\1)+(?(1)^)

Print ( !) все уникальное (@ ), перекрывающиеся ( &) совпадения с регулярным выражением (.)+.?(?<-1>\1)+(?(1)^). Это соответствует палиндрому длины 2 или более с использованием балансировочных групп. Есть предостережение в части «все перекрывающиеся совпадения»: мы можем получить не более одного совпадения на стартовую позицию. Однако, если два палиндрома различной длины начинаются в одном и том же положении, более короткий палиндром снова появится в конце более длинного палиндрома. А поскольку жадность +приоритетов больше совпадает, мы все равно получаем все палиндромы.

Мартин Эндер
источник
2

05AB1E , 11 10 байт

ŒÙʒÂQ}žQSK

Попробуйте онлайн!

Урна волшебного осьминога
источник
1
9 байтов
скоттинет
@scottinet терпит неудачу для одиноких, EG1234142141410010101000
Волшебная Урна Осьминога
1
Твой тоже, но не так. о_О Что-то происходит, что требует расследования. Между тем, вот 10-
байтовая
Был баг с uniquify, я его исправил. Теперь и ваши 11 байтов отвечают, и мои 9 байтов одна работа :-)
scottinet
@scottinet Ваш 10-байтовый также может быть 9-байтовым, если перейти 1›на . :)
Кевин Круйссен
1

Perl 112

$_=<>;chop;s/./$&$' /g;
map{/../&&$_ eq reverse&&$h{$_}++}split/ /
  for grep{s/./$`$& /g}split/ /;
print for keys %h
ardnew
источник
1

JavaScript (ES6), 120 байт

a=>{for(b=0,c=d=a.length,e=[];b<d;--c<b+2?(b++,c=d):1)(f=a.slice(b,c))==f.split``.reverse().join``&&e.push(f);return e}

Эта функция принимает строку в качестве входных данных и выводит массив.

Люк
источник
1

Clojure, 81 байт

#(set(for[i(range 2(+(count %)1))p(partition i 1 %):when(=(reverse p)(seq p))]p))

forэто было идеальное совпадение :) Можно использовать, :when(=(reverse p)p)если input был список символов ИЛИ полная строка не считалась палиндромом, на самом деле в этом случае максимальный диапазон также iмог бы быть (count %).

Самый компактный чехол для справки:

#(set(for[i(range 2(count %))p(partition i 1 %):when(=(reverse p)p)]p))
NikoNyrh
источник
1

Python, 83 102 символа

s=lambda t:(t[1:]or())and(t,)*(t==t[::-1])+s(t[1:])+s(t[:-1])
print set(s(input()))

Фраза (t[1:]or())and... эквивалентна (...)if t[1:]else()и сохраняет один символ! Я чрезмерно горжусь этим, учитывая экономию.

Пример:

python x
"51112232211161"
set(['11', '22', '11122322111', '161', '111', '112232211', '1223221', '22322', '232'])
Бутби
источник
1

Scala 127

object p extends App{val s=args(0);print(2.to(s.size).flatMap(s.sliding(_).toSeq.filter(c=>c==c.reverse)).toSet.mkString(" "))}

Чтобы сравнить это с яблоками и яблоками с другим ответом Scala, я также сделал свой объект, расширяющий приложение. Вместо того, чтобы итерировать входную строку вручную и использовать подстроку, я использовал скольжение (), чтобы создать для меня последовательность всех подстрок.

bkuder
источник
1

Scala 156 170

object o extends App{val l=args(0).length-2;val r=for(i<-0 to l;j<-i to l;c=args(0).substring(i,j+2);if(c==c.reverse))yield c;print(r.toSet.mkString(" "))}

object o{def main(s:Array[String]){val l=s(0).length-2;val r=for(i<-0 to l;j<-i to l;c=s(0).substring(i,j+2);if(c==c.reverse)) yield c;println(r.distinct.mkString(" "))}}

Лалитх
источник
Привет, Лалит, я немного сократил твой код: перед выходом не было пробела, а приложение расширялось вместо перезаписи main, println => print and different => toSet
пользователь неизвестен
1

Perl 6 ,  35  32 байта

{unique m:ex/(.+).?<{$0.flip}>/}

Попробуй это

{set m:ex/(.+).?<{$0.flip}>/}

Попробуй это

Expanded:

{  # bare block lambda with implicit parameter 「$_」

  set             # turn into a Set object (ignores duplicates)

  \             # stringify 「~」 all of these 「«」 (possibly in parrallel)
                  # otherwise it would be a sequence of Match objects

  m               # match
  :exhaustive     # in every way possible
  /
    ( .+ )        # at least one character 「$0」
    .?            # possibly another character (for odd sized sub-palindromes)
    <{ $0.flip }> # match the reverse of the first grouping
  /
}
Брэд Гилберт b2gills
источник
1

Желе , 9 байт

ẆQŒḂÐfḊÐf

Попробуйте онлайн!

Эрик Outgolfer
источник
Вывод вашей постоянной ссылки неверен.
Деннис
@Dennis, почему это стало целью для обманщика, тогда> _> исправили
Эрик, Outgolfer
7 байт с новым желе.
user202729
1

APL (Dyalog Classic) , 27 байтов

{∪⍵/⍨≡∘⌽¨⍨⍵}∘⊃(,/1↓⍳∘≢,/¨⊂)

Попробуйте онлайн!

{∪⍵/⍨≡∘⌽¨⍨⍵}∘⊃(,/1↓⍳∘≢,/¨⊂)    Monadic train:
                                Enclose the input, '12131331'
                     ⍳∘≢          Range from 1 to length of input
                     ⍳∘≢,/¨⊂      List of list of substrings of each length
                   1            Remove the first list (length-1 substrings)
                ,/              Put the rest of the substrings into a single list.
{∪⍵/⍨≡∘⌽¨⍨⍵}                   To the result, apply this function which
                                   keeps all palindromes from a list:
      ≡∘⌽¨⍨⍵                    Boolean value of whether each (¨) string in argument
      ≡∘⌽                      is equal to its own reverse

  ⍵/⍨                           Replicate (filter) argument by those values.
                                 This yields the length >1 palindromes.
                                Remove duplicates from the list of palindromes.
lirtosiast
источник
Из-за того, что OP вызывает «код», фрагмент ∪w/⍨≡∘⌽¨⍨w←⊃,/1↓(⍳∘≢,/¨⊂)действителен.
Адам
@ Adám Я думаю, что я оставлю этот ответ таким, какой он есть, ради современных стандартов сайта, тем более что он не дает общего выигрыша.
lirtosiast
1

Japt , 14 байт

Êò2@ãX fêSÃc â

Попробуйте онлайн!

Объяснение:

Êò2               #Get the range [2...length(input)]
   @      Ã       #For each number in that range:
    ãX            # Get the substrings of the input with that length
       fêS        # Keep only the palindromes
           c      #Flatten
             â    #Keep unique results
Камил Дракари
источник
1

PowerShell , 99 байт

$args|% t*y|%{$s+=$_
0..$n|%{if($n-$_-and($t=-join$s[$_..$n])-eq-join$s[$n..$_]){$t}}
$n++}|sort -u

Попробуйте онлайн!

Менее гольф:

$args|% toCharArray|%{
    $substring+=$_
    0..$n|%{
        if( $n-$_ -and ($temp=-join$substring[$_..$n]) -eq -join$substring[$n..$_] ){
            $temp
        }
    }
    $n++
}|sort -Unique
Mazzy
источник
1

Брахилог , 11 байт

{s.l>1∧.↔}ᵘ

Попробуйте онлайн!

(Заголовок в ссылке не работает во время публикации, так что здесь предикат (эквивалентный функции в Brachylog) только в первом тестовом примере, с wконцом для фактической печати вывода.)

               The output is
{        }ᵘ    a list containing every possible unique
 s.            substring of
               the input
   l           the length of which
    >          is greater than
     1         one
      ∧        and
       .       which
        ↔      reversed
               is itself. (implicit output within the inline sub-predicate)

Я чувствую, что есть более короткий способ проверить, что длина больше 1. (Если бы это не отфильтровывало тривиальные палиндромы, это было бы просто {s.↔}ᵘ.)

Несвязанная строка
источник
1

APL (NARS), 65 символов, 130 байтов

{0=≢m←∪b/⍨{1≥≢⍵:0⋄∧/⍵=⌽⍵}¨b←↑∪/{x[⍵;]⊂y}¨⍳≢x←11 1‼k k⊢k←≢y←⍵:⍬⋄m}

тест:

  r←{0=≢m←∪b/⍨{1≥≢⍵:0⋄∧/⍵=⌽⍵}¨b←↑∪/{x[⍵;]⊂y}¨⍳≢x←11 1‼k k⊢k←≢y←⍵:⍬⋄m}
  o←⎕fmt
  o r '1234442'
┌2───────────┐
│┌2──┐ ┌3───┐│
││ 44│ │ 444││
│└───┘ └────┘2
└∊───────────┘
  o r '3333'
┌3───────────────────┐
│┌4────┐ ┌3───┐ ┌2──┐│
││ 3333│ │ 333│ │ 33││
│└─────┘ └────┘ └───┘2
└∊───────────────────┘
  o r  "12131331"
┌5─────────────────────────────────┐
│┌4────┐ ┌3───┐ ┌2──┐ ┌3───┐ ┌3───┐│
││ 1331│ │ 121│ │ 33│ │ 313│ │ 131││
│└─────┘ └────┘ └───┘ └────┘ └────┘2
└∊─────────────────────────────────┘
  o r '1234'
┌0─┐
│ 0│
└~─┘


{0=≢m←∪b/⍨{1≥≢⍵:0⋄∧/⍵=⌽⍵}¨b←↑∪/{x[⍵;]⊂y}¨⍳≢x←11 1‼k k⊢k←≢y←⍵:⍬⋄m}
 y←⍵  assign the argument to y (because it has to be used inside other function)
 x←11 1‼k k⊢k←≢y   assign the lenght of y to k, call the function 11 1‼k k
                   that seems here find all partition of 1 2 ..k
 {x[⍵;]⊂y}¨⍳≢      make partition of arg ⍵ using that set x
 ∪/                set union with precedent to each element of partition y (i don't know if this is ok)
 b←↑               get first assign to b
 {1≥≢⍵:0⋄∧/⍵=⌽⍵}¨ for each element of b return 1 only if the argument ⍵ is such that 
                   "∧/⍵=⌽⍵" ⍵ has all subset palindrome, else return 0
 b/⍨               get the elements in b for with {1≥≢⍵:0⋄∧/⍵=⌽⍵} return 1
 m←∪               make the set return without ripetition element, and assign to m
 0=≢               if lenght of m is 0 (void set) than 
 :⍬⋄m              return ⍬ else return m

кто-то знает лучше, почему, и может объяснить это лучше, без всяких изменений ... Я не настолько уверен в этом коде, возможно, если тестовые примеры будут более многочисленными, что-то пойдет не так ...

RosLuP
источник
1

Japt , 9 байт

ã â fÅfêU

Попытайся

ã â fÅfêU     :Implicit input of string
ã             :Substrings
  â           :Deduplicate
    f         :Filter elements that return truthy
     Å        :  Slice off first character
       f      :Filter elements that return true
        êU    :  Test for palindrome
мохнатый
источник
0

Java 8, 202 201 199 байт

import java.util.*;s->{Set r=new HashSet();String x;for(int l=s.length(),i=0,j;i<l;i++)for(j=i;++j<=l;)if((x=s.substring(i,j)).contains(new StringBuffer(x).reverse())&x.length()>1)r.add(x);return r;}

Попробуй это здесь.

Если функция не разрешена и требуется полная программа, вместо нее будет 256 255 253 байта :

import java.util.*;interface M{static void main(String[]a){Set r=new HashSet();String x;for(int l=a[0].length(),i=0,j;i<l;i++)for(j=i;++j<=l;)if((x=a[0].substring(i,j)).contains(new StringBuffer(x).reverse())&x.length()>1)r.add(x);System.out.print(r);}}

Попробуй это здесь.

Объяснение:

import java.util.*;      // Required import for Set and HashSet

s->{                     // Method with String parameter and Set return-type
  Set r=new HashSet();   //  Return-Set
  String t;              //  Temp-String
  for(int l=s.length(),  //  Length of the input-String
          i=0,j;         //  Index-integers (start `i` at 0)
      i<l;i++)           //  Loop (1) from `0` to `l` (exclusive)
    for(j=i;++j<=l;)     //   Inner loop (2) from `i+1` to `l` (inclusive)
      if((t=s.substring(i,j) 
                         //    Set `t` to the substring from `i` to `j` (exclusive)
         ).contains(new StringBuffer(t).reverse())
                         //    If this substring is a palindrome,
         &t.length()>1)  //    and it's length is larger than 1:
        r.add(t);        //     Add the String to the Set
                         //   End of inner loop (2) (implicit / single-line body)
                         //  End of loop (1) (implicit / single-line body)
  return r;              //  Return the result-Set
}                        // End of method
Кевин Круйссен
источник
0

JavaScript (ES6), 107 байт

Возвращает набор .

s=>new Set((g=(s,r=[...s].reverse().join``)=>s[1]?(r==s?[s]:[]).concat(g(s.slice(1)),g(r.slice(1))):[])(s))

Контрольные примеры

Arnauld
источник