Намалюйте абакус Суанпана

32

Напишіть найкоротшу програму, яка приймає одне ціле число як вхідне і виводить абакус Suanpan

Тестові шафи

Вхід:

314159

Вихід:

|\======================================/|
||  (__)  (__)  (__)  (__)  (__)  (__)  ||
||  (__)  (__)  (__)  (__)   ||    ||   ||
||   ||    ||    ||    ||    ||    ||   ||
||   ||    ||    ||    ||   (__)  (__)  ||
|<======================================>|
||  (__)  (__)  (__)  (__)   ||   (__)  ||
||  (__)   ||   (__)   ||    ||   (__)  ||
||  (__)   ||   (__)   ||    ||   (__)  ||
||   ||    ||   (__)   ||    ||   (__)  ||
||   ||    ||    ||    ||    ||    ||   ||
||   ||    ||    ||    ||   (__)   ||   ||
||   ||   (__)   ||   (__)  (__)   ||   ||
||   ||   (__)   ||   (__)  (__)   ||   ||
||  (__)  (__)   ||   (__)  (__)   ||   ||
||  (__)  (__)  (__)  (__)  (__)  (__)  ||
|/======================================\|

Вхід:

6302715408

Вихід:

|\==============================================================/|
||  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  ||
||   ||   (__)  (__)  (__)   ||   (__)   ||   (__)  (__)   ||   ||
||   ||    ||    ||    ||    ||    ||    ||    ||    ||    ||   ||
||  (__)   ||    ||    ||   (__)   ||   (__)   ||    ||   (__)  ||
|<==============================================================>|
||  (__)  (__)   ||   (__)  (__)  (__)   ||   (__)   ||   (__)  ||
||   ||   (__)   ||   (__)  (__)   ||    ||   (__)   ||   (__)  ||
||   ||   (__)   ||    ||    ||    ||    ||   (__)   ||   (__)  ||
||   ||    ||    ||    ||    ||    ||    ||   (__)   ||    ||   ||
||   ||    ||    ||    ||    ||    ||    ||    ||    ||    ||   ||
||   ||    ||   (__)   ||    ||    ||   (__)   ||   (__)   ||   ||
||  (__)   ||   (__)   ||    ||   (__)  (__)   ||   (__)   ||   ||
||  (__)   ||   (__)  (__)  (__)  (__)  (__)   ||   (__)   ||   ||
||  (__)  (__)  (__)  (__)  (__)  (__)  (__)   ||   (__)  (__)  ||
||  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  ||
|/==============================================================\|
code-golf  ascii-art 
— гніблер
джерело
Чи можна вказати номер у командному рядку?
— Джої
Будь-які обмеження щодо довжини введення?
— Джої
Подібно до golf.shinh.org/p.rb?Soroban+Fixed, якщо комусь потрібні якісь ідеї, як більше грати в гольф.
— Nabb
1
Тож верхній і нижній ряд завжди повністю заповнені? Чому вони винайшли такий зайвий абак? :)
— Тімві
@Timwi, той самий абак може бути використаний для шістнадцяткових. При використанні знаків для
— десятків

Відповіді:

14

J, 126 124 121 119 116 115 113 105 116 115 112 символів

'|'s":(' 's[:,.(_6[\'  ||   (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1[(s=:[,.~,.)9!:7'\=/<=>/=\|='

Вводиться з клавіатури. Приклад:

   '|'s":(' 's[:,.(_6[\'  ||   (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1[(s=:[,.~,.)9!:7'\=/<=>/=\|='
