jhnc‭

Perl, 122 bytes Reads line from stdin, exits 0 if true; 1 if false. perl -nE'@s=(0)x 3;map{@e=($x+=/x/-/X/,$y+=/y/-/Y/,$z+=/z/-/Z/);$c{"@s @e"}++;$c{"@e @s"}--;@s=@e}/./g;exit(%c<grep$_,%c)' ...

posted 5mo ago by jhnc‭  ·  edited 5mo ago by jhnc‭

awk, 35 bytes Takes input as newline-separated list of binary strings. awk '{gsub(/11+|0+/,_);$0=length}1' strip all runs of 0s and two or more 1s print length of remaining string

posted 7mo ago by jhnc‭  ·  edited 7mo ago by jhnc‭

Perl, 119 bytes Read a single Roman numeral on stdin (optionally newline-terminated). Outputs nothing unless one of the 50 strings is found, in which case it is printed (without trailing newline):...

posted 7mo ago by jhnc‭  ·  edited 6mo ago by jhnc‭

Perl, 152 bytes Pass 64 character string of 1s and 0s on stdin. Zero exit means success; non-zero means failure. perl -ne's/.{8}\K/2/g;@g=/./g;sub c{my($i)=@_;$i<0||$i>71||$g[$i]-$v||($g[$...

posted 6mo ago by jhnc‭  ·  edited 3mo ago by jhnc‭

Bash, 118 bytes same regex as my Perl answer the longer version here is pure bash, the short one calls out to POSIX(ish) utilities grep -Eo '([CIMX])\1{3}|C[CM][DM]|C[DM]C|I[IX][VX]|I[VX]I...

posted 6mo ago by jhnc‭  ·  edited 6mo ago by jhnc‭

Python, 142 bytes import re r=lambda c:re.search(r'([CIMX])\1{3}|C[CM][DM]|C[DM]C|I[IX][VX]|I[VX]I|VI?[VX]|XC[CLX]|XLX|[DX]C?[DM]|[ILV][CDLM]|[ILX]X[CL]|',c)[0] almost same regex as my Per...

posted 6mo ago by jhnc‭  ·  edited 6mo ago by jhnc‭

Perl, 22 bytes perl -pe'$_=y/13579//' input as newline-separated list of (one or more) strings y returns the number of characters replaced or deleted Try it online!

posted 6mo ago by jhnc‭

Perl, 223 bytes Reads single word from stdin. Prints rotated word. perl -ple'$n=length;$a=$_;$n==y/HINOSXZlosxzMWbqdphymwnu/HINOSXZlosxzWMqbpdyhwmun/||$n==($_=$a)=~y/AHIMOTUVWXYbdilmopqvwx/AHIMOT...

posted 6mo ago by jhnc‭

Perl, 111 bytes Function taking array of lowercase strings as argument and returning a sorted version. sub J{map{$k=lc;grep{!index$_,$k}@_}ReYGreeBrScBlaOcPeRubOlVFLiGoChMCreCriSiRoALeRusGreyPuWP...

posted 6mo ago by jhnc‭

awk, 12 bytes Print nothing if false, 1 if true $0=/[abipq]/ replace input with result of match no match: assigns false (empty string) ⇒ default print action is skipped match: assigns tr...

posted 6mo ago by jhnc‭

Perl, 127 bytes Reads string on stdin; display appropriate integer on stdout perl -nE'%h=@a=o1te10el11twel12th3t2fo4f5si6s7e8n9=~/\D+|\d+/g;$"="|";/^(@a)/;$a=$h{$1}+10*/een/;say/y$|-(@a)/?10*$a+$...

posted 5mo ago by jhnc‭  ·  edited 5mo ago by jhnc‭

Perl 5, 228 bytes Brute-force check. Reads line of space-separated digits from stdin. Prints answer to stdout. If empty output is permitted as "impossible", omit final say to save 10 bytes. per...

posted 4mo ago by jhnc‭  ·  edited 4mo ago by jhnc‭

Perl 5, 178 bytes Another brute-force approach. Reads line of space-separated digits from stdin. If possible, prints answer to stdout and exits 1. Otherwise prints nothing and exits 0. perl -aE...

posted 4mo ago by jhnc‭  ·  edited 4mo ago by jhnc‭

Perl 5, 93 bytes I am disappointed to discover that just doing the obvious coordinate calculations requires fewer bytes than my lookup table approach. 😢 Reads a string from stdin. Exits 0 if vali...

posted 4mo ago by jhnc‭  ·  edited 3mo ago by jhnc‭

Perl 5, 96 bytes Read stdin. Exits 1 if net, 0 if not. perl -00ae'@l=@r=map{++$c[$-[0]]while/#/g;y/#//||()}@F;@r>@c?@r:@l=@c;exit!grep$r[$_]>@l-2,0,-1' When oriented with longer side ver...

posted 4mo ago by jhnc‭  ·  edited 3mo ago by jhnc‭