Пол - один із ваших бельгійських знайомих, і він хотів би, щоб ви створили програму, яка виводить принаймні одну з наступних п'яти рядків :

12496=>14288=>15472=>14536=>14264

14264=>12496=>14288=>15472=>14536

14536=>14264=>12496=>14288=>15472

15472=>14536=>14264=>12496=>14288

14288=>15472=>14536=>14264=>12496

Він представляє друзів, якими він найбільше пишається, і він хотів би поїсти з ними. Пол також вважає, що число 6 є ідеальним, і це єдине число, яке варто використовувати. Таким чином, ви не можете використовувати будь-яку іншу цифру, ніж "6" у своєму коді (від 0 до 5 та 7 до 9 заборонено). Ваша програма не може приймати будь-які дані. Вихід може містити сміття до та / або після рядка, але повинен містити принаймні один з вищезазначених рядків.

Наприклад, це дійсний вихід:

220frefze
f**14288=>15472=>14536=>14264=>12496**fczfe fz**15472=>14536=>14264=>12496=>14288**zfe
fzehth

Я "ligthly" натякнув у питанні, як я очікую, що це буде вирішено, але як знаю? Можливо, є кращий спосіб ... Сподіваюся, вам весело.

Це код-гольф: найнижчий бал у виграші байтів.

05AB1E , 18 17 байт

•w[•Y·FDѨO})„=>ý

Спробуйте в Інтернеті!

Пояснення

•w[•                # base 214 encoding of 12496
    Y·F             # loop 2*2 times
       D            # duplicate top of stack
        Ñ           # push divisors
         ¨          # remove the last element (itself)
          O         # sum
           }        # end loop
            )       # wrap in list
             „=>ý   # join list on "=>"

Коротше кажучи, ми обчислюємо кожне число як f(n+1) = sum(divisors(f(n)) - f(n)

Пайк, 16 байт

wヰw$VDlsh)J"=>

Спробуйте тут!

wヰ             -  12496
  w$            -   4
    V    )      -  repeat ^:
     D          -   duplicate(^)
      l         -     factors(^)
       s        -    sum(^)
        h       -   ^ + 1
          J     - v.join(^)
           "=>  -  "=>"

Кожен раз, коли рядковий літерал знаходиться в кінці програми, він заміняє його маркером безпосередньо перед ним, економлячи 1 байт у таких випадках. factorsФункція Pyke не включає в себе ні число, ні 1. Якщо числа було дозволено, 1 байт можна зберегти, замінивши w$на4

Пайк, 21 байт

uバ㟐㱰㣈㞸J"=>

Спробуйте тут!

Створіть список необхідних номерів та приєднайтесь до них. Не дуже цікавий крім трюку з струнами.

MATLAB, 44 байти

['','=>@EBIJ=@>DDIJ=A@C>IJ=@A?BIJ=@>B@'-6-6]

Спробуйте в Інтернеті!

Я не знайшов схему в цифрах (і було б важко використовувати шаблон ні до чого, оскільки я не можу використовувати цифри), тому я просто піду на наївний підхід.

'=>@EBIJ=@>DDIJ=A@C>IJ=@A?BIJ=@>B@'- рядок, '12496=>14288=>15472=>14536=>14264'коли до значень ASCII додано 12. Тепер введіть цей рядок, відніміть 6+6і з'єднайте з порожнім рядком, ''щоб перетворити його в масив символів.

JavaScript (ES6), 57 байт / 47 (UTF-8) символів

Завдяки користувачеві5090812 за 10 B збережіть

_=>[...'バ㟐㱰㣈㞸'].map(a=>a.charCodeAt()).join`=>`

Пояснення

Спочатку ми створюємо масив і заповнюємо його символами в рядку バ㟐㱰㣈㞸 . Потім переводимо цикл на рядок ( aмає значення поточного елемента) і змінюємо символ у його код символу. Потім ми приєднуємо всі значення в масиві на=> .

Старий: 67 байт

_=>[6,6,6,6,6].map((_,a)=>`バ㟐㱰㣈㞸`.charCodeAt(a)).join`=>`

Пояснення

