17
\$\begingroup\$

Challenge:

Output the 'integer-digits' of one of the following six arithmetic-tables based on the input:
- addition (+);
- subtraction (-);
- multiplication (*);
- division (/);
- exponentiation (^);
- modulo operation (%).

Rules:

  • What do I define as 'integer-digits': Every result of the arithmetic operand which is exactly one of the following: 0,1,2,3,4,5,6,7,8,9. This means you exclude every result of 10 or higher, every result of -1 or lower, and every non-integer result.
  • How do we calculate the arithmetic results: By using the top digit first, and then use the operand with the left digit. You are allowed to do this vice-versa (i.e. y/x instead of x/y), as long as you're consistent for all six of the outputs! (So you aren't allowed to use y-x and x/y in the same answer.)†
  • We won't output anything for divide by 0 test-cases (for the division and modulo operation tables)
  • We won't output anything for the edge-case 0^0.

Output:

So output the following (table format is somewhat flexible (see below): so the lines are optional and mainly added for readability of the test cases):

Addition:

+ | 0 1 2 3 4 5 6 7 8 9 ----------------------- 0 | 0 1 2 3 4 5 6 7 8 9 1 | 1 2 3 4 5 6 7 8 9 2 | 2 3 4 5 6 7 8 9 3 | 3 4 5 6 7 8 9 4 | 4 5 6 7 8 9 5 | 5 6 7 8 9 6 | 6 7 8 9 7 | 7 8 9 8 | 8 9 9 | 9

Subtraction:

- | 0 1 2 3 4 5 6 7 8 9 ----------------------- 0 | 0 1 2 3 4 5 6 7 8 9 1 | 0 1 2 3 4 5 6 7 8 2 | 0 1 2 3 4 5 6 7 3 | 0 1 2 3 4 5 6 4 | 0 1 2 3 4 5 5 | 0 1 2 3 4 6 | 0 1 2 3 7 | 0 1 2 8 | 0 1 9 | 0

Multiplication:

* | 0 1 2 3 4 5 6 7 8 9 ----------------------- 0 | 0 0 0 0 0 0 0 0 0 0 1 | 0 1 2 3 4 5 6 7 8 9 2 | 0 2 4 6 8 3 | 0 3 6 9 4 | 0 4 8 5 | 0 5 6 | 0 6 7 | 0 7 8 | 0 8 9 | 0 9

Division:

/ | 0 1 2 3 4 5 6 7 8 9 ----------------------- 0 | 1 | 0 1 2 3 4 5 6 7 8 9 2 | 0 1 2 3 4 3 | 0 1 2 3 4 | 0 1 2 5 | 0 1 6 | 0 1 7 | 0 1 8 | 0 1 9 | 0 1

Exponentiation:

^ | 0 1 2 3 4 5 6 7 8 9 ----------------------- 0 | 1 1 1 1 1 1 1 1 1 1 | 0 1 2 3 4 5 6 7 8 9 2 | 0 1 4 9 3 | 0 1 8 4 | 0 1 5 | 0 1 6 | 0 1 7 | 0 1 8 | 0 1 9 | 0 1

Modulo:

% | 0 1 2 3 4 5 6 7 8 9 ----------------------- 0 | 1 | 0 0 0 0 0 0 0 0 0 0 2 | 0 1 0 1 0 1 0 1 0 1 3 | 0 1 2 0 1 2 0 1 2 0 4 | 0 1 2 3 0 1 2 3 0 1 5 | 0 1 2 3 4 0 1 2 3 4 6 | 0 1 2 3 4 5 0 1 2 3 7 | 0 1 2 3 4 5 6 0 1 2 8 | 0 1 2 3 4 5 6 7 0 1 9 | 0 1 2 3 4 5 6 7 8 0

