Визуализируйте длинное умножение с искусством ASCII

12

Соревнование

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

Например:

вход

14, 11

Выход программы

     14
    x11
   _____
     14
    14
  ______
    154

вход

-7, 20

Выход программы

     -7
    x20
   _____
     00
    14
   _____
   -140

Предположим, всегда правильные входные данные и числа в диапазоне [-999, 999]

Критерии победы

Самый короткий код выигрывает!

code-golf ascii-art arithmetic Аверроэс
источник
Настроен на согласованность с codegolf.stackexchange.com/questions/1624/…
Питер Тейлор,

Ответы:

3

Perl, 108 символов

Лучшее в своем роде решение на 108 символов, включающее некоторые идеи от Orabig.

($x,$y)=<>=~/[-\d]+/g;printf"%7s
",$_ for$x,x.$y,"-"x7,(map{abs($x*$_).$"x$i++}reverse$y=~/\d/g),"-"x7,$x*$y

Ранее 139 символов решения

sub P{sprintf"%*d",@_}
($x,$y)=<>=~/[^,]+/g;$,=$/;
print P(7,$x),"  x".P(4,$y),"-"x7,(map{P 7-$i++,abs$_*$x}reverse$y=~/\d/g),
"-"x7,P 7,$x*$y
чернь
источник
/ Я преклоняюсь перед уважением ... Я не видел возможности включить карту в часть printf. И $y=~/\d/gхитрость была умной
Orabîg
5

Mathematica 213 217 197 193 186 184 193 184 177

Код

a_~g~b_ := 
With[{e = IntegerDigits@b}, Column[Flatten@{a, UnderBar["x " <> IntegerString[b]], 
Table[Row @@ {PadRight[{a Reverse[e][[i]]}, i, " "]}, {i, Length@e}], OverBar[a b]}, 
Alignment -> Right]]

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

g[845, 921]

умножить

DavidC
источник
Конечно, IntegerString[921]вы имеете в виду IntegerString[b]?
Дэвид Чжан
Да, хороший улов!
DavidC
Я думаю, что спецификация позволяет удалить пространство в "x ".
ɐɔıʇǝɥʇuʎs
Вы правы. Я решил оставить это, потому что это выглядело лучше (и я не собирался иметь самый короткий код в любом случае).
DavidC
1

Python, 174 170:

a,b=input();r,s=str(a),str(b);h=len(r+s)*'-';print'\n'.join(["%9s\n%9s\n%9s"%(r,'x'+s,h)]+["%%%ii"%(9-i)%(int(d)%10*a)for i,d in enumerate(s[::-1])]+["%9s\n%9i"%(h,a*b)])

Использование: точно в соответствии с запросом, запустите и введите значения в стандартный ввод.

Чтобы увидеть работает: http://ideone.com/S8xNb

Выход:

     1234
    x5678
 --------
     9872
    8638
   7404
  6170
 --------
  7006652

Благодаря Фабиоцеркейре и Беари605 и Дэвиду Каррахеру

olivecoder
источник
Вы можете удалить 4 символа пробела: print '\n'-> print'\n', 10*a) for i,d in enumerate-> 10*a)for i,d in enumerate, "%9s\n%9i" % (h,a*b)->"%9s\n%9i"%(h,a*b)
beary605
1

Python, 145, другой ответ с немного другим выводом.

Код

a,b=input();h=6*'-';print'\n'.join(["%6i\nx%5i\n%s"%(a,b,h)]+["%%%ii"%(6-i)%(int(d)%10*a)for i,d in enumerate(str(b)[::-1])]+["%s\n%6i"%(h,a*b)])

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

как и просили

Выход

   999
x  999
------
  8991
 8991
8991
------
998001

Чтобы увидеть работает: http://ideone.com/mdR18

olivecoder
источник
1

Perl , 157 151 150 144 141 133 символа:

($x,$y)=<>=~/[-\d]+/g;map{$z=~s/z/ z/g;$z=(abs$x*$_)."z$z"}split//,abs$y;map{printf"%6s
",$_}$x,"x$y",$b="-"x6,(split/z/,$z),$b,$x*$y

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

>echo "-123, 456" | perl mult.pl
   -123
   x456
-------
    738
   615
  492
-------
 -56088
Orabîg
источник
Сегодня