Search Results

Zsh, 18 bytes Abusing the short form of the for and implicit short command list. Will report "Command not found" for the first iteration, but will continue to the second and then crash. for i (1 0 …

Zsh (no coreutils), 32 bytes a=`<$0` <<<$[$#a/2-15] >>$0<<<: (Note the trailing newline) Uses the length of the script. On each invocation, the last line shown above will append : (identical to tr …

Zsh, 41 bytes We ignore N, as stated by the rules. for i;a+=(0) for i;a[i]=($[++j] $j) <<<$a Try it online! Pretty standard: Make an array of 0s to start, print it to finish. The a[i]=(a b) met …

Zsh, 20 bytes <<< $-$_$_$_$_$_ [ The problem we face here is alluded to in a comment above: Zsh prints the program name in addition to the line number before every error. The solution here uses …

(GNU) sed, 38 33 30 bytes -4 by removing the -n flag and implicitly printing on n, -1 by reusing previous /expression/, thanks @Cowsquack. -3 by using implicit branch-to-end. :a s/"/``/;T :b s//''/; …

Zsh, 46 bytes i=$1 repeat 4 printf %02x $[j=i%256,i=i/256,j] Try it online!

Zsh, 17 bytes <<<$[180-360./$1] Try it online! Pending consensus, the following may be a valid 15 byte solution, or more likely a 17 byte tie with () declaring it a function: ((180-360./$1)) …

AWK, 132 bytes /.* -?[0-9]/{a[$1]+=$2} !/.* -?[0-9]/{a[$2]=a[$1]+0;delete a[$1]} END{PROCINFO["sorted_in"]="@val_num_desc";for(k in a)print k,a[k]} Try it online! We're careful to +0 to make sure …

Zsh, 179 177 bytes typeset -A p l for x (`<&0`)((l[$x]++)) for k;((p[$k]=l[$k]<l[-$k]?l[$k]:l[-$k],l[$k]-=p[$k],l[-$k]-=p[$k])) a=({,-}$^@) for k (${(k)l:|a})((p[$k]=l[$k]/2,l[$k]%=2)) typeset p l …

Zsh, 95 bytes local -A m for w;{m[$w]=$w;x= for c (${(s::)w})x+=$c&&[ ${(M)@:#$x*} = $w ]&&m[$x]=$w } local m Try it online! The only way to "return" an associative array in Bash/Zsh is by decla …

Zsh, 66 bytes case $1 in ?ra*|g*)<<<S;;[lp]*|cho)<<<R;;h?r*|r*)<<<G;;*)<<<H;esac Try it online! No hash functions available, so we make do with pattern matching in a single case statement: case …

Bash, 42 bytes -1 bytes from @pxeger for((x=$1;x>y;)){ echo {,}$[++y]\ $[x--];} Try it online! Try it online! I'm usually the Zsh guy, but here Bash wins by a few bytes because it evaluates brace e …

Zsh, 81 74 bytes -3 bytes by testing set difference in arithmetic mode instead, -4 bytes by using local instead of typeset local -A p for x;a=(${a:#$x} ${x:|a})&&((${#x:|a}&&++p[$x])) local p <<<$a …

Zsh, 44 bytes <<<$@ a=({$1..$@[$#]}) (($#))&&$0 ${a:|argv} Try it online! <<<$@ # output arguments a=({$1..$@[$#]}) # all integers between first and last args (($#)) && # if the …

Zsh, 75 bytes for x;for y;((s=x+y,s%2||x==y))||a+=(${=${(M)@:#$[s/2]}:+$x $y}) <<<${@:|a} Try it online! Not as compact as I was expecting... for x;for y # for $x, $y in the Cartesian product of t …