Спочатку ми створюємо масив довжиною 5. Потім ми змінюємо значення масиву в кожному індексі для коду символу символу на той самий індекс у рядку バ㟐㱰㣈㞸 , який є порядком усіх друзів Павла. Коли ми це отримаємо, ми приєднуємось до масиву разом і використовуємо =>як роздільник.

Використання

Для його використання просто запустіть це:

f=_=>[...'バ㟐㱰㣈㞸'].map(a=>a.charCodeAt()).join`=>`;alert(f())

Вихідні дані

12496=>14288=>15472=>14536=>14264

Ruby, 36 байт (26 символів)

p"バ㟐㱰㣈㞸".unpack("U*")*"=>"

Бо чому б і ні. Нудно, як пекло.

старша версія - 53 байти

p %w(jol mld oim n6b mke).map{|x|x.to_i ~-6*~-6}*'=>'

Пояснення: кодування чисел у базі 25 дає 5 шести вільних рядків, для їх розшифровки я повинен лише представляти число 25, використовуючи лише 6: (6-1) (6-1) => ~ -6 ~ -6

Perl 6 , 63 59 байт

{$/=6;$/--;join "=>",<JOL MLD OIM N6B MKE>».parse-base($/*$/)}

{join "=>",<JOL MLD OIM N6B MKE>».parse-base(--($_=6)*$_)}

Розшифровує числа з бази 25, оскільки це єдина база, підтримувана .parse-base(2 до 36), де жодна з них не має недійсних цифр.

Завдяки Нілу за -3 байти.

Perl 6 , 82 75 байт

{my \a="BXS".parse-base(6*6);join "=>",(a,{sum grep $_%%*,^$_}...^{$_==a if $++})}

{my \a="BXS".parse-base(6*6);join "=>",({$/=$_//a;sum grep $/%%*,^$/}...a)}

Розшифровує число 15472в базі 36, а потім формує послідовність, обчислюючи кожне число як суму правильних дільників попереднього числа.

Perl 6 , 69 байт (47 символів) - неконкурентоспроможний

{"{١٢۴۹6}=>{١۴۲۸۸}=>{١۵۴۷۲}=>{١۴۵۳6}=>{١۴۲6۴}"}

Не використовує жодної із заборонених цифр ASCII, використовує натомість цифри Unicode з арабсько-індійського блоку (2 байти кожен)! The{ } струнної інтерполяції переконайтеся , що вони розбираються як Perl 6 числових літерали, а потім рядкові їх ASCII - уявлення.

Гаразд, це обман - тому я не використовував це як свою основну відповідь ... :)

Желе , 5 4 байти

ȷṗȷỌ

Друкує всі п’ять рядків. Користується тим, що "сміття" дозволено і поховає п'ять рядків у 10 ³⁰⁰³ символів виводу.

Як це працює

ȷṗȷỌ  Main link. No arguments.

ȷ     Set the return value to 1000.
 ṗȷ   Cartesian power; form all arrays of length 1000 that consist of integers in
      [1, ..., 1000].
   Ọ  Unordinal; convert all integers to characters.

С, 94 84 77 байт

Стеопід простий. Особлива подяка @Neil

g(){char*m="!mnpuryzmpnttyzmqpsnyzmpqoryzmpnrp";for(;*++m;)putchar(*m-66+6);}

f () {printf ("% d =>% d =>% d =>% d =>% d", '~' 'r' - 'd', '~' 'd' - 'h', ' ~ ' ' r '-' L ',' ~ ' ' z '+' d ',' ~ '*' t '-' P ');}

PHP, 73 63 60 байт

for(;$c="|`*X6H-$*@"[$i];)echo!!$i&++$i?"=>".!!6:"",ord($c);

Бігайте з -nr.

трохи менше ліниві: взяли рядок в списку , =>1(ascii)(ascii)
тобто .: 124, 96, =>1, 42, 88, =>1, 54,72 , =>1, 45, 36, =>1, 42, 64;
друк =>1за рядковим індексом, додавання коду ascii

зламатися

            # loop through string with index $i
for(;$c="|`*X6H-$*@"[$i];)echo
            # string ascii values: 124,96,42,88,54,72,45,36,42,64
    !!$i        # true if $i>0
    &++$i       # odd if (old) $i is 0,2,4,6,8
                # -> true for 2,4,6,8
        ?"=>".!!6   # if true, print "=>1"
        :"",        # else print nothing
    ord($c);    # print ascii value

C ++, 92 байти

#include <cstdio>
int main(){for(char c:"UVX]ZabUXV\\abUYX[VabUXYWZabUXVZX")putchar(c-6*6);}

PHP, 53 байти

<?=join('=>',unpack('v*',gzinflate('�`p������s')));

Шістнадцятковий дамп:

00000000: 3c3f 3d6a 6f69 6e28 273d 3e27 2c75 6e70  <?=join('=>',unp
00000010: 6163 6b28 2776 2a27 2c67 7a69 6e66 6c61  ack('v*',gzinfla
00000020: 7465 2827 bb60 70c1 bcc0 e684 c50e 7300  te('.`p.......s.
00000030: 2729 2929 3b                             ')));

Вихід:

12496=>14288=>15472=>14536=>14264

Пояснення:

Кожен з п'ятизначних цілих розділів кодується як ненаписаний короткий маленький ендіан, потім з'єднується разом і результат gzipped. Це трапляється для отримання байтової пари, яка не має символів, що порушують цифру, а потім жорстко закодована в рядок. Щоб витягнути, відстебніть потік, розпакуйте двобайтові шорти, інтерпретуйте їх як рядок та з'єднайтеся >=.

Java 8, 134 байти

Гольф:

()->{String s="";for(String a:new String[]{"JOL","MLD","OIM","N6B","MKE"}){if(!s.isEmpty())s+=("=>");s+=Long.valueOf(a,25);}return s;}

Безголовка, повна програма:

import java.util.function.*;

public class FindFiveFriendsToEatChickenWithPaul {

  public static void main(String[] args) {
    System.out.println(toString(() -> {
      String s = "";
      for (String a : new String[] { "JOL", "MLD", "OIM", "N6B", "MKE" }) {
        if (!s.isEmpty()) s += ("=>");
        s += Long.valueOf(a, 25);
      }
      return s;
    }));

  }

  private static String toString(Supplier<String> s) {
    return s.get();
  }

}

Пакет, 191 байт

@set/as=n=66*(66+66+66+6*6)+66/6+66/6+6,u=6/6
@call:t
@call:t
@echo %s: ==^>%
@exit/b
:t
@call:c
:c
@for /l %%i in (%u%,%u%,%n%)do @set/an-=%%i*!(%n%%%%%i)
@set/an=-n
@set s=%s% %n%

Я вважаю, що для обчислення кожного числа знадобиться як мінімум 32 байти, використовуючи лише 6s плюс ще 32, щоб вивести їх все, що вже складає 192 байти, тому я виграю, обчислюючи дружній ланцюжок. Крім того, я думаю, п'ять %s поспіль - це рекорд для мене. Крім того, чіткий фокус Batch: %n%підстановка перед forоцінкою циклу підміняється , тому цикл обчислює всі чинники nта віднімає їх n, тим самим призводячи до заперечення бажаного результату.

Желе , 12 байт

“<ọ’ÆṣÐĿj“=>

Друкує четвертий рядок і більше нічого.

Спробуйте в Інтернеті!

Як це працює

“<ọ’ÆṣÐĿj“=>  Main link. No arguments.

“<ọ’          Yield the 1-based indices of '<' and 'ọ' in Jelly's code page, i.e.,
              [61, 222], and convert the array from base 250 to integer.
              This yields 15472.
      ÐĿ      Iteratively call the link to the left until the results are no longer
              unique and return the array of all unique results.
    Æṣ        Compute the proper digit sum of the previous value (initially 15472).
        j“=>  Join, separating by the string "=>".

Python 2, 78 72 байти

print''.join(chr(ord(x)-6-6)for x in'=@>DDIJ=A@C>IJ=@A?BIJ=@>B@IJ=>@EB')

Редагувати - Завдяки Стюі Гріффін за збереження 6 байт!

Також іншим рішенням було б вивести всі можливі перестановки. ОП каже, що сміття добре.

from itertools import permutations
print str(list(permutations(''.join(str(x)+'.'for x in range(int('9'*5)).replace(',','').replace('\'','') 
# also 9 and 5 need to be converted using ord and chr

Занадто багато надмірності в перетворенні з intабо listв str. Я думаю, що це було б простіше в деяких езотеричних мовах, але я не знаю жодної з них.