Виведіть номер Грема

16

Напишіть програму, яка виводить усі 64 шари цього представлення числа Грема з Вікіпедії:

  Номер Грема

Вихід повинен точно відповідати цій версії ASCII (в якій ^представлені стрілки вгору Knuth та комбінації косої риси та підкреслення представляють великі горизонтальні фігурні дужки):

3^^...............................................................................................................................^3
 \_______________________________________________________________  _______________________________________________________________/
                                                                 \/
 3^^.............................................................................................................................^3
  \______________________________________________________________  ______________________________________________________________/
                                                                 \/
  3^^...........................................................................................................................^3
   \_____________________________________________________________  _____________________________________________________________/
                                                                 \/
   3^^.........................................................................................................................^3
    \____________________________________________________________  ____________________________________________________________/
                                                                 \/
    3^^.......................................................................................................................^3
     \___________________________________________________________  ___________________________________________________________/
                                                                 \/
     3^^.....................................................................................................................^3
      \__________________________________________________________  __________________________________________________________/
                                                                 \/
      3^^...................................................................................................................^3
       \_________________________________________________________  _________________________________________________________/
                                                                 \/
       3^^.................................................................................................................^3
        \________________________________________________________  ________________________________________________________/
                                                                 \/
        3^^...............................................................................................................^3
         \_______________________________________________________  _______________________________________________________/
                                                                 \/
         3^^.............................................................................................................^3
          \______________________________________________________  ______________________________________________________/
                                                                 \/
          3^^...........................................................................................................^3
           \_____________________________________________________  _____________________________________________________/
                                                                 \/
           3^^.........................................................................................................^3
            \____________________________________________________  ____________________________________________________/
                                                                 \/
            3^^.......................................................................................................^3
             \___________________________________________________  ___________________________________________________/
                                                                 \/
             3^^.....................................................................................................^3
              \__________________________________________________  __________________________________________________/
                                                                 \/
              3^^...................................................................................................^3
               \_________________________________________________  _________________________________________________/
                                                                 \/
               3^^.................................................................................................^3
                \________________________________________________  ________________________________________________/
                                                                 \/
                3^^...............................................................................................^3
                 \_______________________________________________  _______________________________________________/
                                                                 \/
                 3^^.............................................................................................^3
                  \______________________________________________  ______________________________________________/
                                                                 \/
                  3^^...........................................................................................^3
                   \_____________________________________________  _____________________________________________/
                                                                 \/
                   3^^.........................................................................................^3
                    \____________________________________________  ____________________________________________/
                                                                 \/
                    3^^.......................................................................................^3
                     \___________________________________________  ___________________________________________/
                                                                 \/
                     3^^.....................................................................................^3
                      \__________________________________________  __________________________________________/
                                                                 \/
                      3^^...................................................................................^3
                       \_________________________________________  _________________________________________/
                                                                 \/
                       3^^.................................................................................^3
                        \________________________________________  ________________________________________/
                                                                 \/
                        3^^...............................................................................^3
                         \_______________________________________  _______________________________________/
                                                                 \/
                         3^^.............................................................................^3
                          \______________________________________  ______________________________________/
                                                                 \/
                          3^^...........................................................................^3
                           \_____________________________________  _____________________________________/
                                                                 \/
                           3^^.........................................................................^3
                            \____________________________________  ____________________________________/
                                                                 \/
                            3^^.......................................................................^3
                             \___________________________________  ___________________________________/
                                                                 \/
                             3^^.....................................................................^3
                              \__________________________________  __________________________________/
                                                                 \/
                              3^^...................................................................^3
                               \_________________________________  _________________________________/
                                                                 \/
                               3^^.................................................................^3
                                \________________________________  ________________________________/
                                                                 \/
                                3^^...............................................................^3
                                 \_______________________________  _______________________________/
                                                                 \/
                                 3^^.............................................................^3
                                  \______________________________  ______________________________/
                                                                 \/
                                  3^^...........................................................^3
                                   \_____________________________  _____________________________/
                                                                 \/
                                   3^^.........................................................^3
                                    \____________________________  ____________________________/
                                                                 \/
                                    3^^.......................................................^3
                                     \___________________________  ___________________________/
                                                                 \/
                                     3^^.....................................................^3
                                      \__________________________  __________________________/
                                                                 \/
                                      3^^...................................................^3
                                       \_________________________  _________________________/
                                                                 \/
                                       3^^.................................................^3
                                        \________________________  ________________________/
                                                                 \/
                                        3^^...............................................^3
                                         \_______________________  _______________________/
                                                                 \/
                                         3^^.............................................^3
                                          \______________________  ______________________/
                                                                 \/
                                          3^^...........................................^3
                                           \_____________________  _____________________/
                                                                 \/
                                           3^^.........................................^3
                                            \____________________  ____________________/
                                                                 \/
                                            3^^.......................................^3
                                             \___________________  ___________________/
                                                                 \/
                                             3^^.....................................^3
                                              \__________________  __________________/
                                                                 \/
                                              3^^...................................^3
                                               \_________________  _________________/
                                                                 \/
                                               3^^.................................^3
                                                \________________  ________________/
                                                                 \/
                                                3^^...............................^3
                                                 \_______________  _______________/
                                                                 \/
                                                 3^^.............................^3
                                                  \______________  ______________/
                                                                 \/
                                                  3^^...........................^3
                                                   \_____________  _____________/
                                                                 \/
                                                   3^^.........................^3
                                                    \____________  ____________/
                                                                 \/
                                                    3^^.......................^3
                                                     \___________  ___________/
                                                                 \/
                                                     3^^.....................^3
                                                      \__________  __________/
                                                                 \/
                                                      3^^...................^3
                                                       \_________  _________/
                                                                 \/
                                                       3^^.................^3
                                                        \________  ________/
                                                                 \/
                                                        3^^...............^3
                                                         \_______  _______/
                                                                 \/
                                                         3^^.............^3
                                                          \______  ______/
                                                                 \/
                                                          3^^...........^3
                                                           \_____  _____/
                                                                 \/
                                                           3^^.........^3
                                                            \____  ____/
                                                                 \/
                                                            3^^.......^3
                                                             \___  ___/
                                                                 \/
                                                             3^^.....^3
                                                              \__  __/
                                                                 \/
                                                              3^^...^3
                                                               \_  _/
                                                                 \/
                                                               3^^^^3