Challenge rules:

  • Trailing new-lines and trailing spaces are optional
  • The horizontal and vertical lines in the test cases are optional. I only added them for better readability.†
  • The spaces between each result are NOT optional.
  • The symbol for the arithmetic may be different, as long as it's clear which one it is. I.e. × or · instead of * for multiplication; ÷ instead of / for division; etc.†
    And as long as it's a single character, so sorry Python's **.
  • The input format is flexible. You can choose an index from 0-5 or 1-6 for the corresponding six tables; you could input the operand-symbol; etc. (Unlike what you display in the result, you are allowed to input complete strings, or ** in Python's case.)
    Just make sure to state which input-format you use in your answer!

General rules:

  • This is , so shortest answer in bytes wins.
    Don't let code-golf languages discourage you from posting answers with non-codegolfing languages. Try to come up with an as short as possible answer for 'any' programming language.
  • Standard rules apply for your answer, so you are allowed to use STDIN/STDOUT, functions/method with the proper parameters, full programs. Your call.
  • Default Loopholes are forbidden.
  • If possible, please add a link with a test for your code.
  • Also, please add an explanation if necessary.

† Example of valid output without horizontal and vertical lines, ÷ as symbol, and using y/x instead of x/y:

÷ 0 1 2 3 4 5 6 7 8 9 0 0 0 0 0 0 0 0 0 0 1 1 2 2 1 3 3 1 4 4 2 1 5 5 1 6 6 3 2 1 7 7 1 8 8 4 2 1 9 9 3 1
Improve this question
\$\endgroup\$
9
  • \$\begingroup\$ Is giving a result ok for division by zero if that is the result in our language? E.g. in APL, 0÷0 is 1 by default, and N mod-0 is N? One can also chose a different scheme where division by zero is always zero. \$\endgroup\$ Commented Apr 3, 2017 at 12:56
  • \$\begingroup\$ Are we allowed more than one space between columns? \$\endgroup\$ Commented Apr 3, 2017 at 21:13
  • \$\begingroup\$ @Adám Sorry for the last response. As for your first question: no sorry. I know some languages print 1, other 0, others something else for 0^0 or divide/mod 0, but you'll have to work around that. As for your second question: Yes sure, as long as the digits are still in the same columns/rows you can use as many spaces as you want. \$\endgroup\$ Commented Apr 4, 2017 at 7:10
  • \$\begingroup\$ Is the order of arguments important for non-commutative operations? \$\endgroup\$ Commented Apr 5, 2017 at 5:51
  • \$\begingroup\$ @Adám So you mean you'll output the grid for y-x, y/x, y^x and y%x instead of x-y, x/y, x^y and x%y? Hmm, I guess that could be fine. I'll edit it in the answer; as long as you'll be consistent for all six of them (so not y-x and x/y in the same answer). \$\endgroup\$ Commented Apr 5, 2017 at 6:46

14 Answers 14

Reset to default
8
\$\begingroup\$

JavaScript (ES7), 128 bytes

f= c=>[...c+`0123456789`].map((r,_,a)=>a.map(l=>l==c?r:r==c?l:/^\d$/.test(l=c<`^`?eval(l+c+r):l|c?l**r:l/r)?l:` `).join` `).join` `
<select onchange=o.textContent=f(this.value)><option>><option>+<option>-<option>*<option>/<option>%<option>^<option>&<option>,<option>.</select><pre id=o>

Special-casing 0^0 cost me 8 bytes.

Improve this answer
\$\endgroup\$
2
  • \$\begingroup\$ Very cool how you've added additional operands like OR and AND to your test-snippet. +1 \$\endgroup\$ Commented Apr 3, 2017 at 10:00
  • \$\begingroup\$ @KevinCruijssen I had to remove OR to save a byte (all the other operators sort before ^), but thanks! \$\endgroup\$ Commented Apr 3, 2017 at 10:01
7
\$\begingroup\$

Japt, 45 bytes

Collaborated with @ETHproductions

AÆAÇU¥'p«Z«XªOvZ+U+X)+P r"..+"SÃuXÃuAo uU)m¸·

Run it online!

Takes input as:

"+" for addition

"-" for subtraction

"*" for multiplication

"/" for division

"p" for exponentiation

"%" for modulo

Explanation (With expanded shortcuts):

AÆ AÇ U¥ 'p« Z« Xª OvZ+U+X)+P r"..+"SÃ uXÃ uAo uU)m¸ · AoX{AoZ{U=='p&&!Z&&!X||OvZ+U+X)+P r"..+"S} uX} uAo uU)mqS qR A // By default, 10 is assigned to A o // Create a range from [0...9] X{ } // Iterate through the range, X becomes the iterative item Ao // Create another range [0...9] Z{ } // Iterate through the range, Z becomes the iterative item // Take: U=='p // U (input) =="p" &&!Z // && Z != 0 &&!X // && X != 0 || // If any of these turned out false, instead take Ov // Japt Eval: Z+U+X // Z{Input}X )+P // Whichever it was, convert to a string r"..+"S // Replace all strings of length 2 or more with " " // (this makes sure the result !== "false" and has length 1) uX // Insert X (the row number) into the front of the row u // Insert at the beginning the first row: Ao // [0...9] uU) // with the input inserted at the beginning mqS // Join each item in the final array with " " qR // Join the final array with "\n"
Improve this answer
\$\endgroup\$
5
\$\begingroup\$

