Multiplique dois números

21

Entrada: Dois números inteiros decimais. Eles podem ser fornecidos ao código na entrada padrão, como argumentos para o programa ou função ou como uma lista.

Saída: seu produto, como um número inteiro decimal. Por exemplo, a entrada 5 16levaria à saída 80.

Restrições: Nenhuma brecha padrão, por favor. Isso é , responda na menor quantidade de bytes ganhos.

Notas: Layout roubado do meu desafio anterior. Adicione dois números .

Casos de teste:

1 2   -> 2
4 5   -> 20
7 9   -> 63
-2 8  -> -16
8 -9  -> -72
-8 -9 -> 72
0 8   -> 0
0 -8  -> 0
8 0   -> 0
-8 0  -> 0
0 0   -> 0

Ou como CSV:

a,b,c
1,2,2
4,5,20
7,9,63
-2,8,-16
8,-9,-72
-8,-9,72
0,8,0
0,-8,0
8,0,0
-8,0,0
0,0,0

Entre os melhores

dkudriavtsev
fonte
4
@FlipTack Isso pressupõe que a adição e a multiplicação sejam tão fáceis em qualquer idioma, o que não sei se é realmente verdade.
Fatalize
16
Não acho justo permitir o desafio "adicionar dois números", mas encerrar este. Mesmo sendo muito trivial na maioria das linguagens de programação, ainda é um desafio válido. Se isso for muito amplo, o desafio "adicionar dois números" também deve ser muito amplo.
Mego
32
Qualquer um é livre de votar em desafios triviais se não gostar deles, mas esse é um desafio perfeitamente válido e sobre o assunto e não está nem perto de ser "muito amplo" (se houver, você pode considerar um desafio trivial muito restrito). Estou reabrindo isso. Dito isto, se alguém sente que desafios triviais insultam sua inteligência, encorajo-os a procurar idiomas que tornem a tarefa menos trivial.
Martin Ender
16
Uo próximo: subtraia dois números!
911717
7
@wat Deixando o fundo do barril intacto, não é?
Gareth

Respostas:

39

Brachylog V1, 05AB1E, J, K, Underload, MATL, Adiante, PigeonScript, Empilhado, implícito, Jolf, Clojure, Braingolf, 8o, Lisp comum, Julia, Pyt, Appleseed, Stax, Realidade, dc 1 byte

*

Você pode editar esta resposta para adicionar outros idiomas para os quais *é uma resposta válida.

Fatalize
fonte
Polygot, 05AB1E e outras 5 línguas.
Magic Octopus Urn
13
Eu editei Underload para isso. É possivelmente o mais interessante deles, porque o Underload não possui um método de 1 byte para fazer subtração, divisão ou adição.
Aqui está outro: codegolf.stackexchange.com/a/106187/62257
Baaing Cow
Isso não é válido em Pyth. Pyth não aceita dados implícitos como este.
Isaacg
Adicionado Julia, por exemplo*(5,16)
gggg
32

C (GCC), 13 bytes

Não funciona em todas as implementações, mas tudo bem.

f(a,b){a*=b;}

Experimente no TIO!

betseg
fonte
6
Espere, isso deveria retornar de alguma forma a? Eu não entendi ...
Erik the Outgolfer
2
Uma explicação de como isso funciona seria útil. ( aé uma variável de pilha local para f()- por que seu valor é retornado?). +1, btw - abuso muito inteligente da ABI.
Digital Trauma
6
@EriktheOutgolfer A returnpalavra-chave simplesmente coloca o resultado do seu argumento no registro EAX. Nesse caso, o executável gerado faz o cálculo a*bnesse registrador, portanto returnnão faz nada.
Dennis
7
Ei, esse foi o meu truque! codegolf.stackexchange.com/a/106067/18535 :-)
GB
12
Tão feliz em ver C no topo pela primeira vez! Na verdade, você pode cortar cerca de 9 bytes simplesmente substituindo a f(a,b){a*=b;}peça 1##&e mudando seu idioma para Mathematica.
Albert Renshaw
21

Beatnik , 888 bytes

