New answers tagged integer
1
Scratch 3.0, 11 blocks/92 bytes
For those who are tired of the old way of introducing these answers (I'm looking at you a'_' (ಠ ͟ʖಠ) ), I'll put the ScratchBlocks Syntax first:
define f(n
if<(n)<(0)>then
set[r v]to(-1
else
if<(n)>(0)>then
set[r v]to(1
else
set[r v]to(0
I decided to use a function instead of the old when gf clicked ...
1
05AB1E, 2 bytes
A signum built-in.
.±
Try it online!
2
Binary Lambda Calculus, 2.125 Bytes
00010110 00110001 0
Translation into lambda calculus:
\n. n (\x. n) (\x. x)
1
Keg, 11 bytes (SBCS)
Now I realized that Keg is pretty hard to use...
¿Ï_^'(Ï_')"
Try it online!
0
GolfScript, 12 bytes
~),(;{),(;}%
Try it online!
0
W j f, 3 bytes
It's actually pretty trivial in W ...
M_M
Explanation
a % Take an input, say 3
M % Identity map every item in numeric value 3
% Since it is prohibited, a range is generated,
% namely [1 2 3]
a M % For every item in [1 2 3]:
% Note that single items are 1, 2, and 3, *not* the whole list
a % Generate a ...
2
GolfScript, 4 3* bytes
~1|
Try it Online!
*thanks to user a'_'
1
Keg, -hr, 13 bytes
:0<[0;|0>[1|0
Try it online!
A very simple switch like comparison happening here.
2
naz, 46 bytes, score 32.2
2a2a1o2m1o7s1o5m1o2s2s1o6m1o2s2s1o1a1o1a1o2s1o
Simply outputs each digit in 4815162342 one at a time.
1
naz, 70 bytes
2a2x1v4a8m2x2v1x1f1r3x2v2e1o3f0x1x2f1a1o0x1x3f1r3x1v4e1o3f0x1x4f0a0x1f
Works for any input integer, provided it's passed as a file terminated with the control character STX (U+0002).
Explanation (with 0x commands removed)
2a2x1v # Set variable 1 equal to 2
4a8m2x2v # Set variable 2 equal to 48 ("0")
1x1f1r3x2v2e1o3f # ...
1
Pyth, 18 numbers
579 t
Another challenge where being infix rather than prefix would be nice. This uses the space to "hide" some of the numbers and the decrement to get more numbers.
Here's all of the outputs.
[ 57 t9 ] => '57'
[ 57t 9 ] => '57\n8'
[ 59 t7 ] => '59'
[ 59t 7 ] => '59\n6'
[ 5 7t9 ] => '5\n8'
[ 5 9t7 ] => '5\n6'
[ 5 t79 ] =&...
1
JavaScript
I'm actually not sure it's possible. I suspect if a solution exists, it's purely arithmetic.
So the content of any cell will be from this set 0123456789+-*/ ~!%^|&.
I tried for several hours without success.
The main problem is that for the last column (or row) to have any meaningful calculation, one of the rows (or columns) leading to it ...
14
Polyglot, 10x10
0 14
5
16
7
18
9
20
10
12
13
This yields the following row/column/diagonal programs (one per line):
0
01
0 2
3
4
5
6
7
8
9
10
011
12
13
0 ...
13
05AB1E, 4x4 5x5
8www4
w3Tαw
Uw₃4<
XθнĀ·
wTwºß
Try it online. (Loops over the rows; columns; main diagonal; and main anti-diagonal of the square, and will run it was 05AB1E code with .V, after which it discards everything that remains on the stack for the next iteration with )\.)
Explanation:
The w are no-ops, so I'll ignore them in the explanations ...
1
W, 5 numbers
3S*4+
The permutations can be printed by the following program, given that the Python interpreter is in your PATH. Don't count the preceding & trailing 0's as they are simply return codes:
import itertools
import os
for i in list(itertools.permutations("3S*4+",5)):
os.system("echo "+''.join(list(i))+">code.w")
os.system("W.py ...
10
Jelly, A simple 3 by 3
Surely we can get a bigger one in Jelly, but if not...
5+2
+ḷ*
1+2
Try them online!
(splits on new lines (Ỵ) and evaluates (V) each (€) as Jelly programs)
5+2 : 5 + 2 = 7
5+1 : 5 + 1 = 6
5ḷ2 : left(5, 2) = 5
2*2 : 2 ^ 2 = 4
1+2 : 1 + 2 = 3
2ḷ1 : left(2, 1) = 2
+ḷ* : left((0 + 0), 0) ^ 0 = 1
+ḷ+ : left((0 + 0), 0) + 0 = 0
13
Keg, 4x4 magic square
0601
7.92
3._.
8654
Try it online!
Outputs
0601 - 1
7.92 - 7
3._. - 3
8654 - 4
/||||\
98652 0
I can't believe this actually works! Programs need the -hr flag to properly output the required result.
Test suite. Uncomment each line to run it. The -in flag is purely to make the test suite a nicer experience, as otherwise, the ...
0
Brainf*ck, 39 bytes
Try it online!
,>,>,<[->+<]<[->>-<<]>,[->-<]>[-->+<]>.
The input/output are the ASCII values of characters. Using "aaz0" gives "%" as output, as it corresponds to the case
97 122
97 48
which is solved by moving 37 units of liquid, the % symbol.
Could shave a couple of bytes if the ...
1
Perl 6 Raku, 12 11 bytes
(*-*-*+*)/2
Try it online!
Edit: I realized that I could take the parameters in any order. Four parameters are: liquid in container 1, liquid in container 2, volume of container 1, volume of container 2.
1
naz, 64 bytes
9a5m2x1v3a2x2v1x1f1o0m1a1o0x1x2f1o0x1x3f1r3x1v1e3x2v2e0m1a1o0x3f
Explanation (with 0x commands removed)
9a5m2x1v # Set variable 1 equal to 45 ("-")
3a2x2v # Set variable 2 equal to 48 ("0")
1x1f1o0m1a1o # Function 1
# Output once, set the register equal to 1, and output ...
0
PHP, 165 156 110 bytes
$o=[$j=$i=$s=$m=0];for(;$i<strlen($n=$argn);)$o[]=$n[$i++]=='<'?++$m:--$s;for(;$j<=$i;)echo$o[$j]-$s,$n[$j++];
Try it online!
Ungolfed
<?php
$min=0;
$max=0;
$current=0;
$order = [0];
for ($i=0;$i<strlen($argn);$i++){
$compare=$argn[$i];
if ($compare=='<') {
$max++;
$current=$max;
} ...
0
Haskell, 95 bytes
s=show
('<':y)!(a:b)=s a++'<':y!b
(x:y)!z=s(last z)++x:y!init z
_!(y:_)=s y
f x=x![0..length x]
Try it online!
0
PHP, 50 bytes
<?=array_sum(str_split(decbin($argn&-2^$argn*2)));
Try it online!
Unfortunately, really don't think I can get it any more golfed than this!
The idea is to count transitions 1->0 or 0->1.
1
x86-16, IBM PC DOS, 47 bytes
Binary:
00000000: 33c9 bd0a 0050 0bc0 7d09 50b8 2d0e cd10 3....P..}.P.-...
00000010: 58f7 d833 d2f7 f552 410b c075 f658 b40e X..3...RA..u.X..
00000020: 0c30 cd10 e2f7 b020 cd10 5840 75d7 c3 .0..... ..X@u..
Build and test using xxd -r
Unassembled listing:
33 C9 XOR CX, CX ; clear counter
B3 0A MOV ...
1
C (gcc), 39 25 bytes
f(a,b,c,d){a=b-d-a+c>>1;}
Wrote a testing framework for possible future testcases.
Takes as input 4 integers:
a: capacity of first container
b: capacity of second container
c: amount of liquid in first container
d: amount of liquid in second container
Explanation:
f(a,b,c,d)
Function implicitly returning int with four ...
0
TI-BASIC, 26 21 bytes
Prompt A,B,C,D:.5abs(A-C-B+D
Input is a series of prompts for each value.
A = volume1
B = volume2
C = liquid1
D = liquid2
Output is the amount of liquid that needs to be moved from the fuller container to the emptier one.
Explantion:
Prompt A,B,C,D ;Prompt the user to input the values
.5abs(A-C-B+D ;Compute the amount of ...
1
C (clang), 29 28 bytes
Saved a bytes thanks to meetaig!!!
#define f(a,b,c,d)b-d-a+c>>1
Try it online!
1
Python 3, 27 26 25 bytes
Saved a bytes thanks to meetaig!!!
lambda a,b,c,d:b-d-a+c>>1
Try it online!
0
Retina 0.8.2, 19 bytes
\d+;?
$*
+`1,1
,
11
Try it online! Link includes test cases. Explanation:
\d+;?
$*
Convert to unary and sum the middle two numbers.
+`1,1
,
Subtract the outer numbers from that sum.
11
Divide by 2 and convert to decimal.
1
Excel, 16 bytes
=(B1-D1-A1+C1)/2
Same approach as others
1
Whitespace, 79 bytes
[S S S N
_Push_0][S N
S _Dupe_0][T N
T T _Read_STDIN_as_integer][T T T _Retrieve_input_vol1][S N
S _Dupe_input_vol1][S N
S _Dupe_input_vol1][T N
T T _Read_STDIN_as_integer][T T T _Retrieve_input_liq1][T S S T _Subtract_vol1-liq1][S N
S _Dupe_vol1-liq1][S N
S _Dupe_vol1-liq1][T N
T T ...
1
Java 8 / CoffeeScript 2, 22 21 bytes
(V,v,L,l)->v-l-V+L>>1
Port of @Grimmy's second 05AB1E answer.
-1 byte by porting @Arnauld's approach, golfing the (...)/2 I had to ...>>1.
Try it online in Java 8.
Try it online in CoffeeScript 2.
Explanation:
(V,v,L,l)-> // Method with four integer parameters and integer return-type
v-l ...
3
Jelly, 3 bytes
ISH
Try it online!
A monadic link taking as its argument [[l1, v1], [v2, l2]] and returning the volume needed to move.
A relatively rare ASCII-only Jelly answer!
Explanation
I | Increments
S | Sum
H | Half
2
Keg, 14 13 bytes
-±¿-¿+½:0<[±]
Try it online!
A port of Arnauld's original javascript answer. Takes input in form of:
volume1
container1
volume2
container2
-1 byte by utilising implicit input correctly.
5
05AB1E, 3 bytes
®β;
Try it online!
Input is an array of volumes in the order [first liquid, first container, second container, second liquid].
Alternative 3-byter:
ÆÆ;
Try it online!
Input is a nested array: [[first container, first liquid], [second container, second liquid]].
7
JavaScript (ES6) / C#, 21 bytes
(v,V,q,Q)=>V-Q-v+q>>1
Try it online! (JS)
Try it online! (C#)
1
Javascript (node.js), 94 bytes
Try it online
s=>[[0],...s].reduce((x,v,i)=>v>'<'?[...x.map(v=>v+1),0]:[...x,i]).reduce((x,v,i)=>x+s[i-1]+v)
Ungolfed:
s =>
[[0],...s].reduce((x, v, i) =>
v > '<' ?
[...x.map(v => v + 1), 0] :
[...x, i])
.reduce((x, v, i) => x + s[i-1] + v)
0
Burlesque, 122 bytes
pe'1'9r@3co{".-"".*""./"}z[)FL{'0'0'.".+"}+]j{{}{tp}{)<-<-}{tp)<-}}j!!e!<-Ppra{pPj<-d!}msJ'=_+j{><}gB3co{rtp^}mwpe?+'.;;++
Try it online!
Takes args as: "[[1,2],[2,3],[0,3],[1,0],[1,1]]" 3
pe # Push args to stack
'1'9r@ # Range of characters [1,9]
3co # Split into ...
0
Burlesque, 38 bytes
sarzPp{J'>=={PPl_}{PPg_j}x/iePp}]mPP?+
Try it online!
Using xnor's algorithm
sarz # Generate range [0,N_comp]
Pp # Push this into state stack
{
J'>== # Non destructive test if is ">"
{PPl_}{PPg_j}x/ie # If it is, take the head of the range
...
0
05AB1E, 57 54 bytes
εžm3ôí…/*-ø"00.+"ª€SIFøí}yθèyнè}JD'=s.γžh'.«så}R2ôR».VJ
Uses 0-based coordinates similar as the challenge description, and [0,1,2,3] for [0,90,180,270] respectively as inputs.
Try it online or verify all test cases.
Explanation:
ε # Map over each of the (implicit) input-coordinates:
žm # Push ...
1
PHP, 267 235 229 225 221 213 bytes
<?php $t=[1,12,15,4,1];$j=$t[$k=$argv[1]];($o=$i=$t[$k+1])<5&&$o--;foreach(json_decode($argv[2])as$c){echo$s='/*-+963.85207410'[($c[0]*$i+$c[1]*$j+$o)%16];strpos(' /*-+',$s)&&$e="($e)";$e.=$s;}eval("echo'=',$e;");
Try it online!
6 bytes thanks to @Kevin Cruijssen.
Input directions are: 0 is 0, 1 is ...
0
05AB1E, 13 bytes
€NIgª'<¡íJ'<ý
Port of @MartinEnder's CJam answer, so make sure to upvote him as well!
Try it online or verify all test cases.
Explanation:
€N # Insert the 0-based index before each character of the (implicit)
# input-string, which also converts the input-string into a list
Ig # Push the input ...
0
APL, 13 characters/bytes
+/2≠/0,2⊥⍣¯1⊢
base 10 to base 2 conversion with all necessary digits
2⊥⍣¯1⊢
2⊥⍣¯1⊢4812390
---> 1 0 0 1 0 0 1 0 1 1 0 1 1 1 0 0 1 1 0 0 1 1 0
add a leading 0
0,
0,1 0 0 1 0 0 1 0 1 1 0 1 1 1 0 0 1 1 0 0 1 1 0
---> 0 1 0 0 1 0 0 1 0 1 1 0 1 1 1 0 0 1 1 0 0 1 1 0
pair-wise reduction that gives 1 if consecutive elements are ...
2
Burlesque, 8 bytes
rib2gnL[
Try it online!
ri # Read as integer
b2 # Convert to binary
gn # Collapse like bits
L[ # Find length
29 bytes
ri0j{j+.j2dg)n!2ug}{^^nz}w!vv
Try it online!
Actually doing the calculation
ri #Read val as int
0j #Push a 0 (counter) to the bottom of the stack
{
j+.j # Increment counter and put back
2dg ...
0
PHP, 55 52 bytes
for($i=$argn;$i;$c++,$i^=(1<<log($i,2)+1)-1);echo$c;
Try it online!
All done arithmetically/bitwise (no strings). Am stuck getting it smaller than the 51 byte answer though...
1
Python 3, 207 bytes
def s(n):
p=1
while n>=2*p:
p*=2
return n if n<=p else s(n+p//2)if n>=3*p/2 else s(m)if (m:=s(n-p)+p)!= n else n
a=lambda n,m:(b:=n&m)>-1 and s(a(a(a(s((n|m)-b%4),b//4*2),b//4),b%4*2+b%4//2))if m else n
Try it Online! (Verify all test cases)
Explanation
This program directly manipulates the binary translations of ...
2
Keg, 4 bytes
:0=+
Try it online!
Explanation
¿: # Take 2 inputs
0= # Check whether the input is 0
# (Yields 1 if the input is 0)
# (Yields 0 otherwise)
+ # Add the input with this result
# i.e. 0->1, 5->5
1
W, 2 bytes
1|
Explanation
a # Take an input
1| # Logical or with 1
# If n is 0, this evaluates to 1
# It evaluates to 0 otherwise
Top 50 recent answers are included