Operation Flashpoint scripting language, 343 333 303 301 bytes

f={o=_this;s=o+" 0 1 2 3 4 5 6 7 8 9\n";i=0;while{i<10}do{j=0;s=s+format["%1",i];if(i<1&&(o=="/"||o=="%"||o=="^"))then{if(o=="^")then{if(j<1)then{s=s+" ";j=1}}else{s=s+"\n1";i=1}};while{j<10}do{r=call format["%1%2%3",j,o,i];if(r>9||r<0||r%1>0)then{r=" "};s=s+format[" %1",r];j=j+1};s=s+"\n";i=i+1};s}

Call with:

hint ("+" call f)

Ungolfed:

f= { o=_this; s=o+" 0 1 2 3 4 5 6 7 8 9\n"; i=0; while{i<10}do { j=0; s=s+format["%1",i]; if(i<1&&(o=="/"||o=="%"||o=="^"))then { if(o=="^")then{if(j<1)then{s=s+" ";j=1}} else{s=s+"\n1";i=1} }; while{j<10}do { r=call format["%1%2%3",j,o,i]; if(r>9||r<0||r%1>0)then{r=" "}; s=s+format[" %1",r]; j=j+1 }; s=s+"\n"; i=i+1 }; s }

Output:

operator +

operator -

operator *

operator /

operator ^

operator %

Improve this answer
\$\endgroup\$
5
\$\begingroup\$

Python 2, 240 231 226 224 203 202 200 197 bytes

a=i=input() R=range(10) for z in R:a+=' '+`z` print a for x in R: try: 	d=`x` 	for b in R:c=eval("b%s(x*1.)"%('**',i)[i<'^']);d+=' '+(' ',`int(c)`)[(i<'^'or x+b>0)and c in R] except:pass print d

Try it online!

Takes input as one of "+", "-", "*", "/", "^" or "%".

Edits

-9 -16 with thanks to @FelipeNardiBatista for some great hints

Down to 221 with more help from @FelipeNardiBatista and then down to 203 by losing and E(c)==int(E(c)). If we are checking if E(c) is in range(10) it will always be an integer if it is there. No need for the duplicate check.

This has to go below 200 without switching to Python 3 and declaring P=print. Any ideas? I am always happy to learn.

Yesss! I knew it could be done. 197. Time for bed now. I have spent enough time on this one. Thanks for the interesting challenge @KevinCruijssen.