k I
j k ZZZZX z
xw k C vp yQ KD xw z j k ZZZZX z
j k ZZZD z xw bZ ZX
k XX z qs xw vp xw xw vp xw vp vp vp k I Xj ZZD hd
xw yQ K k ZZZZX xo exx
qs yQ XA xw xw xw xw z xw bZ K
xw xw k I
j k ZZZZX z
xw k C vp yQ XA hd k I z j k ZZZZX z
j xw k A vp bZ ZX
k ZZZZX z qs xw vp xw xw vp xw vp vp vp k I Xj ZZD hd
xw yQ K k ZZZZX xo exx
qs yQ F k ZZZZK xo
vp
xw xw z qs xw bZ X xw k I z xw Xj K
qs xw bZ KA vp qs xw Xj C hd
qs z xw xw xw xw z qs
xw xw xw xw z qs k I qs k I z xw Xj ZC
qs bZ ZZZX qs xw yQ C hd xw
k I vp qs k I qs
xw Xj ZZC hd hd z Kz ZZD
k I z xw xw xw xw z qs k I qs k I Xj ZZZZF
z
xw xw z qs xw bZ X xw k I z xw Xj K
qs xw bZ KA vp qs xw Xj C hd
z qs xw
xw xw z qs xw bZ X xw k I z xw Xj K
qs xw bZ KA vp qs xw Xj C hd
z vp
xw xw z qs
xw xw z qs
k I qs
xw bZ ZZX k I z qs k I vp
xw k ZA z yQ ZA hd qs k I vp qs k I Xj ZZKD
qs xw Xj ZZK
hd qs xw Xj ZZZZ hd
k ZZZZKD vp xo xw Xj K

Experimente online!

Estou usando o intérprete C, porque o intérprete Python no TIO executa o endereço irritantemente se a condição para retroceder não for atendida. Uma solução fácil para o interpretador Python é preencher alguns nops para tornar o endereço nop. Eu acredito que nenhum dos dois está correto:

                                   C       Python  My interpretation
IP after skiping N words           IP+N+1  IP+N+2  IP+N+2
IP after skiping back N words      IP-N    IP-N+1  IP-N+2
IP after not skiping N words       IP+2    IP+2    IP+2
IP after not skiping back N words  IP+2    IP+1    IP+2

A entrada deve ser dois números inteiros separados por um espaço, sem novas linhas à direita.

Esta resposta funciona em teoria para todos os números inteiros, se cada célula puder armazenar um valor arbitrariamente grande, não limitado a 0 - 255. Mas ela excederá se | A | + | B | > 22. E corre muito lentamente se | A | + | B | > 6. Portanto, não há muitos casos que você pode testar e uma solução if-else para esses casos pode ser ainda mais curta.

A idéia é calcular os números triangulares T (N) = N (N + 1) / 2, diminuindo o valor para 0 e somando todos os valores intermediários. Então podemos obter a resposta A * B = T (A + B) - T (A) - T (B).

Mas é complicado calcular todos os 3 valores. Ele faz isso computando primeiro T (A + B) - A, deixando uma cópia de A na pilha para adicionar novamente mais tarde e usando a entrada B. Em seguida, encontre recursivamente o maior número triangular menor que aquele, que é T ( A + B-1), exceto nos casos especiais nulos. Podemos recuperar B = T (A + B) - A - T (A + B-1) e calcular T (B) a partir daí.

Um número N é um número triangular se for igual ao maior número triangular menor que N, mais o número de números triangulares não negativos menores que N. Isso ocorre em O (2 ^ (T (A + B) -A)) e é a parte mais lenta do programa.

k I                                         Push 1
j k ZZZZKAAA z                              Input and decrement by 48.
xw k AAA vp yQ (input_a_loop)               If the character was '-':
xw z j k ZZZZKAAA z                           Replace with 0 and input another.
input_a_loop:
j k ZZZAA z xw bZ (input_a_end)             Input and break if it is a space.
k ZKA z qs xw vp xw xw vp xw vp vp vp       Otherwise multiply the previous
                                              value by 10 and add.
k I Xj (input_a_loop)                       Continue the loop.
input_a_end: hd                             Discard the space.
xw yQ (check_sign) k ZZZZKAAA xo exx        If A=0, print 0 and exit.
                                            Stack: ?, A_is_positive, A
check_sign:
qs yQ (check_sign_else)                     If A is positive... or not,
xw xw xw xw z xw bZ (check_sign_end)          in either cases, push 2 copies
check_sign_else: xw xw k I                    of A and the negated flag back
check_sign_end:                               as a constant.
                                            Stack: A, A, A, A_is_negative
j k ZZZZKAAA z                              Similar for B.
xw k AAA vp yQ (input_b_loop)               If the character was '-':
hd k I z j k ZZZZKAAA z                       Decrement the flag and input another.
input_b_loop:
j xw k A vp bZ (input_b_end)                EOF is checked instead of a space.
k ZZZZKAAA z qs xw vp xw xw vp xw vp vp vp
k I Xj (input_b_loop)
input_b_end: hd
xw yQ (output_sign) k ZZZZKAAA xo exx       If B=0, print 0 and exit.
                                            Stack: A, A, A, A*B_is_negative, B
output_sign:
qs yQ (output_sign_end) k ZZZZK xo          If negative, output '-'.
output_sign_end:

vp                                          Add.        Stack: A, A, A+B
xw xw z qs                                  Insert a 0. Stack: A, A, 0, A+B.
xw bZ { xw k I z xw Xj }                    Copy and decrement while nonzero.
                                            Stack: A, A, 0, A+B, A+B-1, ..., 0