Зауважте, що існує 64 шари, що немає пробілів, а два - ^перед точками, і лише один виникає після.

MD5 хеш вашої продукції повинен точно бути c84d0e20eac2a7f891ab42a8eb77759f, або 1ad3b10d06e38693436c14958b2c47a8якщо є символ кінця рядка (що добре).

Виграє найкоротший код у байтах. Вихід у stdout. Введення немає.

code-golf  kolmogorov-complexity 
— Захоплення Кальвіна
джерело
3
Чому вони є крапками, а не більше стрілками вгору? Я майже впевнений, що метою еліпсів на малюнку було лише показати відсутні стрілки.
— raptortech97
4
@ raptortech97 Тому що багато стрілок пропущено. Число Грема криваво-масове. Мені дуже доречно цікаво побачити, якими мовами насправді це вдається.
— fuandon
4
Еліпси представляють кількість стрілок, які навіть не можна представити без позначення стрілки вгору
— Ерік Тресслер
2
@fuandon Ви не отримаєте жодної мови для фактичного обчислення числа, навіть якщо ви дозволені для комп'ютера розміром у Всесвіті, він просто великий. Я припускаю, що ви могли обчислити довільно велику суму найправіших цифр, але це просто не те саме.
— Tally
10
Можливо, варто видавати хеші MD5 для швидкої перевірки: 1ad3b10d06e38693436c14958b2c47a8як надано grc, або c84d0e20eac2a7f891ab42a8eb77759fякщо остаточний символ нового рядка можна опустити.
— змагальний