Improve this answer
\$\endgroup\$
8
  • 1
    \$\begingroup\$ ('**',i)[i<'^'] and (i<'^'or x>0 or b>0) saves 4 bytes \$\endgroup\$ Commented Apr 3, 2017 at 12:30
  • 1
    \$\begingroup\$ a=i=input() with for z in R:a+=' '+`z` for some extra bytes saved vs a=i+' 0 1 2 3 4 5 6 7 8 9' \$\endgroup\$ Commented Apr 3, 2017 at 12:52
  • 1
    \$\begingroup\$ 1. vs 1.0 and E(c)in R vs -1<E(c)<10 for 2 bytes \$\endgroup\$ Commented Apr 3, 2017 at 13:06
  • 1
    \$\begingroup\$ x+b>0 vs x>0 or b>0 and "b%s(x*1.)"%('**',i)[i<'^'] vs "b"+('**',i)[i<'^']+"(x*1.)" \$\endgroup\$ Commented Apr 3, 2017 at 13:44
  • 1
    \$\begingroup\$ there is one set of extra paren (,) in your join for 223 bytes \$\endgroup\$ Commented Apr 3, 2017 at 13:55
4
\$\begingroup\$

Mathematica, 150 bytes

r=0~Range~9;p=Prepend;±i_:=Grid@p[p[If[0<=#<=9,#]/._@__->""&/@<|Thread[Characters@"+-*/^%"->{Plus,#-#2&,1##&,#/#2&,Power,Mod}]|>[i][r,#],#]&/@r,r~p~i]

Defines a unary function ± taking one of the characters +-*/^% as its input i (so for example, ±"^"), and returning a Grid object that looks exactly like the last output in the OP.

<|Thread[Characters@"+-*/^%"->{Plus,#-#2&,1##&,#/#2&,Power,Mod}]|> associates, to each possible input character, the corresponding (listable) binary function (where #-#2&,1##&,#/#2& are golfed versions of Subtract,Times,Divide); therefore <|...|>[i][r,#] calculates the binary operation with all possible first arguments and # as the second argument. If[0<=#<=9,#]/._@__->""& converts each result to a Null or "" if it's not a single-digit result (/._@__->"" is necessary because some results like 1/0 can't be processed by the inequalities 0<=#<=9). Finally, we prepend the various headers and footers and display the answer.

Improve this answer
\$\endgroup\$
4
  • \$\begingroup\$ Nice answer and explanation. Do you perhaps have a Try-it-online link? And one question/note, I don't see any mention of the edge-case rule: "We won't output anything for the edge-case 0^0." Does Mathematica output nothing on default for this edge-case? \$\endgroup\$ Commented Apr 3, 2017 at 8:13
  • 1
    \$\begingroup\$ I added a link above. Mathematica evaluates 0^0 to Indeterminate, which gives us an unhappy unevaluated result If[0<=Indeterminate<=9, Indeterminate] mid-computation; but /._@__->"" is a rule that takes any unevaluated function and its arguments and changes it to an invisible string. \$\endgroup\$ Commented Apr 3, 2017 at 8:29
  • \$\begingroup\$ Ah ok, so Mathematica correctly returns that two conflicting rules #^0=1 and 0^#=0` are occurring for 0^0. Good to now, and convenient for this challenge. :) Btw, your link doesn't seem to work. I get an error that I have no permission to access it. \$\endgroup\$ Commented Apr 3, 2017 at 8:40
  • \$\begingroup\$ Ok, you'll have to go to sandbox.open.wolframcloud.com and paste the code in yourself, then call it with a command like ±"^". \$\endgroup\$ Commented Apr 3, 2017 at 8:47
4
\$\begingroup\$

Python 3, 343 335 363 362 bytes

The saddest part about this is that a Java answer is beating me... I'll golf this more in the morning.

o=input() r=range(10) g=[['']*10 for i in r] for x in r: for y in r:exec('if"/"!=o and(o!="%"or x)and(o!="**"or x or y):k=str(y'+o+'x);g[x][y]=k') if'/'==o: for x in r: for y in r: if x and y%x<1:g[x][y]=str(round(y/x)) if'**'==o:o='^' print('\n'.join([' '.join([o]+list(map(str,r)))]+[' '.join([str(q)]+[' 'if len(x)!=1else x for x in g[q]])for q in r]))

ReplIT

-8 bytes by switching to list comprehension rather than a double loop
+28 bytes to avoid edge case 0 ^ 0. -.-
-1 byte by changing ==0 to <1 thanks to @StewieGriffin

Improve this answer
\$\endgroup\$
3
  • \$\begingroup\$ "The saddest part about this is that a Java answer is beating me..." This part made me giggle.. xD I like how you're checking the length of the number to determine if it's in the range of 0-9. Btw, umm.. I noticed one error in your Repl. It currently outputs ** instead of ^ for exponentiation. (Also, you are allowed to input **, but not to output it in the result-table. Currently you have it the other way around.) \$\endgroup\$ Commented Apr 3, 2017 at 8:10
  • 1
    \$\begingroup\$ @KevinCruijssen Whoops. Fixed successfully, no byte count change. Thanks for pointing that out! \$\endgroup\$ Commented Apr 3, 2017 at 12:14
  • \$\begingroup\$ @StewieGriffin Yes. Thank you. \$\endgroup\$ Commented Apr 3, 2017 at 12:53
4
\$\begingroup\$

Java 10, 312 305 297 238 bytes

o->{var r="+-*/^%".charAt(o)+" 0 1 2 3 4 5 6 7 8 9\n";for(int i=-1;++i<10;r+="\n"){r+=i+" ";for(double j=-1d,t;++j<10;r+=t%1!=0|t<0|t>9?" ":((int)t)+" ")t=o<1?j+i:o<2?j-i:o<3?j*i:o<4&i>0?j/i:o<5&j!=-i?Math.pow(j,i):i>0?j%i:-1;}return r;}

Uses no horizontal/vertical lines, and the characters are as displayed in the challenge-examples (+-*/^%).
Uses an index of 0-5 for the six mathematical operands as input.

-7 bytes thanks to @Frozn.
-8 bytes thanks to @ceilingcat.

Explanation:

o->{ // Method with integer parameter and String return-type var r="+-*/^%".charAt(o) // Get the current mathematical operand character based // on the input index +" 0 1 2 3 4 5 6 7 8 9\n"; // Append the column header and a new-line for(int i=-1;++i<10; // Loop `i` in the range (-1,10): r+="\n"){ // After every iteration: append a newline to the result r+=i+" "; // Append the left-side row-nr for(double j=-1d,t;++j<10; // Inner loop over the cells of the current row r+= // After every iteration: append the result String with: t%1!=0 // If `t` has decimal values |t<0 // Or `t` is below 0 |t>9? // Or `t` is above 9: " " // Append an empty cell : // Else: ((int)t)+" ") // Append `t` as integer in the current cell t= // Set `t` to: o<1? // If the given operand is 0 ("+"): j+i // Add `j` and `i` together :o<2? // Else-if the operand is 1 ("-"): j-i // Subtract `i` from `j` :o<3? // Else-if the operand is 2 ("*"): j*i // Multiply `j` by `i` :o<4 // Else-if the operand is 3 ("/") &i>0? // And `i` is larger than 0: j/i // Divide `j` by `i` :o<5 // Else-if the operand is 4 ("^") &j!=-i? // And `j` is not `-i`: Math.pow(j,i) // Take `j` to the power `i` : // Else (the operand is 5 ("%")): i>0? // If `i` is larger than 0: j%i // Take `j` modulo-`i` : // Else: -1;} // Set `t` to -1 instead return r;} // After the loops, return the result-String
Improve this answer
\$\endgroup\$
2
  • 1
    \$\begingroup\$ Maybe you could pass b as a double to p and get rid of r by assigning the value of the chained ternary to b. \$\endgroup\$ Commented Apr 3, 2017 at 13:16
  • \$\begingroup\$ @ceilingcat Thanks. I've just removed the separated method completely to save another ~60 bytes. :) \$\endgroup\$ Commented Dec 5, 2020 at 13:21
3
\$\begingroup\$

Haskell, 230 199 182 + 53 47 46 + 1 byte of separator = 284 247 232 229 bytes

f=head.show g=[0..9] h=(:" ") y(%)s=unlines$(s:map f g>>=h):[f y:[last$' ':[f(x%y)|x%y`elem`g]|x<-g]>>=h|y<-g] 0?0=10;a?b=a^b a!0=10;a!b|(e,0)<-a`divMod`b=e|1>0=10 a&0=10;a&b=mod a b

Function is (zipWith y[(+),(-),(*),(!),(?),(&)]"+-*/^%"!!), which alone takes up 53 bytes, where 0 is addition, 1 is subtraction, 2 is multiplication, 3 is division, 4 is exponentiation, and 5 is modulo.

Try it online!

Explanation

Coming later (possibly) . . . . For now some little tidbits: ? is the exponentiation operator, ! is the division operator, and & is the mod operator.

EDIT: Part of the bulk might be because most (?) of the other answers use eval, which Haskell doesn't have without a lengthy import.

EDIT2: Thanks Ørjan Johansen for -31 bytes (Wow!) off the code and -6 bytes off the function! Also changed some of the 11s to 10s for consistency purposes. Try the updated version online!

EDIT3: Same person, seventeen more bytes! Try the updated, updated version online!

Improve this answer
\$\endgroup\$
11
  • 1
    \$\begingroup\$ Shorter ! tests: e<-a`div`b,e*b==a=e or (e,0)<-a`divMod`b=e. \$\endgroup\$ Commented Apr 4, 2017 at 1:21
  • 1
    \$\begingroup\$ Shorter function: (zipWith(#)"+-*/^%"[(+),(-),(*),(!),(?),(&)]!!) \$\endgroup\$ Commented Apr 4, 2017 at 1:32
  • \$\begingroup\$ Reversing tests + a "standard" golfing trick gives last$f k:[' '|k<0||k>9]. Finally (maybe), [0..9] is just long enough that it pays to define it as a name when using it twice. \$\endgroup\$ Commented Apr 4, 2017 at 1:41
  • \$\begingroup\$ Nah, one more: k<-[o x y] is shorter than a let. \$\endgroup\$ Commented Apr 4, 2017 at 1:46
  • \$\begingroup\$ One word: Wow! :) \$\endgroup\$ Commented Apr 4, 2017 at 1:54
2
\$\begingroup\$

Python 2, 197 bytes

p=input() r=range(10) s=' ' print p+s+s.join(map(str,r)) for i in r:print str(i)+s+s.join(eval(("s","str(j"+p+"i)")[i and(j%i==0 and'/'==p or'%'==p)or p in'**+-'and eval("j"+p+"i")in r])for j in r)

Try it online!

Input: Python 2

'+' Addition

'-' Sbtraction

'*' Multiplication

'/' Division

'**' Exponentiation

'%' Modulo

Python 3, 200 bytes

p=input() r=range(10) s=' ' print(p+s+s.join(map(str,r))) for i in r:print(str(i)+s+s.join(eval(("s","str(j"+p+"i)")[i and(j%i==0 and'/'in p or'%'==p)or p in'**+-'and eval("j"+p+"i")in r])for j in r))

Try it online!

Input: Python 3

+ Addition

- Sbtraction

* Multiplication

// Division

** Exponentiation

% Modulo

Explanation

storing range(10) to a variable r, we can get the first line of output of the format

operator 0 1 2 3 4 5 6 7 8 9

by mapping every int in r to string and joining the string list['0','1','2','3','4','5','6','7','8','9'] with space s with p operator

p+s+s.join(map(str,r)

With that, for every i in r(range), for every j evaluate i and j with your operator

eval("j"+p+"i")

here, an exception might be thrown if unhandled - division or modulus by 0. To handle this case(i and(j%i==0 and'/'==p or'%'==p)) and the output format by described in the problem statement(the result for each evaluation shouldn't be a negative number nor a number greater than 10 - eval("j"+p+"i")in r),

i and(j%i==0 and'/'==p or'%'==p)or p in'**+-'and eval("j"+p+"i")in r

Thus printing the arithmetic-table!

Happy Coding!

Improve this answer
\$\endgroup\$
5
  • \$\begingroup\$ Nice Python 2 answer. Guess at 197 that makes us equal. It took me a few more attempts though. Well done. Slight problem. For / the table shows .0 and not integers. Sure that is easily corrected :) \$\endgroup\$ Commented Apr 3, 2017 at 20:34
  • \$\begingroup\$ Sorry but have retracted my upvote once I saw that, Will add it again once you have had the chance to correct it :) \$\endgroup\$ Commented Apr 3, 2017 at 20:37
  • \$\begingroup\$ Thank you! But Python 2 prints int and python 3 prints float if you use '/' as input. Fir python 3 you have to use '//'. I have clearly mentioned that. \$\endgroup\$ Commented Apr 4, 2017 at 1:04
  • \$\begingroup\$ And it seems that someone is editing my link and te python 2 link have been changed to python 3. I've reverted it now. \$\endgroup\$ Commented Apr 4, 2017 at 1:11
  • \$\begingroup\$ I've had this problem before. It is because you have 2 TOI links on the same page. When you click either link it will open the first link definition that it finds. Get round it by renaming the second link to "try it online 3" or something and also rename the link definition. Should work fine then. \$\endgroup\$ Commented Apr 4, 2017 at 5:15
2
\$\begingroup\$

APL (Dyalog), 68 76 bytes

Requires ⎕IO←0 which is default on many systems. Prompts for input and expects a single character representing the operand.

t←'|'=w←⎕ (w,n),n⍪⍉⍣t∘.{(⍺w⍵≡0'*'0)∨(t∧⍵≡0)∨⍺w≡0'÷':⍬ n∊⍨r←⍵(⍎w)⍺:r ⍬}⍨n←⍳10

Try it online!

Much of the code is to circumvent that APL's results for ÷0 and 0*0 and to counteract that APL's modulo (|) has its arguments reversed compared to most other languages. Would have been only 41 bytes otherwise:

w←⎕ (w,n),n⍪∘.{0::⍬ ÷n∊⍨r←⍵(⍎w)⍺:r}⍨n←⍳10

Try it online!

Improve this answer
\$\endgroup\$
1
  • \$\begingroup\$ Wow! and after all my hard work on my Python answer. Fair play. \$\endgroup\$ Commented Apr 3, 2017 at 20:58
2
\$\begingroup\$

R, 194 177 bytes

-17 bytes switching to manipulating matrix output

function(o){s=0:9 y=sapply(s,function(x)Reduce(o,x,init=s)) dimnames(y)=list(s,rep('',10)) y[!y%in%s|!is.finite(y)]=' ' if(o=='^')y[1]=' ' cat(substr(o,1,1),s) print(y,quote=F)}

Try it online!

Changing to this approach has some downsides, namely it can't be optimised by using pryr and is a little clunky to set up the original matrix, but it can be output perfectly with some trailing spaces on the first line.

I still have to use the substr trick because of the %% mod operator. Will continue to trim this when I get a chance, it still feels very clunky dealing with the special cases.

Improve this answer
\$\endgroup\$
1
  • \$\begingroup\$ 138 bytes with outer and a few other golfs... \$\endgroup\$ Commented Dec 5, 2020 at 14:13
1
\$\begingroup\$

Japt -R, 37 35 bytes

Look, Ma, no eval!

Was hoping to do a little better than Oliver than this but special-casing 0**0 kicked my ass. Will take another pass at it later on see if I can make any further improvements.

Uses p for exponentiation. Tables are transposed for subtraction, division and modulo.

Ao ïNg)£øX «Nø²|Y?X:SÃòA íi iUiN)m¸

Try it (or use this version to see the transposed tables with dividing lines, as they appear in the spec) or run all test cases (with transposed tables).

Ao\nïNg)£øX «Nø²|Y?X:SÃòA íi iUiN)m¸ :Implicit input of string U A :10 o :Range [0,A) \n :Reassign to U ï :Cartesian product with itself reduced by N : Array of all inputs g : First element (the original input string) ) :End Cartesian product £ :Map each X at 0-based index Y øX : Does U contain X « : Logical AND with logical NOT of Nø : Does N contain ² : "p" |Y : Bitwise OR with Y ?X : If truthy, return X :S : Else return space à :End map òA :Partitions of length U í :Pair with 0-based indices i : Prepend index to array i :Prepend UiN : U prepended with N ) :End prepend m :Map ¸ : Join with spaces :Implicit output, joined with newlines
Improve this answer
\$\endgroup\$
0
\$\begingroup\$

PHP, 191 Bytes

** instead of ^ as input + - / % * **

echo$k=$argn,$k=="**"?"":" ",join(" ",$d=range(0,9));foreach($d as$r){echo"\n$r";foreach($d as$c){echo" ";($k=="/"|($m=$k=="%"))&$r<1?print" ":eval("echo in_array($c$k$r,\$d)?$c$k$r:' ';");}}

Online Version of both Versions

PHP, 245 Bytes without eval

input + - / % * ^

use bcpowmod($c,1,$r) instead of bcmod($c,$r) because I need a third parameter in the division input. $c**1%$r==$c%$r

BC Math Functions

echo$k=$argn," ".join(" ",$d=range(0,9));foreach($d as$r){echo"\n$r";foreach($d as$c)echo" ",in_array($s=($k=="/"|($m=$k=="%"))&$r<1?-1:("bc".["+"=>add,"-"=>sub,"/"=>div,"*"=>mul,"^"=>pow,"%"=>powmod][$k])($c,$m?1:$r,$m?$r:9),$d)?round($s):" ";}
Improve this answer
\$\endgroup\$
0
\$\begingroup\$

05AB1E, 56 55 bytes

9ÝDãεðýì„/%Iåyθ_*I'mQyO_*~iðë.VD9ÝQàiïëð]«TôεN<š}®I:ðý»

Outputs without lines and with reversed x and y. Input/output are using +, -, *, /, m, %.

Try it online or verify all tables.

21 bytes are used to fix edge cases /0, %0 and 0^0, which result in 0, 0, and 1 respectively in 05AB1E.. Here without that part (34 bytes):

9ÝDãεðýì.VD9ÝQàiïëð]«TôεN<š}®I:ðý»