6302715408
|\==============================================================/|
||  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  ||
||   ||   (__)  (__)  (__)   ||   (__)   ||   (__)  (__)   ||   ||
||   ||    ||    ||    ||    ||    ||    ||    ||    ||    ||   ||
||  (__)   ||    ||    ||   (__)   ||   (__)   ||    ||   (__)  ||
|<==============================================================>|
||  (__)  (__)   ||   (__)  (__)  (__)   ||   (__)   ||   (__)  ||
||   ||   (__)   ||   (__)  (__)   ||    ||   (__)   ||   (__)  ||
||   ||   (__)   ||    ||    ||    ||    ||   (__)   ||   (__)  ||
||   ||    ||    ||    ||    ||    ||    ||   (__)   ||    ||   ||
||   ||    ||    ||    ||    ||    ||    ||    ||    ||    ||   ||
||   ||    ||   (__)   ||    ||    ||   (__)   ||   (__)   ||   ||
||  (__)   ||   (__)   ||    ||   (__)  (__)   ||   (__)   ||   ||
||  (__)   ||   (__)  (__)  (__)  (__)  (__)   ||   (__)   ||   ||
||  (__)  (__)  (__)  (__)  (__)  (__)  (__)   ||   (__)  (__)  ||
||  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  ||
|/==============================================================\|

Основна хитрість тут - зловживання J-боксу шляхом перевизначення символів, які він використовує. Для цього використовується глобальний параметр - 9!:7-. Може бути місце для подальшого гольфу, але якщо чесно, я був просто радий отримати щось працююче, що повинно компенсувати мою останню спробу в цьому питанні .

Підходить до твіту з достатньою кількістю символів, щоб сказати "Газ зробив це" :-).

Редагування: 3 -х символів економії обумовлені запозичуючи 2 6$' || (__)'від Джессі Милликена відповідь.

Подальше редагування: втрачено 11 символів, додавши додаткові пробіли в обидві сторони, які я не помічав, не було

Пояснення:

Код складається з трьох основних розділів:

1) Налаштування

[(s=:[,.~,.)9!:7'\=/<=>/=\|='

Це саме по собі в двох частинах.
9!:7'\=/<=>/=\|='перевизначає символи, які J використовуватиме для відображення вікон. Бокс J зазвичай виглядає так:

   2 2$<"0[1 2 3 4
┌─┬─┐
│1│2│
├─┼─┤
│3│4│
└─┴─┘

але після перевизначення це виглядає приблизно так:

   2 2$<"0[1 2 3 4
\===/
|1|2|
<===>
|3|4|
/===\

(s=:[,.~,.)визначає дієслово, яким я буду користуватися пару разів пізніше. Це виявляється найкращим місцем для декларації. Він займає символ зліва та масив символів праворуч і заштрихує масив між символом. Наприклад:

   3 5$'abcdefghijklmno'
abcde
fghij
klmno

   '-' s 3 5$'abcdefghijklmno'
-abcde-
-fghij-
-klmno-

Фінал [просто служить для відділення налаштування від наступної частини.

2) Введення та представлення

,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1

".,.1!:1[1 бере вхід з клавіатури і розділяє його на окремі цифри:

   ".,.1!:1[1
314159
3 1 4 1 5 9

((i.5)</5|]) створює подання нулів та одиниць нижньої частини абакуса:

   ((i.5)</5|]) 3 1 4 1 5 9
1 1 1 1 0 1
1 0 1 0 0 1
1 0 1 0 0 1
0 0 1 0 0 1
0 0 0 0 0 0

|:@(1,.<&5) створює подання нулів і одиниць верхньої частини абакуса:

   |:@(1,.<&5) 3 1 4 1 5 9
1 1 1 1 1 1
1 1 1 1 0 0

Ці дві частини в коробці разом, використовуючи ;:

   (|:@(1,.<&5);((i.5)</5|])) 3 1 4 1 5 9
\=======================/
|1 1 1 1 1 1|1 1 1 1 0 1|
|1 1 1 1 0 0|1 0 1 0 0 1|
|           |1 0 1 0 0 1|
|           |0 0 1 0 0 1|
|           |0 0 0 0 0 0|
/=======================\

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

   ,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
\===========/
|1 1 1 1 1 1|
|1 1 1 1 0 0|
<===========>
|1 1 1 1 0 1|
|1 0 1 0 0 1|
|1 0 1 0 0 1|
|0 0 1 0 0 1|
|0 0 0 0 0 0|
/===========\

3) Вихід

'|'s":(' 's[:,.(_6[\'  ||   (__)'){~(,-.))&.>

