Найти ряды

14

Найти трассы внутри массива

Прогон определяется как три или более чисел, которые увеличиваются от предыдущего с постоянным шагом. Например, [1,2,3] будет прогоном с шагом 1, [1,3,5,7] будет прогоном с шагом 2, а [1,2,4,5] не будет прогоном.

Мы можем выразить эти прогоны через обозначения «i к j через s», где i - это первый номер прогона, j - последний номер прогона, а s - шаг. Однако прогоны шага 1 будут обозначены как «i - j».

Таким образом, используя массивы ранее, мы получаем:

  • [1,2,3] -> "1to3"

  • [1,3,5,7] -> "1to7by2"

  • [1,2,4,5] -> "1 2 4 5"

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

Пример кода Python с рекурсией:

def arr_comp_rec(a, start_index):
    # Early exit and recursion end point
    if start_index == len(a)-1:
        return str(a[-1])
    elif start_index == len(a):
        return ''

    # Keep track of first delta to compare while searching
    first_delta = a[start_index+1] - a[start_index]
    last = True
    for i in range(start_index, len(a)-1):
        delta = a[i+1] - a[i]
        if delta != first_delta:
            last = False
            break
    # If it ran through the for loop, we need to make sure it gets the last value
    if last: i += 1

    if i - start_index > 1:
        # There is more than 2 numbers between the indexes
        if first_delta == 1:
            # We don't need by if step = 1
            return "{}to{} ".format(a[start_index], a[i]) + arr_comp_rec(a, i+1)
        else:
            return "{}to{}by{} ".format(a[start_index], a[i], first_delta) + arr_comp_rec(a, i+1)
    else:
        # There is only one number we can return
        return "{} ".format(a[start_index]) + arr_comp_rec(a, i)

IO гибкий

вход

Массив отсортированных положительных целых (без дубликатов)

Выход

Строка прогонов, разделенных пробелом, или массив строк прогонов

Не нужно быть жадным в определенном направлении

Может иметь пробел в конце

Тестовые случаи

In: [1000, 1002, 1004, 1006, 1008, 1010]
Out: "1000to1010by2"

In: [1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233]
Out: "1to3 5 8 13 21 34 55 89 144 233"

In: [10, 20, 30, 40, 60]
Out: "10to40by10 60"

In: [5, 6, 8, 11, 15, 16, 17]
Out: "5 6 8 11 15to17"

In: [1, 2, 3, 4, 5, 6, 7, 9, 11, 13, 15, 30, 45, 50, 60, 70, 80, 90, 91, 93]
Out: "1to7 9to15by2 30 45 50to90by10 91 93"

Это поэтому выигрывает наименьшее количество байтов.

WretchedLout
источник
1
связанные
Луис Фелипе Де Иисус Муньос
2
Должно ли это быть жадным слева направо? (т.е. [4, 5, 6, 7, 9, 11, 13, 15]не может быть 4to6 7to15by2?)
Джонатан Аллан
1
@JonathanAllan Нет, его не обязательно оставлять жадным.
WretchedLout
Я полагаю, не будет повторяющихся записей?
Шиеру Асакото
1
Только положительные целые числа. @ Οurous Трейлинг-пробел приемлемый.
WretchedLout

Ответы:

5

Желе ,  42  40 байт

-2 благодаря Кевину Круйссену (отфильтровывать двойки ḟ2, а не заменять двойки нулями 2,0y)

ŒṖIE×LƲ€ḟ2SƊÞṪµ.ịU,Iḟ1ƊQ€Fż“to“by”ṁṖƊ$)K

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

Попробуйте онлайн!
(Слишком неэффективно, чтобы выполнить самый большой тестовый пример в течение 60 секунд, поэтому я удалил[1,2,3,4].)

Как?