Відповіді:

9

Пітона, 122

i=63
while i:
 for s in'3^^'+'..'*i+'.^3','\%s  %s/'%(('_'*i,)*2),'\/':print' '*(66-len(s)/2)+s
 i-=1
print' '*63+'3^^^^3'

Приклад:

$ python grahams.py | md5
1ad3b10d06e38693436c14958b2c47a8
— гр
джерело
Що це означає?
— fuandon
13
Це означає, що він не хотів спамувати відповіді з відтворенням величезного результату ascii вгорі, я думаю.
— Ерік Треслер
1
Ах, досить справедливо. Я отримую це зараз, результат був хеширован.
— fuandon
Хороша заміна петлі на цикл на час.
— qwr
8

Perl - 113 (112 + 1 для -E)

Гольф:

$.=$"x63,$y="_"x($!=63-$_),$x.=($z=$"x$_)."3^^".".."x$!.".^3$/ $z\\$y  $y/$/ $. \\/$/"for 0..62;say"$x$.3^^^^3"

Безголовки:

for(0..62) {
    $.=$"x63;
    $!=63-$_;
    $y="_"x$_;
    $z=$"x$!;
    $x.=$z."3^^".".."x$!.".^3$/ $z\\$y  $y/$/ $. \\/$/";
}
say"$x$.3^^^^3"

EDIT: Виникла помилка в інтерполяції рядків, коли perl вважав, що $ m3 є змінною, тому мені довелося додати 2 символи, щоб виправити це. Вирішується шляхом зміни $ m на $.

NINJA EDIT: Замінено екземпляри "" на $ ". Зберігає 2 символи

NINJA EDIT 2: Дякую @chilemagic за вказівку на те, що я можу використовувати команду say замість друку з -E для збереження символу.

NOT-SO-NINJA EDIT 3: @ Рішення Nax перемогло моє старе рішення, тож я трохи підготував його, щоб утримати його.

— вбивчий
джерело
Я буквально збирався опублікувати відповідь Perl (хоча кілька символів довше), коли ваша змістила сторінку вниз. Мені подобається, як ви використовували $ m всередині і зовні циклу, щоб зменшити надмірність.
— змагальний
1
Ви можете використовувати sayзамість, printа потім запустити його -Eзамість -e(якщо версія Perl досить висока). Чудово виглядає, хоча!
— hmatt1
7

Хаскелл, 152

(?)=replicate
g 0=["3^^^^3"]
g i=("3^^"++(i*2)?'.'++".^3"):map(' ':)(("\\"++i?'_'++"  "++i?'_'++"/"):((i+1)?' '++"\\/"):g(i-1))
main=putStr.unlines.g$63
— Промінь
джерело
1
Блін! Це двічі я ніндзя за секунди. Я думаю, що я можу врятувати вас персонажа, якщо ви видалите +1та просто додати крапку раніше "^3".
— змагальний
@comperendinous Добре, дякую.
— Рей
Ви можете замінити "\\" ++ на "\\":
— гордий haskeller
4

C 161 182

(Я думаю, що я скористався цим методом, можливо, я мушу знайти новий, який можна перемогти внизу)
компілювати як C99!

main(i){for(char d[]={[0 ...126]=46,i=0},l[]={[0 ...62]=95,0};i<63;)printf("3^^%s^3\n%*s\\%s  %s/\n%*s\n%*s",d+2*i++,i,"",l+i,l+i,67,"\\/",i,"");puts("3^^^^3");}

JS 158

r="repeat";o="";u="_";s=" ";(f=i=>i?"3^^"+"."[r](i*2+1)+"^3\n"+s[r](64-i)+"\\"+u[r](i)+s[r](2)+u[r](i)+"/\n"+s[r](65)+"\\/\n"+s[r](64-i)+f(i-1):"3^^^^3")(63);