Try it online or try all tables.

Explanation:

9Ý # Push list [0,1,2,3,4,5,6,7,8,9] D # Duplicate it (for the header later on) ã # Take the cartesian product with itself (creating all pairs): # [[0,0],[0,1],[0,2],...,[9,7],[9,8],[9,9]] ε # Map each pair `y` to: ðý # Join the pairs with a space ì # Prepend it before the (implicit) input-char „/%Iå # If the input is "/" or "%" * # and yθ_ # The last value of the pair is exactly 0 ~ # OR I'mQ '# If the input is "m" * # and yO_ # The sum of the pair is exactly 0 (thus [0,0]) i # If that is truthy: ð # Push a space character " " ë # Else: .V # Execute the string as 05AB1E code D # Duplicate the result 9ÝQài # If it's in the list [0,1,2,3,4,5,6,7,8,9]: ï # Cast it to an integer to remove any trailing ".0" # (since dividing always results in a float) ë # Else: ð # Push a space character " " ] # Close both the if-else clauses and the map « # Merge the resulting list with the duplicated [0,1,2,3,4,5,6,7,8,9] Tô # Split the list in parts of size 10 ε } # Map each list to: N< # Get the map-index + 1 š # And prepend it at the front of the list ®I: # Then replace the "-1" with the input-character ðý # And finally join every inner list by spaces » # And join the entire string by newlines (which is output implicitly)
Improve this answer
\$\endgroup\$

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.