ŒṖIE×LƲ€ḟ2SƊÞṪµ.ịU,Iḟ1ƊQ€Fż“to“by”ṁṖƊ$)K - Main Link: list of numbers
ŒṖ                                       - all partitions
           ƊÞ                            - sort by last three links as a monad:
      Ʋ€                                 -   last four links as a monad for €ach:
  I                                      -     incremental differences (of the part)
   E                                     -     all equal?
     L                                   -     length (of the part)
    ×                                    -     multiply
        ḟ2                               -   filter discard twos
          S                              -   sum
             Ṫ                           - tail (gets us the desired partition of the input)
              µ                       )  - perform this monadic chain for €ach:
               .                         -   literal 0.5
                ị                        -   index into (the part) - getting [tail,head]
                 U                       -   upend - getting [head,tail]
                      Ɗ                  -   last three links as a monad:
                   I                     -     incremental differences (of the part)
                     1                   -     literal one
                    ḟ                    -     filter discard (remove the ones)
                  ,                      -   pair -> [[head,tail],[deltasWithoutOnes]]
                       Q€                -   de-duplicate €ach -> [[head,tail],[delta]] or [[head,tail],[]] or [[loneValue],[]]
                         F               -   flatten -> [head,tail,delta] or [head,tail] or [loneValue]
                                     $   -   last two links as a monad:
                                    Ɗ    -     last three links as a monad:
                           “to“by”       -       literal list [['t', 'o'], ['b', 'y']]
                                   Ṗ     -       pop (get flattened result without rightmost entry)
                                  ṁ      -       mould ["to","by"] like that (i.e. ["to","by"] or ["to"] or [])
                         ż               -     zip together      
                                       K - join with spaces
                                         - implicit print
Джонатан Аллан
источник
'by' не должен использоваться, если step = 1
WretchedLout
ой Gawwwd: p Спасибо за хедз-ап!
Джонатан Аллан
2,0ySƲÞможно сыграть в гольф ḟ2SƊÞна -2 байта.
Кевин Круйссен
@KevinCruijssen очень верно, хороший гольф, спасибо
Джонатан Аллан
1
@KevinCruijssen К вашему сведению, я помню, почему это было там сейчас - изначально я пытался выполнить сортировку по продукту P, а не по сумме, Sи мне понадобились бы нули.
Джонатан Аллан
6

Swift, 246 байт

func f(_ a:[Int]){
var c=a.count,m=a+a,z=0,r:String=""
for i in 1..<c{m[i]-=a[i-1];if m[i]==m[i-1]{m[i-1]=0}};m[0]=1
for i in 0..<c{if m[i]==0 {z=1}else if z==0{r+=" \(a[i])"}else{r+="to\(a[i])"+(m[i]>1 ? "by\(m[i])":"");z=0;m[i+1]=1}}
print(r)
}

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

drawnonward
источник
4
Добро пожаловать в Программирование Пазлов и Code Golf! Очень хороший первый ответ. Я надеюсь, что вы останетесь, потому что сообщество Swift здесь ... очень маленькое!
Мистер Кскодер
3

JavaScript (ES6), 129 байт

Возвращает массив строк.

a=>(a.map((n,i)=>n+[n-a[i+1]||''])+'').replace(/(\d+)(-\d+)(?:,\d+\2)+,(\d+)/g,(_,a,b,c)=>a+'to'+(~b?c+'by'+-b:c)).split(/-\d+,/)

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

Как?

Шаг 1

Сначала мы добавляем к каждому номеру суффикс, состоящий из '-'начального числа, за которым следует разница со следующим номером, за исключением последней записи, которая остается неизменной. Этот новый массив приведен к строке.

(a.map((n, i) => n + [n - a[i + 1] || '']) + '')

Пример:

Input : [ 1, 2, 3, 5, 9, 11, 13, 20 ]
Output: "1-1,2-1,3-2,5-4,9-2,11-2,13-7,20"

Шаг 2

Мы идентифицируем все прогоны в результирующей строке и заменяем их соответствующими обозначениями.

.replace(
  /(\d+)(-\d+)(?:,\d+\2)+,(\d+)/g,
  (_, a, b, c) => a + 'to' + (~b ? c + 'by' + -b : c)
)

Пример:

Input : "1-1,2-1,3-2,5-4,9-2,11-2,13-7,20"
Output: "1to3-2,5-4,9to13by2-7,20"

Шаг 3

Наконец, мы разбиваем строку на оставшиеся суффиксы, включая запятые.

.split(/-\d+,/)

Пример:

Input : "1to3-2,5-4,9to13by2-7,20"
Output: [ '1to3', '5', '9to13by2', '20' ]
Arnauld
источник
2

Рубин , 125 118 байт

->a{i=y=0;a.chunk{|x|-y+y=x}.map{|z,w|2-i<(s=w.size)?"#{w[i*s]}to#{w[~i=0]}"+"by#{z}"*(z<=>1)+' ':' '*i+w*' '*i=1}*''}

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

объяснение

В Ruby's Enumerable есть полезный chunkметод, который делает именно то, что нам нужно - он группирует элементы по последовательным прогонам одного и того же возвращаемого значения из блока, в нашем случае - разницы между значением current ( x) и previous ( y).

Предостережение заключается в том, что такая стратегия не будет захватывать первый элемент цикла, например, здесь сгруппированы только два последних элемента:

Input: [5, 6, 8, 11, 15, 16, 17]
Grouped: [[5, [5]], [1, [6]], [2, [8]], [3, [11]], [4, [15]], [1, [16, 17]]]

Следовательно, при отображении в правильно отформатированные строки, когда мы сталкиваемся с новым потенциальным прогоном (чанк с> 1 элементом), мы должны отслеживать, был ли предыдущий элемент единственным ( i=1) или уже использовался в другом запуске ( i=0). Если есть неиспользуемый отдельный элемент, он становится отправной точкой цикла и снижает порог размера куска с 3 до 2.

Кирилл Л.
источник
2

R , 180 175 байт

r=rle(c(0,diff(a<-scan())));for(j in 1:sum(1|r$l)){l=r$l[j];v=r$v[j];i=T+l-1;cat("if"(l>2-F,paste0(a[T][!F],"to",a[i],"by"[v>1],v[v>1]," "),c("",a[T:i])[-3^F]));T=i+1;F=l<3-F}

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

Концептуально это порт моего ответа Ruby , хотя технически он явно немного другой.

5 байтов сохранены JayCe.

Кирилл Л.
источник
Я хотел, чтобы что-то с, rleно было слишком ленивым ... вы можете сэкономить 1 байт, делая sum(1|x)вместо length(x): TIO
Jayce
На самом деле вы можете иметь только 1 cat на 175 байтов: TIO
Jayce
Ах, отлично, спасибо!
Кирилл Л.
2

R , 238 217 байт

Спасибо @digEmAll за -19 байт.

function(v,R=rle(diff(v)),L=R$l,S=sum(L|1),Y=0)if(!S)cat(v)else for(i in 1:S){D=R$v[i]
N=L[i]-F
if(N>1){N=N+1
cat(v[Y+1],'to',v[Y+N],'by'[D>1],D[D>1],' ',sep='')
F=1}else{N=N+(i==S)
if(N>0)cat(v[Y+1:N],'')
F=0}
Y=Y+N}

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

j.doe
источник
используйте Fвместо того, nкак он уже инициализирован 0, что должно сэкономить несколько байтов, я думаю.
Джузеппе
Этот расстраивает. Ты почти у цели, просто используя split, diffи rle. К сожалению, жадный поиск прогонов требует много хлопот.
Дж. Доу
214 байт Почти там, единственная проблема - иногда
неправильный
Это 'by'[D>1]хороший трюк.
Дж. Доу
Кажется, что это работает нормально 217 байт
digEmAll
1

Python 2 , 170 166 байт

def f(a):
 j=len(a)
 while j>2:
	l,r=a[:j:j-1];s=(r-l)/~-j
	if a[:j]==range(l,r+1,s):return[`l`+'to%d'%r+'by%d'%s*(s>1)]+f(a[j:])
	j-=1
 return a and[`a[0]`]+f(a[1:])

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

TFeld
источник
Я не уверен, допустим ли этот формат вывода; Все трассы должны быть строками, не так ли?
Эрик Outgolfer
@EriktheOutgolfer Исправлено
TFeld
1

гвм (совершить 2612106байт-код ), 108 байт

Ожидается размер массива в одной строке, затем каждый член в одной строке.

HexDump:

> hexdump -C findruns.bin
00000000  e1 0a 00 10 00 e1 0b 00  ff c8 92 00 f4 f7 10 00  |................|
00000010  01 b0 20 03 00 ff 0a 01  a2 01 c8 92 00 f4 01 c0  |.. .............|
00000020  03 00 ff 0a 02 d0 72 01  0a 03 c8 92 00 f4 05 b0  |......r.........|
00000030  20 a2 02 c0 02 02 6a 03  8b 00 ff f6 06 b0 20 a2  | .....j....... .|
00000040  02 f4 ce 0a 02 c8 92 00  f6 07 6a 03 8b 00 ff f6  |..........j.....|
00000050  f2 b9 66 01 a2 02 00 01  8a 03 f6 05 b9 69 01 a2  |..f..........i..|
00000060  03 92 00 f4 ac c0 74 6f  00 62 79 00              |......to.by.|
0000006c

Тестовые прогоны:

> echo -e "7\n5\n6\n8\n11\n15\n16\n17\n" | ./gvm findruns.bin
5 6 8 11 15to17
> echo -e "20\n1\n2\n3\n4\n5\n6\n7\n9\n11\n13\n15\n30\n45\n50\n60\n70\n80\n90\n91\n93\n" | ./gvm findruns.bin
1to7 9to15by2 30 45 50to90by10 91 93

Собранный вручную из этого:

0100  e1        rud                     ; read length of array
0101  0a 00     sta     $00             ; -> to $00
0103  10 00     ldx     #$00            ; loop counter
                  readloop:
0105  e1        rud                     ; read unsigned number
0106  0b 00 ff  sta     $ff00,x         ; store in array at ff00
0109  c8        inx                     ; next index
010a  92 00     cpx     $00             ; length reached?
010c  f4 f7     bne     readloop        ; no -> read next number
010e  10 00     ldx     #$00            ; loop counter
0110  01                                ; 'lda $20b0', to skip next instruction
                  runloop:
0111  b0 20     wch     #' '            ; write space character
0113  03 00 ff  lda     $ff00,x         ; load next number from array
0116  0a 01     sta     $01             ; -> to $01
0118  a2 01     wud     $01             ; and output
011a  c8        inx                     ; next index
011b  92 00     cpx     $00             ; length reached?
011d  f4 01     bne     compare         ; if not calculate difference
011f  c0        hlt                     ; done
                  compare:
0120  03 00 ff  lda     $ff00,x         ; load next number from array
0123  0a 02     sta     $02             ; -> to $01
0125  d0        sec                     ; calculate ...
0126  72 01     sbc     $01             ; ... difference ...
0128  0a 03     sta     $03             ; ... to $03
012a  c8        inx                     ; next index
012b  92 00     cpx     $00             ; length reached?
012d  f4 05     bne     checkrun        ; if not check whether we have a run
012f  b0 20     wch     #' '            ; output space
0131  a2 02     wud     $02             ; output number
0133  c0        hlt                     ; done
                  checkrun:
0134  02 02     lda     $02             ; calculate next ...
0136  6a 03     adc     $03             ; ... expected number in run
0138  8b 00 ff  cmp     $ff00,x         ; compare with real next number
013b  f6 06     beq     haverun         ; ok -> found a run
013d  b0 20     wch     #' '            ; otherwise output space ...
013f  a2 02     wud     $02             ; ... and number
0141  f4 ce     bne     runloop         ; and repeat searching for runs
                  haverun:
0143  0a 02     sta     $02             ; store number to $02
0145  c8        inx                     ; next index
0146  92 00     cpx     $00             ; length reached?
0148  f6 07     beq     outputrun       ; yes -> output this run
014a  6a 03     adc     $03             ; calculate next expected number
014c  8b 00 ff  cmp     $ff00,x         ; compare with real next number
014f  f6 f2     beq     haverun         ; ok -> continue parsing run
                  outputrun:
0151  b9 66 01  wtx     str_to          ; write "to"
0154  a2 02     wud     $02             ; write end number of run
0156  00 01     lda     #$01            ; compare #1 with ...
0158  8a 03     cmp     $03             ; ... step size
015a  f6 05     beq     skip_by         ; equal, then skip output of "by"
015c  b9 69 01  wtx     str_by          ; output "by"
015f  a2 03     wud     $03             ; output step size
                  skip_by:
0161  92 00     cpx     $00             ; length of array reached?
0163  f4 ac     bne     runloop         ; no -> repeat searching for runs
0165  c0        hlt                     ; done
                  str_to:
0166  74 6f 00                          ; "to"
                  str_by:
0169  62 79 00                          ; "by"
016c
Феликс Палмен
источник
1

05AB1E (наследие) , 49 50 байтов

.œʒε¥Ë}P}Σ€g2KO>}¤εD©g≠i¬s¤„toý¬®¥0èDU≠i„byX««]˜ðý

Слишком долго, но я уже рад, что это работает. Эта задача намного сложнее, чем кажется на первый взгляд. Без сомнения, можно играть в гольф дальше.
Σ€g2KO>}¤порт ответа2,0ySƲÞṪ от JJ @athonanAllan 's Jelly (спасибо!).

Попробуйте онлайн.(ПРИМЕЧАНИЕ. Время ожидания для больших тестовых случаев.)

+1 байт как исправление ошибки, потому что 0при сортировке всегда ставится на конечную позицию.