qs xw bZ { vp qs xw Xj } hd                 Add while the second value in the
                                              stack is nonzero.
                                            Stack: A, A, T(A+B)
qs z xw xw xw xw z qs                       Stack: A, C0=T(A+B)-A, C0, F0=0, C0

expand_loop:
xw xw xw xw z qs k I qs                     Stack: A, C0, C0, F0=0,
                                              ..., [P=C, P, S=0, F=1], C
dec_expand: k I z xw Xj (expand_loop)       Decrement and continue if nonzero.
                                            Stack: [P=1, P, S, F], C=0
                                            The last number 0 is assumed to
                                              be a triangular number.
test: qs bZ (extract_end)                   If F=0, break.
qs xw yQ (test_not_first) hd xw             If S=0, it's the first triangular
                                              number below previous C. Set S=C.
test_not_first: k I vp qs k I qs            S+=1 and restore F=1.
xw Xj (dec_expand)                          If C!=0, recursively expand from C-1.
hd hd z Kz (test)                           If S=P, P is a triangular number,
                                              return to the previous level.
k I z xw xw xw xw z qs k I qs               Otherwise, decrement P and try again.
k I Xj (dec_expand)
extract_end:                                Stack: A, C0, C0, T(A+B-1)

z                                           Subtract and get B.
xw xw z qs xw bZ { xw k I z xw Xj }         Computes T(B).
qs xw bZ { vp qs xw Xj } hd
                                            Stack: A, C0, T(B)
z qs xw                                     Stack: C0-T(B), A, A

xw xw z qs xw bZ { xw k I z xw Xj }         Computes T(A).
qs xw bZ { vp qs xw Xj } hd
z vp                                        Get A*B=(C0-T(B))+(A-T(A))
xw xw z qs                                  Stack: 0, X=A*B

divide: xw xw z qs                          Stack: 0, ..., Y=0, X
subtract: k I qs                            Stack: 0, ..., Y, Z=1, X
xw bZ {                                     While X!=0:
k I z qs k I vp                               X-=1, Z+=1.
xw k ZA z yQ (not_ten)                        But if Z=11:
hd qs k I vp qs k I Xj (subtract)               Y+=1, reset Z and restart the loop.
not_ten: qs xw Xj }
hd qs xw Xj (divide)                        Put Z under Y and make Y the new X,
                                              continue the loop if X!=0.
hd                                          Discard X.

print_loop:
k ZZZZKAA vp xo xw Xj (print_loop)          Add each cell by 47 and print.
jimmy23013
fonte
Woah. Apenas ... uau. Eu coloquei a recompensa, você receberá em 7 dias.
NieDzejkob 14/04/19
19

Mathematica, 4 bytes

1##&

Exemplo de uso: 1##&[7,9]retorna 63. De fato, essa mesma função multiplica qualquer número de argumentos de qualquer tipo juntos.

Como os codegolfistas do Mathematica sabem, isso funciona porque ##se refere a toda a sequência de argumentos de uma função, e a concatenação no Mathematica (geralmente) representa multiplicação; portanto 1##refere-se a (1 vezes) do produto de todos os argumentos da função. o& é apenas uma abreviação do Functioncomando que define uma função pura (sem nome).

Dentro de outro código, o símbolo comum *atua como multiplicação. O mesmo acontece com um espaço, de modo que 7 9é interpretado como 7*9(de fato, a versão atual do Mathematica do REPL realmente exibe esses espaços como sinais de multiplicação!). Melhor ainda, se o Mathematica pode dizer onde um token inicia e outro termina, então nenhum bytes é necessário para um operador de multiplicação: 5yé automaticamente interpretado como 5*ye 3.14Log[9]como 3.14*Log[9].

Greg Martin
fonte
O que torna ##&inválido?
Lynn
##&retorna sua lista de argumentos como um objeto 'Sequência' - adequado para conectar-se a outras funções que recebem vários argumentos. Nesse contexto, ##&não faz nada com sua lista de argumentos; queremos que essa lista seja multiplicada.
Greg Martin
19

Retina , 38 37 31 bytes

Abordagem completamente nova, a antiga está abaixo.

M!`-
*\)`-¶-

.* 
$*_
_
$'$*_
_

Experimente online!

Explicação

Primeiro, lidamos com o sinal:

M!`-

corresponde a tudo -na string e os retorna separados por novas linhas

*\)`-¶-

(com uma linha vazia a seguir)
*\)significa que o resultado deste e dos estágios anteriores deve ser impresso sem uma nova linha e, em seguida, a sequência reverte para a que era antes (a sequência de entrada). A parte restante remove dois- separados por uma nova linha.

Em seguida, convertemos o primeiro número em unário:

.* 
$*_

(há um espaço no final da primeira linha). Usamos _como nosso dígito unário nesse caso, porque o dígito padrão1 pode estar presente no segundo número e isso entraria em conflito mais tarde.

Agora chegamos à multiplicação real:

_
$'$*_

Cada um _é substituído pela representação unária de tudo o que segue (ainda usando _como dígito unário). Como a conversão para unário ignora caracteres que não são dígitos, isso repetirá a representação unária do segundo número por vezes do "primeiro número". O segundo número permanecerá na representação decimal no final da string.

No final, com um único _, retornamos o número de _na string, que será o resultado da multiplicação.


Resposta anterior: (aviso: gera uma string vazia quando deve ser exibida 0)

Retina ,  45  42 41 bytes

Vamos jogar um jogo! Multiplique números relativos por um idioma que não possui operadores aritméticos e suporte limitado apenas a números naturais ... Parece engraçado :)

O^`^|-
--

\d+
$*
1(?=1* (1*))?
$1
1+
$.&

Explicação

As três primeiras linhas tratam do sinal:

O^`^|-

Isso classifica Oe, em seguida, reverte ^todas as seqüências correspondentes ao regex ^|-. Na prática, isso corresponde à sequência vazia no início e ao eventual sinal de menos antes do segundo número, e reordena-os colocando a sequência vazia no lugar do menos. Depois disso, todos -estão no início da sequência e um par deles pode ser removido facilmente com as próximas duas linhas.

Depois disso, usamos um builtin para converter números em representação unária e, em seguida, vem a multiplicação real:

1(?=1* (1*))?
$1

Combinamos qualquer um 1e substituímos cada um deles por todo o 1espaço a seguir. Cada dígito do primeiro número será substituído pelo segundo número inteiro, enquanto que cada dígito do segundo número será substituído pela sequência vazia.

A última parte é novamente incorporada para converter novamente de unário para decimal.

Experimente online!

Leo
fonte
2
Eu gostaria de poder votar novamente cada vez que você jogar, bom trabalho!
Kritixi Lithos
Uau, essa nova abordagem é incrível. Eu acho que você venceu. :) (E me convence ainda mais que o caractere padrão $*deve ser _).
Martin Ender
Aliás, aqui está uma solução somente ASCII com a mesma contagem de bytes, caso você prefira: tio.run/nexus/retina#U9VwT/…
Martin Ender
1
Curiosidade: aparentemente eu já havia descoberto o truque de misturar um operador unário e um decimal em algum momento.
Martin Ender
1
Eu tentei atualizar isso para o Retina 1.0 e, graças aos novos limites e ao novo operador de repetição, ele só precisa de 23 bytes agora: tio.run/##K0otycxLNPyvpxqj4Z7wX8vOR9dQxyBBl0tPW4dLiyueS0UdSP7/… ... você pode até fazer a multiplicação única de números positivos em uma estágio agora ( .+,(.+)para $.($1**), mas na verdade são mais bytes aqui.
Martin Ender
18

Zero , 1 byte

insira a descrição da imagem aqui

Uso: Coloque números nos dois lados do * sinal

Nota: Como o Scratch é uma linguagem visual, não consegui descobrir quantos bytes ele consome até @ mbomb007 me mencionar sobre um método para contar bytes de scratch

rahnema1
fonte
@ mbomb007 Obrigado pelo seu comentário!
rahnema1
15

Brain-Flak , 56 bytes

([({}<([({})<>])<>>)<>]){({}[()]<(({})<({}{})>)>)<>}{}{}

Isso deve ser executado como um programa completo, pois não é uma pilha limpa e as entradas devem ser os únicos elementos em qualquer pilha.

Experimente online!


Explicação: (chame as entradas x e y)

Parte 1:

([({}<([({})<>])<>>)<>])

([                    ]) # Push negative x on top of:
      ([      ])         # negative y. After...
  ({}<            >)     # pushing x and...
        ({})             # y...
            <>  <>  <>   # on the other stack (and come back)

Neste ponto, temos [x, y] em uma pilha e [-x, -y] na outra.

Parte 2:

{({}[()]<(({})<({}{})>)>)<>}{}{}
{                          }     # Loop until x (or -x) is 0
 ({}[()]<              >)        # Decrement x
         (({})<      >)          # Hold onto y
               ({}{})            # Add y and the number under it (initially 0)
                         <>      # Switch stacks
                            {}{} # Pop x and y leaving the sum
Riley
fonte
1
Uau! Definitivamente a resposta mais impressionante até agora
DJMcMayhem
@DJMcMayhem E (ligeiramente modificada) bate o da wiki por 18 bytes
Riley
Você tem acesso de gravação ao wiki do brain-flak? Adoraria fazer upload de uma versão mais curta.
DJMcMayhem
@DJMcMayhem Não tenho acesso. Postei a mais curta na sala de bate-papo da Brain-Flak, se você quiser dar uma olhada e carregá-la.
Riley #
Eu sei que já faz um tempo, mas você tem alguma concorrência ;)
Assistente de Trigo
11

JavaScript (ES6), 9 bytes