xem.github.io/obfuscatweet/ 124:

eval(unescape(escape('𬠽𘡲𩑰𩑡𭀢𞱯🐢𘠻𭐽𘡟𘠻𬰽𘠠𘠻𚁦👩🐾𪐿𘠳𧡞𘠫𘠮𘡛𬡝𚁩𚠲𚰱𚐫𘡞𜱜𫠢𚱳𦱲𧐨𝠴𛑩𚐫𘡜𧀢𚱵𦱲𧐨𪐩𚱳𦱲𧐨𜠩𚱵𦱲𧐨𪐩𚰢𛱜𫠢𚱳𦱲𧐨𝠵𚐫𘡜𧀯𧁮𘠫𬱛𬡝𚀶𝀭𪐩𚱦𚁩𛐱𚐺𘠳𧡞𧡞𜰢𚐨𝠳𚐻').replace(/uD./g,'')))
— беб
джерело
3

Bash + coreutils, 150

Я думав, що можу зробити це краще, ніж це. Що ж, добре.

r()(yes "${2:- }"|head -$[$1]|tr -d '
')
for i in {63..1};{
r 63-$i
echo "3^^`r 2*$i .`.^3
`r 64-$i`\\`r $i _`  `r $i _`/
`r 65`\/"
}
r 63
echo 3^^^^3

Вихід:

$ ./graham.sh | md5sum
1ad3b10d06e38693436c14958b2c47a8  -
$
— Цифрова травма
джерело
1

СТАТА 135

forv x=63(-1)1{
di _d(63-`x')" ""3^^"_d(2*`x'+1)".""^3"_n_d(64-`x')" ""\"_d(`x')"_""  "_d(`x')"_"_n-d(65)" ""\/"
}
di _d(63)"3^^^^3"
— позначки
джерело
1

JavaScript 179

n='';a=Array;for(b=64;b>1;)n+=(c=a(65-b).join(' '))+'3^^'+a(2*b).join('.')+'^3\n'+c+' \\'+(u=a(b--).join('_'))+'  '+u+'/\n'+(d=a(64).join(' '))+'  \\/\n'
console.log(n+d+'3^^^^3')

Перевірте це на консолі веб-переглядача або на веб-сайті http://jsfiddle.net/2qwvrvcw/ .

— NinjaBearMonkey
джерело
1

Javascript (203)

u="_";s=" ";for(i=64;i>1;i--)console.log(s.repeat(64-i)+"3^^"+".".repeat(i*2-1)+"^3\n"+s.repeat(64-i)+"\\"+u.repeat(i)+s.repeat(2)+u.repeat(i)+"/\n"+s.repeat(65)+"\\/");console.log(s.repeat(63)+"3^^^^3")

Безголовки:

underscore = "_";
space = " ";
for (i = 64; i > 1; i--) console.log(space.repeat(64 - i) + "3^^" + ".".repeat(i * 2 - 1) + "^3\n" + 
                                     space.repeat(64-i) + "\\" + underscore.repeat(i) + space.repeat(2) + underscore.repeat(i) + "/\n" + 
                                     space.repeat(65) + "\\/");
console.log(space.repeat(63) + "3^^^^3");
— kitcar2000
джерело
1

C # (212211)

using C=System.Console;class P{static void Main(){for(int i=64;i>1;)C.Write(@"{0}3^^{2}.^3
{0} \{1}  {1}/
{3,65}\/
",new string(' ',64-i),new string('_',--i),new string('.',i*2),"");C.Write("{0,69}","3^^^^3");}}

.Net Fiddle (схоже, вимагає, щоб клас та метод Main були загальнодоступними)

Трохи незворушений:

using C = System.Console;
class Program {
  static void Main() {
    for (int i = 64; i > 1; ) {
      C.Write("{0}3^^{2}.^3\n{0} \\{1}  {1}/\n{3,65}\\/\n",
 new string(' ', 64 - i),
 new string('_', --i),
 new string('.', i * 2), "");
    }
    C.Write("{0,69}", "3^^^^3");
  }
}
— Лаурі Гелкула
джерело
1

Perl, 116 112 109 108 (включаючи -E)

Моя перша спроба гольфу. Будь ласка, прийміть це як таке:

Гольф:

perl -E'map{$_=" $_!^".(($b=63-$_)?"2.$b.$b.^!
 $_ \\_$b 2_$b/
 65\\/":"4!");s#(.)(\d+)#"$1"x$2#eg;y/!/3/;say}0..63'

Дуже трохи невольф (не підтримується ...):

map
{
    $b = 63 - $_;
    $_ = " $_!^".($b
        ? "2.$b.$b.^!N $_ \\_$b 2_$b/N 65\\/"
        : "4!");
    s#(.)(\d+)#"$1"x$2#eg;    # behaves exactly as $_ =~ s/(.)(\d+)/"$1"x$2/eg
    y/!N/3\n/;                  # y == tr, so this does $_ =~ tr/!N/3\n/
    say;                        # once more $_ completion, this does say $_ == print "$_\n"
} (0..63);

По суті, він працює так: для кожного рядка з 3 та дужки (вони обробляються разом) він записує їх послідовність, закодовану RLE , а потім розшифровує його. Правило просте: кожен знак, за яким слідує число, розширюється до цього знака, скільки разів. Символи без числа залишаються в спокої. Нарешті, символ !позначає 3, а Nзасіб новий рядок (3 потрібно було закодувати, оскільки це число і нетерпляче братиме участь у кількості повторень).

Кожен рядок із 3s та його дужки отримують елемент у 64-елементному масиві, який генерує карта. Скажімо, як друк, може виводити масиви - якщо йому дано масив, він друкує всі елементи (без жодних роздільників).

Я використав хитрію чилімагіка з -E. Дякую за це.

Підсилення: тут почали ховатися два 113-байтних рішення. RLE не піддасться без бою!

Очищення кормів : Я тепер зрозумів, що мені не потрібно спеціальної транслітерації \ n, тому що всі рядки в Perl є автоматично багаторядковими! Таким чином RLE чіпляється ближче до спини Рубі! Зараз на 109 байтах.

Агонізуюче задоволення : правильно рахувати символів важче, ніж я думав. Після деякої боротьби я влаштувався далі

echo $ (((wc -c <<<'golf' -1))
(-1, оскільки він рахує НЧ в самому кінці сценарію). Крім того, я переставив свої завдання і зберег 1 символ, погоджуючись на 108 байт.

— Рамілли
джерело
0

MATLAB (325)

m=127:-2:0;n=0:63;p='UniformOutput';q=false;f=@ones;g=@arrayfun;a=g(@(x,y)[f(1,y)*' '  '3^^' f(1,x)*'.'  '^3'],m,n,p,q);b=g(@(x,y)[f(1,y+1)*' '  '\' f(1,(x-1)/2)*'_' '  ' f(1,(x-1)/2)*'_' '/'],m,n,p,q);a{64}(a{64}=='.')='^';g(@(x,y)fprintf('%s\n%s\n%s\n',x{:},y{:},[f(1,65)*' ' '\/']),a,b),fprintf(repmat('\b',1,137))

неозорений:

m=127:-2:0;
n=0:63;
p='UniformOutput';
q=false;
f=@ones;
g=@arrayfun;
a=g(@(x,y)[f(1,y)*' '  '3^^' f(1,x)*'.'  '^3'],m,n,p,q);
b=g(@(x,y)[f(1,y+1)*' '  '\' f(1,(x-1)/2)*'_' '  ' f(1,(x-1)/2)*'_' '/'],m,n,p,q);
a{64}(a{64}=='.')='^';
g(@(x,y)fprintf('%s\n%s\n%s\n',x{:},y{:},[f(1,65)*' ' '\/']),a,b),fprintf(repmat('\b',1,137))

MATLAB (252)

n=0;f=@ones;g=@arrayfun;for i=127:-2:0 if n~=63 y=f(1,i)*'.';else y='^';z='';end;fprintf('%s\n%s\n%s\n',[f(1,n)*' '  '3^^' y  '^3'],[f(1,n+1)*' '  '\' f(1,(i-1)/2)*'_' '  ' f(1,(i-1)/2)*'_' '/'],[f(1,65)*' ' '\/']);n=n+1;end;fprintf(repmat('\b',1,137))

неозорений:

n=0;  
f=@ones;
g=@arrayfun;
for i=127:-2:0 
    if n~=63 
        y=f(1,i)*'.';
    else y='^';
        z='';
    end
    fprintf('%s\n%s\n%s\n',[f(1,n)*' '  '3^^' y  '^3'],[f(1,n+1)*' '  '\' f(1,(i-1)/2)*'_' '  ' f(1,(i-1)/2)*'_' '/'],[f(1,65)*' ' '\/']);
    n=n+1;
end
fprintf(repmat('\b',1,137))
— Мінар Ашік Тишань
джерело
0

PHP 214

Думав, що я все роблю добре, поки не порахував персонажів, все одно ось це -

<?function a($n,$v=" "){for($j=0;$j<$n;$j++){$r.=$v;}return $r;}for($i=64;$i>1;$i--){$b=a($i-1,"_");$v.=a(64-$i)."3^^".a($i*2-1,".")."^3\n".a(64-$i+1)."\\".$b.a(2).$b."/\n".a(65)."\/\n";}$v.=a(63)."3^^^^3";echo $v;
— Петро
джерело
Тільки змінивши вихід на консоль, ви можете зберегти до 11 символів ( &nbsp;-> ' ', <br>-> \n)
— avall
Також ви повинні додати <?на початку коду - це повинна бути дійсна програма, а не функція.
— avall
Ага, дякую, і поради, які ви запропонували, я базував шахту на виході сторінки на відміну від вихідного коду, (/ n не порушить рядок, а два '' поруч з іншим все ще мають лише 1 пробіл), так Я думаю, вихідний код теж повинен бути добре :)
— Пітер,
Поїхали на 194 символи:<?function a($n,$v=" "){return str_repeat($v, $n);}for($i=64;$i>1;){$b=a($i-1,"_");$v.=a(64-$i)."3^^".a($i*2-1,".")."^3\n".a(65-$i--)."\\$b".a(2)."$b/\n".a(65)."\/\n";}$v.=a(63)."3^^^^3";echo$v;
— 1414
перевірка md5: php grahams.php | md5sum:c84d0e20eac2a7f891ab42a8eb77759f -
— Avall
0

Луа - 174

p=print a=" "b="_"for i=0,62 do j=63-i p(a:rep(i).."3^^."..(".."):rep(j).."^3")p(a:rep(i+1).."\\"..b:rep(j).."  "..b:rep(j).."/")p(a:rep(65).."\\/")end p(a:rep(63).."3^^^^3")

До цього я отримав два алгоритмічно різних рішення (обидва 182!):

a=" "b="_"for i=0,62 do j=63-i print(a:rep(i).."3^^."..(".."):rep(j).."^3")print(a:rep(i+1).."\\"..b:rep(j).."  "..b:rep(j).."/")print(a:rep(65).."\\/")end print(a:rep(63).."3^^^^3")


a=" "b="_"i=63 while i>0 do c=b:rep(i/2)for _,s in pairs{"3^^."..(".."):rep(i/2).."^3","\\"..c.."  "..c.."/","\\/"}do print(a:rep(66-#s/2)..s)i=i-1 end end print(a:rep(63).."3^^^^3")
— Адривеб
джерело
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.