Объяснение:

                       # Get all partions of the (implicit) input-list
                         #  i.e. [1,2,3,11,18,20,22,24,32,33,34]
                         #   → [[[1],[2],[3],[11],[18],[20],[22],[24],[32],[33],[34]],
                         #      [[1],[2],[3],[11],[18],[20],[22],[24],[32],[33,34]],
                         #      [[1],[2],[3],[11],[18],[20],[22],[24],[32,33],[34]],
                         #      ...]
  ʒ     }                # Filter this list by:
   ε  }                  #  Map the current sub-list by:
    ¥Ë                   #   Take the deltas, and check if all are equal
                         #    i.e. [1,2,3] → [1,1] → 1
                         #    i.e. [1,2,3,11] → [1,1,8] → 0
       P                 #  Check if all sub-list have equal deltas
  Σ      }               # Now that we've filtered the list, sort it by:
   g                    #  Take the length of each sub-list
                         #   i.e. [[1,2,3],[11,18],[20,22,24],[32,33],[34]]
                         #    → [3,2,3,2,1]
                         #   i.e. [[1,2,3],[11],[18,20,22,24],[32,33,34]]
                         #    → [3,1,4,3]
     2K                  #  Remove all 2s
                         #   i.e. [3,2,3,2,1] → ['3','3','1']
       O                 #  And take the sum
                         #   i.e. ['3','3','1'] → 7
                         #   i.e. [3,1,4,3] → 11
        >                #  And increase the sum by 1 (0 is always trailing when sorting)
          ¤              # And then take the last item of this sorted list
                         #  i.e. for input [1,2,3,11,18,20,22,24,32,33,34]
                         #   → [[1,2,3],[11],[18,20,22,24],[32,33,34]]
  ε                      # Now map each of the sub-lists to:
   D©                    #  Save the current sub-list in the register
     gi                 #  If its length is not 1:
                         #    i.e. [11] → 1 → 0 (falsey)
                         #    i.e. [18,20,22,24] → 4 → 1 (truthy)
        ¬s¤              #   Take the head and tail of the sub-list
                         #    i.e. [18,20,22,24] → 18 and 24
           toý          #   And join them with "to"
                         #    i.e. 18 and 24 → ['18to24', '18to20to22to24']
               ¬         #   (head to remove some access waste we no longer need)
                         #    i.e. ['18to24', '18to20to22to24'] → '18to24'
        ®                #   Get the sub-list from the register again
         ¥               #   Take its deltas
                         #    i.e. [18,20,22,24] → [2,2,2]
          0è             #   Get the first item (should all be the same delta)
                         #    i.e. [2,2,2] → 2
            DU           #   Save it in variable `X`
              i         #   If the delta is not 1:
                         #     i.e. 2 → 1 (truthy)
                byX«    #    Merge "by" with `X`
                         #     i.e. 2 → 'by2'
                     «   #    And merge it with the earlier "#to#"
                         #     i.e. '18to24' and 'by2' → '18to24by2'
                      ]  # Close the mapping and both if-statements
˜                        # Flatten the list
                         #  i.e. ['1to3',[11],'18to24by2','32to34']
                         #   → ['1to3',11,'18to24by2','32to34']
 ðý                      # And join by spaces (which we implicitly output as result)
                         #  i.e. ['1to3',11,'18to24by2','32to34']
                         #   → '1to3 11 18to24by2 32to34'
Кевин Круйссен
источник
0

Perl 5 , 154 байта

{my(@r,$r);@r&&(@$r<2||$$r[1]-$$r[0]==$_-$$r[-1])?push@$r,$_:push@r,$r=[$_]for@_;join" ",map@$_<3?@$_:("$$_[0]to$$_[-1]by".($$_[1]-$$_[0]))=~s/by1$//r,@r}

То же самое с пробелами, переводом строки, #comments и sub by:

sub by {
  my(@r,$r);
  @r &&                               # if at least one run candidate exists and...
   ( @$r<2                            # ...just one elem so far
     || $$r[1]-$$r[0] == $_-$$r[-1] ) # ...or diff is same
    ? push @$r, $_                    # then add elem to curr. run candidate
    : push @r, $r=[$_]                # else start new run cand. with curr elem
        for @_;
  join " ",
    map @$_<3                                         # is it a run?
    ? @$_                                             # no, just output the numbers
    : ("$$_[0]to$$_[-1]by".($$_[1]-$$_[0]))=~s/by1$//r, # yes, make run, delete by1
    @r                                                # loop run candidates
}

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

... для прохождения испытаний от ОП.

Кжетил С.
источник
0

Сетчатка 0.8.2 , 77 байт

\d+
$*
(1+)(?= \1(1+))
$1:$2
1:(1+) (1+:\1 )+(1+)
1to$3by$1
:1+|by1\b

1+
$.&

Попробуйте онлайн! Ссылка включает в себя тестовые случаи. Объяснение:

\d+
$*

Преобразовать в одинарный.

(1+)(?= \1(1+))
$1:$2

Вычислить последовательные различия.

1:(1+) (1+:\1 )+(1+)
1to$3by$1

Конвертировать работает в to...byсинтаксис.

:1+|by1\b

Удалить неконвертированные различия и by1.

1+
$.&

Преобразовать в десятичную.

Нил
источник