O ES6 possui uma função dedicada para números inteiros de 32 bits, mais rápido que o *operador mais genérico .

Math.imul

Aliás, isso é apenas enquanto:

a=>b=>a*b
Arnauld
fonte
Impressionante, agora eu sei Math.imul, obrigado!
chau giang 01/04
9

Explosão Cerebral , 56 54 52 bytes

2 bytes salvos graças a um erro detectado pelo Nitrodon

({}(<()>)<>)({<([{}({}())])><>([{}]([{}]))<>}<{}{}>)

Experimente online!

Versão limpa da pilha, 62 60 bytes

({}(<()>)(<>))({<([{}({}())])><>([{}]([{}]))<>}<{}{}<>{}{}>)

Experimente online!

Explicação

Esta explicação é mais uma explicação do algoritmo envolvido e deixa de fora qualquer código real. Supõe-se que você saiba ler o Brain-Flak proficientemente. Se você precisar de ajuda para entender o código ou o algoritmo, ficarei feliz em editar ou responder se você deixar um comentário.

Isso é um pouco estranho e usa uma matemática estranha que mal funciona. A primeira coisa que fiz foi fazer um loop que sempre terminava em O (n) etapas. A maneira normal de fazer isso é colocar n e -n em pilhas opostas e adicionar uma a cada uma até chegar a zero, no entanto, eu fiz isso de uma maneira um pouco mais estranha. No meu método, coloquei um contador embaixo da entrada e a cada passo que incremento o contador, adicione-o a ne aponte o sinal de n .

Vamos dar um exemplo. Diga n = 7

7  -8   6  -9   5 -10   4 -11   3 -12   2 -13   1 -14   0
0   1   2   3   4   5   6   7   8   9  10  11  12  13  14

Não vou provar aqui, mas isso sempre terminará para qualquer entrada e o fará em cerca de 2n etapas. De fato, terminará em 2n etapas se n for positivo e 2n-1 etapas se n for negativa. Você pode testar isso aqui .

Agora, temos cerca de 2n etapas em nosso loop, como multiplicamos por n ? Bem, aqui tem um pouco de magia matemática. Aqui está o que fazemos: Criamos um acumulador; em cada etapa do processo, adicionamos a segunda entrada ( m ) ao acumulador e mostramos o sinal de ambos; depois, empurramos o total sobre todos os loops que ocorrem, esse é o produtos.

Por que diabos é esse o caso?

Bem, vamos percorrer um exemplo e espero que fique claro. Neste exemplo, estamos multiplicando 5 por 3 , mostrarei apenas os valores importantes

total       -> 0  -5   5 -10  10 -15  15
accumulator -> 0  -5  10 -15  20 -25  30
m           -> 5  -5   5  -5   5  -5   5

Espero que o mecanismo seja aparente aqui. Estamos percorrendo todos os múltiplos de m na ordem de seus valores absolutos. Você notará que o th é sempre m * n e o termo antes de sempre -m * n . Isso faz com que nosso loop se alinhe perfeitamente com os resultados que queremos. Um pouco de feliz coincidência;)

Assistente de Trigo
fonte
8

R, 3 bytes

'*'

This is a function which takes exactly two arguments. Run as '*'(a,b).

See also prod which does the same thing but can take an arbitrary number of arguments.

rturnbull
fonte
Is this a valid expression in its own right? If not, it needs to be submitted as '*'.
@ais523 Ah, you're right, it's not a valid expression on its own. I've edited the post to clarify. Thanks!
rturnbull
4
To the downvoters: This has been fixed.
Rɪᴋᴇʀ
8

ArnoldC, 152 bytes

HEY CHRISTMAS TREE c
YOU SET US UP 0
GET TO THE CHOPPER c
HERE IS MY INVITATION a
YOU'RE FIRED b
ENOUGH TALK
TALK TO THE HAND c
YOU HAVE BEEN TERMINATED

Try it online!

Tom291
fonte
1
+1 ENOUGH TALK (newline) TALK TO THE HAND
MilkyWay90
8

Hexagony, 9 bytes