&.>означає, що наступне діятиме на обох полях по черзі.
(,-.)це гачок, який заперечить вхід, а потім додасть його до кінця оригіналу:

   2 5$1 0 1 0 1
1 0 1 0 1
1 0 1 0 1

   (,-.) 2 5$1 0 1 0 1
1 0 1 0 1
1 0 1 0 1
0 1 0 1 0
0 1 0 1 0

Це дійсно частина представництва, але для цілей гольфу краще мати його в цьому розділі. Застосовано до попереднього вводу:

   (,-.)&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
\===========/
|1 1 1 1 1 1|
|1 1 1 1 0 0|
|0 0 0 0 0 0|
|0 0 0 0 1 1|
<===========>
|1 1 1 1 0 1|
|1 0 1 0 0 1|
|1 0 1 0 0 1|
|0 0 1 0 0 1|
|0 0 0 0 0 0|
|0 0 0 0 1 0|
|0 1 0 1 1 0|
|0 1 0 1 1 0|
|1 1 0 1 1 0|
|1 1 1 1 1 1|
/===========\

[:,.(_6[\' || (__)'){~ Нулі та одиниці тепер використовуються для вибору рядка для зображення бісеру або його відсутності:

   ([:,.(_6[\'  ||   (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
\====================================/
| (__)  (__)  (__)  (__)  (__)  (__) |
| (__)  (__)  (__)  (__)   ||    ||  |
|  ||    ||    ||    ||    ||    ||  |
|  ||    ||    ||    ||   (__)  (__) |
<====================================>
| (__)  (__)  (__)  (__)   ||   (__) |
| (__)   ||   (__)   ||    ||   (__) |
| (__)   ||   (__)   ||    ||   (__) |
|  ||    ||   (__)   ||    ||   (__) |
|  ||    ||    ||    ||    ||    ||  |
|  ||    ||    ||    ||   (__)   ||  |
|  ||   (__)   ||   (__)  (__)   ||  |
|  ||   (__)   ||   (__)  (__)   ||  |
| (__)  (__)   ||   (__)  (__)   ||  |
| (__)  (__)  (__)  (__)  (__)  (__) |
/====================================\

Але зараз, як мені вказував Говард, з одного боку бісеру є один пробіл. Отже, ми використовуємо заздалегідь задане sдієслово, щоб сендвічувати вміст кожного поля між двома стовпцями пробілів:

   (' 's[:,.(_6[\'  ||   (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
\======================================/
|  (__)  (__)  (__)  (__)  (__)  (__)  |
|  (__)  (__)  (__)  (__)   ||    ||   |
|   ||    ||    ||    ||    ||    ||   |
|   ||    ||    ||    ||   (__)  (__)  |
<======================================>
|  (__)  (__)  (__)  (__)   ||   (__)  |
|  (__)   ||   (__)   ||    ||   (__)  |
|  (__)   ||   (__)   ||    ||   (__)  |
|   ||    ||   (__)   ||    ||   (__)  |
|   ||    ||    ||    ||    ||    ||   |
|   ||    ||    ||    ||   (__)   ||   |
|   ||   (__)   ||   (__)  (__)   ||   |
|   ||   (__)   ||   (__)  (__)   ||   |
|  (__)  (__)   ||   (__)  (__)   ||   |
|  (__)  (__)  (__)  (__)  (__)  (__)  |
/======================================\

Зробивши це, все, що залишилося, - це перетворити це в рядок, використовуючи ":так, щоб ми могли прокласти його між двома стовпцями |:

   '|'s":(' 's[:,.(_6[\'  ||   (__)'){~(,-.))&.>,.(|:@(1,.<&5);((i.5)</5|]))".,.1!:1[1
314159
|\======================================/|
||  (__)  (__)  (__)  (__)  (__)  (__)  ||
||  (__)  (__)  (__)  (__)   ||    ||   ||
||   ||    ||    ||    ||    ||    ||   ||
||   ||    ||    ||    ||   (__)  (__)  ||
|<======================================>|
||  (__)  (__)  (__)  (__)   ||   (__)  ||
||  (__)   ||   (__)   ||    ||   (__)  ||
||  (__)   ||   (__)   ||    ||   (__)  ||
||   ||    ||   (__)   ||    ||   (__)  ||
||   ||    ||    ||    ||    ||    ||   ||
||   ||    ||    ||    ||   (__)   ||   ||
||   ||   (__)   ||   (__)  (__)   ||   ||
||   ||   (__)   ||   (__)  (__)   ||   ||
||  (__)  (__)   ||   (__)  (__)   ||   ||
||  (__)  (__)  (__)  (__)  (__)  (__)  ||
|/======================================\|
— Гарет
джерело
Я відчував, що з вашим результатом щось "не так", але мені знадобилося деякий час, щоб визнати: ви опускаєте порожню колонку в лівій і правій частині дисплея (третя і третя остання колона ascii).
— Говард
@Howard Woah, гарне місце. Я цього не помічав. Я буду дивитись, як це виправити.
— Гарет
@Howard Виправлено вартістю 11 символів. Сором, я думав, що у мене буде шанс потрапити нижче 100. :-(
— Гарет
Хороша робота. Схоже, у @Howard ще багато роботи, щоб наздогнати
— гніблер
У Баунті залишилось 3 дні. Я позначив цього як прийнятий середній час.
— гніблер
14

Рубін 1,9, 154 символів

puts'|\%s/|'%$r=?=*(2+6*gets.size),(0..14).map{|a|a==4?"|<#$r>|":"|| #{$_.gsub(/./){(5*a+n=$&.hex)/10!=1&&(a-n%5)/5!=1?' (__) ':'  ||  '}} ||"},"|/#$r\\|"

Припускає, що введення не закінчується новим рядком.

Факт забави: Завдяки тому, як я перетворюю вхідні цифри в цифри ( $&.hexна один байт коротший $&.to_i), цей абак насправді працює з шістнадцятковими цифрами до e:

$ echo -n "0123456789abcdef" | ruby suanpan.rb
|\==================================================================================================/|
||  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)   ||    ||    ||    ||    ||    ||   ||
||  (__)  (__)  (__)  (__)  (__)   ||    ||    ||    ||    ||    ||    ||    ||    ||    ||   (__)  ||
||   ||    ||    ||    ||    ||    ||    ||    ||    ||    ||   (__)  (__)  (__)  (__)  (__)  (__)  ||
||   ||    ||    ||    ||    ||   (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  ||
|<==================================================================================================>|
||   ||   (__)  (__)  (__)  (__)   ||   (__)  (__)  (__)  (__)   ||   (__)  (__)  (__)  (__)   ||   ||
||   ||    ||   (__)  (__)  (__)   ||    ||   (__)  (__)  (__)   ||    ||   (__)  (__)  (__)   ||   ||
||   ||    ||    ||   (__)  (__)   ||    ||    ||   (__)  (__)   ||    ||    ||   (__)  (__)   ||   ||
||   ||    ||    ||    ||   (__)   ||    ||    ||    ||   (__)   ||    ||    ||    ||   (__)   ||   ||
||   ||    ||    ||    ||    ||    ||    ||    ||    ||    ||    ||    ||    ||    ||    ||    ||   ||
||  (__)   ||    ||    ||    ||   (__)   ||    ||    ||    ||   (__)   ||    ||    ||    ||   (__)  ||
||  (__)  (__)   ||    ||    ||   (__)  (__)   ||    ||    ||   (__)  (__)   ||    ||    ||   (__)  ||
||  (__)  (__)  (__)   ||    ||   (__)  (__)  (__)   ||    ||   (__)  (__)  (__)   ||    ||   (__)  ||
||  (__)  (__)  (__)  (__)   ||   (__)  (__)  (__)  (__)   ||   (__)  (__)  (__)  (__)   ||   (__)  ||
||  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  (__)  ||
|/==================================================================================================\|

Бо 0xfтретя бісер магічно з’являється у верхній половині.

Під час дозволу додаткових прапорів під час виклику сценарію це може бути скорочено до 152 байт (149 байт код + 3 байти додаткових прапорців виклику):

puts'|\%s/|'%$r=?=*(2+6*~/$/),(0..14).map{|a|a==4?"|<#$r>|":"|| #{$_.gsub(/./){(5*a+n=$&.hex)/10!=1&&(a-n%5)/5!=1?' (__) ':'  ||  '}} ||"},"|/#$r\\|"

Бігайте з ruby -n suanpan.rb.

— Вентеро
джерело
12

Perl (151 символів)

( 168 163 158 157 156 154 )

$i=<>;$c.=$_-4?"
||  $i||":"
|<$m>|",$m='==',$c=~s!\d!$m.='='x6;($_-$&%5)/5%2|(5*$_+$&)/10%7==1?' ||   ':'(__)  '!eg for 0..14;print"|\\$m/|$c
|/$m\\|"

Пояснення

# Read the number from STDIN.
$i = <>;

# for statement starts here...

    # Append to $c a line containing either the horizontal dividing bar (in row #4)
    # or the current abacus row with the digits in place of the pegs.
    # This relies on the fact that $m will have been computed after at least one iteration.
    $c .= $_-4 ? "\n||  $i||" : "\n|<$m>|",

    # Notice that $m is redundantly recomputed from scratch in each iteration.
    $m = '==',

    # Substitute the correct pegs for the digit characters.
    $c =~ s!\d!
        $m .= '=' x 6;

        # Weird expression for the abacus function.
        # I have to use “% 7” because otherwise the division is floating-point...
        # Notice that $_ is the row and $& is the digit.
        ($_ - $& % 5)/5 % 2 | (5*$_ + $&)/10 % 7 == 1
        ? ' ||   '
        : '(__)  '
    !eg
for 0..14;

# Could shorten further by using “say” if you don’t mind excluding the “-E” from the count...
print "|\\$m/|$c\n|/$m\\|"

Правки

  • (154 → 151) Змінено три \ns на фактичні символи нового рядка. Не можу повірити, що я не думав про це раніше!
— Тімві
джерело
1
Це просто ... Дивовижно!
— german_guy
8

Windows PowerShell, 191

$y='='*(2+6*($i=[char[]]"$input").Count)
filter f($v){"|| $((' (__)','  || ')[($i|%{iex $_%$v})])  ||"}"|\$y/|"
f 1
f 10-ge5
f 1+1
f 10-lt5
"|<$y>|"
1..5|%{f 5-lt$_}
1..5|%{f 5-ge$_}
"|/$y\|"

Історія:

  • 2011-03-11 23:54 (340) Початкова спроба.
  • 2011-03-12 00:21 (323) Використання рядкової інтерполяції у всьому коді.
  • 2011-03-12 00:21 (321) Нарізка $l.
  • 2011-03-12 01:07 (299) Використовується функція для повторюваних частин, а також рядок формату.
  • 2011-03-12 01:19 (284) Аргументи до функції трохи змінили. Ура для режиму розбору команд.
  • 2011-03-12 01:22 (266) Більше змінних для повторюваних виразів.
  • 2011-03-12 01:28 (246) Тепер кожен рядок генерується функцією.
  • 2011-03-12 01:34 (236) Оскільки я використовую символи лише у рядковій інтерполяції, я можу сміливо ігнорувати те, %що робить цифри з цифр.
  • 2011-03-12 01:34 (234) Трохи оптимізовано генерацію індексу масиву у функції.
  • 2011-03-12 01:42 (215) Мені вже не потрібно $rі $b. І $aтакож є застарілим. Як є$l .
  • 2011-03-12 01:46 (207) Не потрібно встановлювати, $OFSякщо мені це потрібно лише один раз.
  • 2011-03-12 01:49 (202) Нарізка $f.
  • 2011-03-12 01:57 (200) Більше не потрібно в рядку формату. Строкова інтерполяція працює чудово.
  • 2011-03-12 02:00 (198) Трохи оптимізована генерація окремих рядків (переупорядкування індексу конвеєра та масиву).
  • 2011-03-12 02:09 (192) Немає необхідності, -joinоскільки ми можемо реально використовувати додатковий простір для хорошого ефекту.
— Джої
джерело
5

Хаскелл, 243 символи

z x|x=" (__) ";z _="  ||  "
h[a,b]d f w='|':a:replicate(2+6*length d)'='++b:"|\n"++q z++q(z.not)
 where q b=w>>=(\v->"|| "++(d>>=b.(>v).f)++" ||\n")
s d=h"\\/"d(5-)[-9,0]++h"><"d(`mod`5)[0..4]++h"/\\"d id[]
main=interact$s.map(read.(:[])).init

Не особливо розумний. Я впевнений, що це можна якось скоротити ...

  • Редагувати: (246 -> 243) прийняв пропозицію @ FUZxxl використовувати interact
— MtnViewMark
джерело
Як щодо використанняinteract
— FUZxxl
Перший рядок можна скоротити z x|x=" (__) "|0<1=" || ".
— FUZxxl
Ваш альтернативний перший рядок лише коротший, оскільки ви скинули два необхідні пробіли!
— MtnViewMark
На жаль! Ви, звичайно, праві.
— FUZxxl
4

Дельфи, 348

Ця версія створює рядок для запису лише один раз; Цифри обробляються окремою функцією, яка працює через digit modulo m >= valueконструкцію (заперечується, якщо значення <0).

var d,s,o,p:string;c:Char;i:Int8;function g(m,v:Int8):string;begin p:='|| ';for c in d do p:=p+Copy('  ||   (__) ',1+6*Ord(((Ord(c)+2)mod m>=Abs(v))=(v>0)),6);g:=p+' ||'^J;end;begin ReadLn(d);s:=StringOfChar('=',2+6*Length(d));for i:=1to 5do o:=g(5,6-i)+o+g(5,-i);Write('|\'+s+'/|'^J+g(1,-1)+g(10,-5)+g(1,1)+g(10,5)+'|<'+s+'>|'^J+o+'|/'+s+'\|')end.

Дельфи, 565

Перша спроба: 

var _:array[0..6]of string=('  ||  ',' (  ) ','======','|\==/|','||  ||','|/==\|','|<==>|');m:array[0..186]of Byte;o:array[0..16]of string;i,j,c,f,l:Word;begin for i:=0to 9do begin f:=i*17;m[f+1]:=1;m[f+2]:=Ord(i<5);m[f+3]:=0;m[f+4]:=Ord(i>4);for j:=6to 10do m[f+j]:=Ord(i mod 5>j-6);for j:=11to 15do m[f+j]:=Ord(i mod 5<=j-11);m[f]:=2;m[5+f]:=2;m[16+f]:=2;end;f:=170;m[f]:=3;for i:=1to 15do m[f+i]:=4;m[f+5]:=6;m[f+16]:=5;repeat for i:=0to 16do Insert(_[m[f+i]],o[i],l);Read(PChar(@c)^);c:=c-48;f:=c*17;l:=Length(o[0])-2;until c>9;for i:=0to 16do WriteLn(o[i])end.

Для цього використовується 3 масиви; один для 7 рядків, які можна було помітити, один для вихідних рядків і один для відображення 7 рядків на 11 стовпців (10 цифр і 1 початковий стовпець).

— PatrickvL
джерело
3

GolfScript, 139 символів

0+17'|':Q*:R'\<||'4Q**'/'+@{48-.5<)[1]*2,2*$+4<\5%[1]*2,5*$+10<+`{{1$=}%+2>'=='1/*5/('='+\+}+'     (|_|_ )'2//}/;;;;'/>||'4Q**'\\'+R]zip n*

Ще не так багато гольфу, але він вписується в твіт (лише з ASCII). Спробуйте тут .

— Говард
джерело
2

J, 225

Проходить два задані тести, має працювати не менше кількох сотень цифр.

c=:2 6$'   ||   (__)'
f=:(2{.[),('='#~2+6*#@]),2}.[
d=:'||',"1'  ||',~"1,"2&(c{~|:)
g=:('|\/|'&f,d&(1,.-.,.0,.])&(4&<),'|<>|'&f,d&(5($!.0"1)0,~"(1)1#~"0|~&5),|.&d&(5($!.0"1)1#~"0(5-5|])),'|/\|'&f)
4(1!:2)~LF,"1 g"."0}:(1!:1)3

Спочатку: Так, так, могили. Друге: Це просто невпинно довго. Ну добре. Я ще не вирішив, чи варто далі займатися гольфом, або згортатися у плода і плакати. (Або обидва!)

Ось трохи пояснення замість коротшої програми:

  • c - 2x6 таблиця порожньої комірки, комірка з бісером для візуалізації.
  • f відображає рядок '=' з чотирма зовнішніми символами як лівий аргумент.
  • d виводить рядок абакуса, переводячи матриці 0/1 у клітинки бісеру, наповнені ||
  • g бере цифри і вертикально компілює рядки символів, використовуючи f для "форматування" рядків і d для рядків абаку.
  • Останній рядок отримує введення, розбивається на символи та перетворює їх на числа, подає в g, а потім друкує.
— Джессі Мілікан
джерело
2

С, 277 274 символів

Ви знаєте, мені здається, що у нас просто не вистачає рішень, які справді користуються перевагою препроцесора C. Частково це тому, що вони #defineнасправді займають неабиякий простір. Але все ж є стільки потенціалу. Я відчуваю потребу усунути цей недолік.

#define L(x,z)for(printf("|"x),p=b;*p||puts(#z)<0;++p)printf(
#define F(x,y,z)L(#x,==z|)"======",y);
#define T(y)L("|  ",||)*p-47 y?"(__)  ":" ||   ");
i;char*p,b[99];main(j){gets(b);F(\\,0,/)T()T(<6)T(<1)T(>5)F(<,*p>52?*p-=5:0,>)
for(;++i<6;)T(>i)for(;++j<7;)T(<j)F(/,0,\\)}

Так краще.

— хлібниця
джерело
2

Математика 281

w@n_:= Module[{t=Table,f,g},
 f@d_:=ReplacePart["O"~t~{7},{2-Quotient[d,5]-> "|",3+Mod[d,5]-> "|"}];
 g@k_:=IntegerDigits@n~PadLeft~10;
 Grid[Insert[Insert[(f/@g@n)T,"=="~t~{10},{{1},{3},{8}}]T,""~t~{10},{{1},{11}}]T]]

Приклад

w[6302715408]

abacus

— DavidC
джерело
Поздравляю 10k! :-D
— Дверна ручка
@Doorknob. Спасибі! Вітаю і вас!
— DavidC
1

С, 548

#define p(a) printf(a);
#define F(x,m) for(x=0;x<m;x++)
#define I(x) {p("||")F(j,l)if(b[l*(i+x)+j]){p("  (__)")}else{p("   || ")}p("  ||\n")}
#include<stdio.h>
#include<stdlib.h>
#include<string.h>
int main(int a,char* c[]){int i,j,l,m,*b;l=strlen(c[1]);b=(int*)malloc(l*56);m=6*l;F(i,14*l)b[i]=0;
F(j,l){b[j]=1;if(c[1][j]<53){b[l+j]=1;}else{b[3*l+j]=1;c[1][j]-=5;}F(i,5){if(i<c[1][j]-'0'){
b[(i+5)*l+j]=1;}else{b[(i+9)*l+j]=1;}}}p("|\\=")F(i,m)p("=")p("=/|\n")F(i,4)I(0)p("|<=")F(i,m)
p("=")p("=>|\n")F(i,9)I(5)p("|/=")F(i,m)p("=")p("=\\|\n")}

Перша версія, лише трохи гольфу поки що.

— шнадер
джерело
1

Scala (489 символів)

def a(i:String){val b=" (__) ";val n="  ||  ";1 to 17 map{l=>;{print(l match{case 1=>"|\\=";case 6=>"|<=";case 17=>"|/=";case _=>"|| "});print(l match{case 1|6|17=>"======"*i.size;case 2|16=>b*i.size;case 4|11=>n*i.size;case 3=>i flatMap{d=>{if(d.asDigit<5)b else n}};case 5=>i flatMap{d=>{if(d.asDigit>4)b else n}};case _=>i flatMap{d=>{if(l<11)if(d.asDigit%5<l-6)n else b else if(d.asDigit%5>l-12)n else b}}});;print(l match{case 1=>"=/|";case 6=>"=>|";case 17=>"=\\|";case _=>" ||"})}}}

Досить хитра спроба насправді.

— Гарет
джерело
1

Ковзання , 77 ч

Баунті посилається на твіти , а Twitter рахує символи (а не байти). :)

꿓뤽꿓뤽①長復標독렽꿐②껷렊밃겠上❶가侔是丟돃렽꿐②꿧렊不돇렠글⓶①各❷❷걐剩減갰減갰分❸⓷걀大加增增감右與꺅뭟꺒갠⓵긇롼긂갠嗎⓶終丟돇렊終終돂묽꿐②뇇렊

Я фактично писав це років тому (коли це завдання було опубліковано), але я ніколи не публікував це, тому що я винайшов «Сліпінг» після цього виклику. Якщо ви відчуваєте, що це робить його непридатним, я розумію.

Пояснення

꿓뤽꿓뤽①長復 | let x = "======" times the length of the input string
標 | mark
독렽꿐②껷렊 | "|\\==" + x + "/|\n"
밃겠上 | for row in [-4 .. 10]
    ❶가侔是 | if row == 0
        丟돃렽꿐②꿧렊 | "|<==" + x + ">|\n"
    不 | else
        돇렠글 | "||  "
        ⓶①各 | foreach char c in input
            | ((r-(c%5)-3)/3 & ((r + (c>4?3:2)) >> 1)) ? "(__) " : " ||   "
            ❷❷걐剩減갰減갰分❸⓷걀大加增增감右與꺅뭟꺒갠⓵긇롼긂갠嗎⓶
        終丟
        돇렊 | "||\n"
    終
終
돂묽꿐②뇇렊 | "|/==" + x + "\\|\n"
— Тімві
джерело
Дякуємо за вашу цікаву відповідь. Я погоджуюсь, що найкраще дотримуватися правила, згідно з яким мають бути лише мови, які публікуються до того, як задається питання. Я не вірю, що ви б навмисно створили свою мову, щоб перемогти в цьому виклику, але в той же час я не думаю, що це справедливо щодо інших відповідників, і ми не хочемо відкривати шлюзи для нових винахідливих мов на старих питання, оскільки ми знаємо, що станеться ...
— gnibbler
@ gnibbler: Звичайно, я з цим добре. Я думаю, що це правило є важливим.
— Тімві
1

Пітон, 309 301 288 символів

Компактна версія:

q=p,b="  ||  "," (__) "
t="|| %s ||\n"
a=lambda h:t%"".join(q[i]for i in h)
n=[int(d)for d in str(input())]
c=len(n)
e="="*(c*6+2)
h="|\\"+e+"/|"
print h+"\n"+t%(b*c)+a(d<5 for d in n)+t%(p*c)+a(d>4 for d in n)+"|<"+e+">|\n"+"".join(a((d%5>i%5)^(i>4)for d in n)for i in range(10))+h[::-1]

Очистити версію:

bead = " (__) "
pole = "  ||  "
template = "|| %s ||\n"
output = ""
def addline(hasbeads):
    global output
    output += template % "".join([bead if item else pole for item in hasbeads])

digits = [int(d) for d in str(input())]
count = len(digits)
equalsigns = "=" * (count * 6 + 2)
output = ""
header = "|\\" + equalsigns + "/|"
output += header + "\n"
output += template % (bead * count)
addline([d < 5 for d in digits])
output += template % (pole * count)
addline([d > 4 for d in digits])
output += "|<" + equalsigns + ">|\n"
for i in range(5):
    addline([d % 5 > i for d in digits])
for i in range(5):
    addline([d % 5 <= i for d in digits])
output += header[::-1]
print output

Зауважте, що для компактизації змінні були перейменовані на одну букву, а розуміння списку було змінено на генератори, які не потребують додаткових дужок.

— Наюкі
джерело
Використовуючи наш веб-сайт, ви визнаєте, що прочитали та зрозуміли наші Політику щодо файлів cookie та Політику конфіденційності.
Licensed under cc by-sa 3.0 with attribution required.