?{?/*!@'/

Try it online!

This is actually fairly straightforward. Here is the unfolded version:

  ? { ?
 / * ! @
' / . . .
 . . . .
  . . .

The / just redirect the control flow to the second line to save bytes on the third. That reduces the code to this linear program:

?{?'*!@

This linear code on its own would actually be a valid solution if the input was limited to strictly positive numbers, but due to the possibility of non-positive results, this isn't guaranteed to terminate.

The program makes use of three memory edges in a Y-shape:

A   B
 \ /
  |
  C

The memory pointer starts on edge A pointing towards the centre.

?   Read first input into edge A.
{   Move forward to edge B.
?   Read second input into edge B.
'   Move backward to edge C.
*   Multiply edges A and B and store the result in C.
!   Print the result.
@   Terminate the program.

I ran a brute force search for 7-byte solutions (i.e. those that fit into side-length 2), and if I didn't make a mistake (or there's a busy-beaver-y solution that takes a long time to complete, which I doubt) then a 7-byte solution doesn't exist. There might be an 8-byte solution (e.g. by reusing the ? or using only one redirection command instead of two /), but that's beyond what my brute force search can do, and I haven't found one by hand yet.

Martin Ender
fonte
7

Piet, 16 bytes

5bpiaibpikibptai

Online interpreter available here.

Explanation

To run, paste the code above in the text box on the right side of the linked page. Below is a graphical representation of this code with codel size 31. The grid is for readability and may interfere with traditional Piet interpreters.
The code runs linearly from left to right, going along the top of the image until the first green block, where program flow moves to the middle row of codels. The white lone white codel is necessary for program flow. It could be replaced with a codel of any color other than green or dark blue, but I have chosen white for readability.

Code Visualization

Instruction    Δ Hue    Δ Lightness    Stack
-----------    -----    -----------    -----
In (Number)    4        2              m
In (Number)    4        2              n, m
Multiply       1        2              m*n
Out (Number)   5        1              [Empty]
[Exit]         [N/A]    [N/A]          [Empty]

If you think that text is not the best way to represent a Piet program or have an issue with the byte size of Piet programs in general, please let your opinion be known in the discussion on meta.

Mike Bufardeci
fonte
7

BitCycle -U, 68 bytes

  >    > v
 ?+ >  +
Bv ?^ v ~
 \  v<CB~\v
 Cv  ^  <\/
^ <@=!   <
0A^

Try it online!

Multiplying two numbers is not a trivial problem in BitCycle, especially when signs need to be handled! This is my second attempt; the first one (essentially same algorithm, different layout) was 81 bytes, so it's quite possible this one could be shortened too.

The program takes the two numbers as command-line arguments and outputs to stdout. The -U flag is to convert the decimal numbers to signed unary, since BitCycle knows only of 0's and 1's.

Explanation

This explanation assumes you understand the basics of BitCycle (see Esolangs or the GitHub readme). I'll base my explanation on this ungolfed version, seen here computing -2 times 3:

Signed multiplication in BitCycle

Overview

Signed unary numbers consist of the sign (0 for nonpositive, empty for positive) followed by the magnitude (a number of 1s equal to the number's absolute value). To multiply two of them, we need to XOR the signs (output a 0 if exactly one of them is 0, or nothing if both or neither are) and then multiply the magnitudes (and output that many 1s). We'll achieve the multiplication by repeated addition.

Sign bits

Starting from the two sources ?, we split off the signs from the magnitudes using +. 0s (sign bits) turn left and are directed along the top row, while 1s (magnitudes) turn right and end up in the two B collectors.

The section that handles the signs looks like this:

  v

  \  v
> \  /

! <

If both numbers are nonpositive, two 0 bits come in from the top v. The first one reflects off the top \, is sent southward, and reflects off the /. Meanwhile, the second bit passes through the deactivated top \ and reflects off the bottom \. The two bits pass each other, go straight through the now-deactivated splitters on the bottom row, and go off the playfield.

If only one of the numbers is nonpositive, one 0 comes in from the top. It bounces around all three splitters and ends up going northward again, until it hits the v and is once more sent south. This time, it passes through the deactivated splitters and reaches the <, which sends it into the sink !.

Loops to store the magnitudes

The magnitude of the first number goes into the B collector in this section:

B v
  \
  C v
^   <

0 A ^

Before the B collector opens, the A collector releases the single 0 that was placed in it, which then goes onto the end of the queue in B. We'll use it as a flag value to terminate the loop when all the 1 bits in B are gone.

Each time the B collectors open, the \ splitter peels off the first bit from the queue and sends it to the processing logic in the middle. The rest of the bits go into C, and when the C collectors open, they are sent back into B.

The magnitude of the second number goes into the B collector in this section:

v   ~
C B ~
    <

When the B collectors open, the bits go into the bottom dupneg ~. The original 1 bits turn right and are sent west into the processing logic in the middle. The negated copies (0s) turn left and immediately hit another dupneg. Here the 0s turn right and go off the playfield, while the (now doubly) negated 1s turn left and are sent into C. When C opens, they go back into B.

Repeated addition

The central processing logic is this part:

   v
   v


@  =  !

Bits from both loops (one from the western side, and everything from the eastern side) are sent south into the switch =. The timing has to be set up so that the bit from the western loop gets there first. If it is a 1, the switch changes to }, sending the following bits eastward into the sink ! to be output. Once all the 1s are gone, we get the 0, which changes the switch to {. This sends the following bits into the @, which terminates the program. In short, we output the (unary) magnitude of the second number as many times as there are 1s in the (unary) magnitude of the first number.

DLosc
fonte
6

Python 3, 11 bytes

int.__mul__

Try it online!

Also works for integers under 2**32 in Python 2.

Blue
fonte
6

Java 8, 10 9 bytes

a->b->a*b

Try it here.

Java 7, 31 bytes

int c(int a,int b){return a*b;}

Try it here.

As full program (99 90 bytes):

interface M{static void main(String[]a){System.out.print(new Long(a[0])*new Long(a[1]));}}

Try it here.

Kevin Cruijssen
fonte
2
There's a typo in you full program, should be * instaed of +.
corvus_192
You don't need parenthesis around a,b in the lambda expression.
FlipTack
5

Pyth, 2 bytes

*E

Try it here!

Pyth's automatic evaluation gets in the way here. To get around it, I'm using explicit evaluation for one of the arguments

Blue
fonte
Wow, that's nice. This will be handy in future.
Gurupad Mamadapur
5

TI-Basic, 2 bytes

Very straightforward.

prod(Ans
Timtech
fonte
1
Ans is not an allowed I/O method.
Mego
2
According to who? That link shows seven votes
Timtech
1
@Timtech it wasn't at the time of the comment but it was posted in chat so just became valid
Blue
Alright, thanks for the tip @muddyfish
Timtech
5

PHP, 21 bytes

<?=$argv[1]*$argv[2];

takes input from command line arguments. Also works with floats.

Titus
fonte
5

Retina, 39 35 bytes

Thanks to Leo for letting me use an idea of his that ended up saving 4 bytes.

[^-]

*\)`--

.+
$*
\G1
_
_|1+
$'
1

Input is linefeed-separated.

Try it online! (Space-separated test suite for convenience.)

Explanation

The first two stages print a minus sign if exactly one of the two inputs is negative. They do this without actually changing the input. This is done by grouping them in the second stage with ) and turning them into a dry-run with *. The \ option on the second stage prevents printing a trailing linefeed.

[^-]

First, we remove everything except the minus signs.

*\)`--

Then we cancel the minus signs if there are two of them left.

.+
$*

Now we convert each line to the unary representation of its absolute value. This will get rid of the minus sign because $* only looks for the first non-negative number in the match (i.e. it doesn't know about minus signs and ignores them).

\G1
_

The first line is converted to _, by matching individual 1s as long as their adjacent to the previous match (hence, we can't match the 1s on the second line, because the linefeed breaks this chain).

_|1+
$'

This performs the actual multiplication. We replace each _ (on the first line) as well as the entire second line everything after that match. The _ matches will therefore include the entire second line (multiplying it by the number of 0s in the first line), and the second line will be removed because there is nothing after that match. Of course the result will also include some junk in the form of _s and linefeeds, but that won't matter.

1

We finish by simply counting the number of 1s in the result.

Martin Ender
fonte
5

MATLAB, 5 4 bytes

@dot

dot takes the dot product of two vectors of equal length. If we feed it with two scalars, it will simply multiply the two numbers.

prod takes the product of the values in all rows of each column of a matrix. If the matrix is one-dimensional (i.e. a vector), then it acts along the non-singleton dimension, taking the product of all elements in the vector.

dot is one byte shorter than prod which is one byte shorter than the even more obvious builtin times.

Call it as such:

@dot
ans(3,4)
ans = 
   12
Stewie Griffin
fonte
4

PigeonScript, 1 byte

*

Explanation:
* looks to the stack to see if there is anything there. If not, it prompts for input and multiplies the inputs together

TrojanByAccident
fonte
5
This should be added here instead
mbomb007
4

Perl 6, 4 bytes

&[*]

This is just the ordinary infix multiplication operator *, expressed as an ordinary function. As a bonus, if given one number it returns that number, and if given no numbers it returns 1, the multiplicative identity.

Sean
fonte
Alternative 4 UTF-8 byte solution: *×*
nwellnhof
4

><>, 5 Bytes

i|;n*

Takes input as an ascii character, outputs a number.

Explanation:

i                        | Get input.
 |                       | Mirror: Change the pointer's direction.
i                        | Get input again.
    *                    | Loop around to the right side. Multiply
   n                     | Print the value on the stack, as a number
  ;                      | End the program

You could also do

ii*n;

But I feel my solution is waaay cooler.

Another possibility is dropping the semicolon, which would result in the pointer bouncing off the mirror, hitting the print command, and throwing an error since the stack is empty.

Bolce Bussiere
fonte
4

Intel 8080 machine code, MITS Altair 8800, 28 bytes

This implements binary multiplication on the Intel 8080 CPU (c. 1974) which did not have multiplication or division instructions. Inputs are 8-bit values and the product is a 16-bit value returned in the BC register pair.

Here is the machine code along with step-by-step instructions to load the program into an Altair 8800 using the front panel switches.

Step    Switches 0-7    Control Switch  Instruction Comment
1                       RESET
2       00 001 110      DEPOSIT         MVI  C, 5   Load multiplier into C
3       00 000 101      DEPOSIT NEXT                value is 5
4       00 010 110      DEPOSIT NEXT    MVI  D, 16  Load multiplicand into D
5       00 010 000      DEPOSIT NEXT                value is 16
6       00 000 110      DEPOSIT NEXT    MVI  B, 0   clear B register (high byte of result)
7       00 000 000      DEPOSIT NEXT
8       00 011 110      DEPOSIT NEXT    MVI  E, 9   set loop counter E multiplier size
9       00 001 001      DEPOSIT NEXT                (8 bits + 1 since loop ends in middle)
10      01 111 001      DEPOSIT NEXT    MOV  A, C   move multiplier into A for shift
11      00 011 111      DEPOSIT NEXT    RAR         shift right-most bit to CF
12      01 001 111      DEPOSIT NEXT    MOV  C, A   move back into C
13      00 011 101      DEPOSIT NEXT    DCR  E      decrement loop counter
14      11 001 010      DEPOSIT NEXT    JZ   19 00  loop until E=0, then go to step 27
15      00 011 001      DEPOSIT NEXT
16      00 000 000      DEPOSIT NEXT
17      01 111 000      DEPOSIT NEXT    MOV  A, B   move sum high byte into A
18      11 010 010      DEPOSIT NEXT    JNC  14 00  add if right-most bit of 
19      00 010 100      DEPOSIT NEXT                multiplier is 1, else go to 22
20      00 000 000      DEPOSIT NEXT
21      10 000 010      DEPOSIT NEXT    ADD  D      add shifted sums
22      00 011 111      DEPOSIT NEXT    RAR         shift right new multiplier/sum
23      01 000 111      DEPOSIT NEXT    MOV  B, A   move back into B
24      11 000 011      DEPOSIT NEXT    JMP  08 00  go to step 10
25      00 001 000      DEPOSIT NEXT
26      00 000 000      DEPOSIT NEXT
27      11 010 011      DEPOSIT NEXT    OUT  255    display contents of A on data panel
28      11 111 111      DEPOSIT NEXT
30      01 110 110      DEPOSIT NEXT    HLT         Halt CPU
31                      RESET                       Reset program counter to beginning
32                      RUN
33                      STOP

Try it online!

If you've entered it all correctly, on the machine state drawer in the simulator your RAM contents will look like:

0000    0e 05 16 10 06 00 1e 09 79 1f 4f 1d ca 19 00 78 
0010    d2 14 00 82 1f 47 c3 08 00 d3 ff 76

Input

Multiplier in C register, and multiplicand into D. The stock Altair has no STDIN so input is by front panel switches only.

Output

The result is displayed on the D7-D0 lights (top right row) in binary.

5 x 16 = 80 (0101 0000)

enter image description here

4 x 5 = 20 (0001 0100)

enter image description here

7 x 9 = 63 (0011 1111)

enter image description here

8 x -9 = -72 (1011 1000)

enter image description here

Compatibility note: this should also run on the IMSAI 8080, though currently untested.

640KB
fonte
3

C#, 10 bytes

a=>b=>a*b;

It's just a simply multiplication.

Horváth Dávid
fonte
You beat me to it!
TheLethalCoder
How does the => => work? I'd expect (a,b)=>a*b;
Carra
1
@Carra It works, that this lambda expression returns a delegate, which returns the result, so you call it this way, if you call this lambda f:f(a)(b).
Horváth Dávid
This would be a form of function currying
ThePlasmaRailgun
3

Clojure, 1 byte

*

:P As a bonus this works on any number of arguments:

[(*)
 (* 2)
 (* 2 3)
 (* 2 3 4)
 (* 2 3 4 5)] => [1 2 6 24 120]

Interestingly you can easily get its source code:

(source *)
(defn *
  "Returns the product of nums. (*) returns 1. Does not auto-promote
  longs, will throw on overflow. See also: *'"
  {:inline (nary-inline 'multiply 'unchecked_multiply)
   :inline-arities >1?
   :added "1.2"}
  ([] 1)
  ([x] (cast Number x))
  ([x y] (. clojure.lang.Numbers (multiply x y)))
  ([x y & more]
     (reduce1 * (* x y) more)))
NikoNyrh
fonte
3

Owk, 11 bytes

λx.λy.x*y

This can be assigned to a function like this:

multiply:λx.λy.x*y

and called like this:

result<multiply(a,b)
Conor O'Brien
fonte
Does this not work? Please explain the doe vote.
Conor O'Brien
I wasn't the downvoter, but I think I can guess what happened: this is a very trivial question (and thus very heavily downvoted, but with many upvotes cancelling that out), and likely to attract people who downvote trivial questions. This answer's also fairly trivial, and it's likely that some of the people who downvote trivial questions also like to downvote trivial answers. (Personally, I prefer to leave trivial answers at 0, so I'm not voting either way on this one.)