New answers tagged

3

TI-BASIC, 172 bytes (on-calc) / 205 bytes (as text) Conveniently, the image is exactly as wide as the screen on the TI-84 Plus CE. This should work with an 83/84(+) too, but it won't display properly due to the smaller screens. {7,10,12,18,6,22,3,7,2,6,2,7,2,24,1,57,3,10,3,5,1,5,3,8,3,5,2,6,12,6,3,22,6,18,12,10,8→D " For(I,1,37 For(J,1,⌊D(I Ans+sub(&...


1

Vyxal, 11 9 bytes -2 thanks to A username ⁺ed404∴ɾƛ Try it Online! ⁺ed404∴ɾƛ ⁺e # Push 202 d # Double ^ to get 404 404 # Push 404 again ∴ # Take the maximum # If bytes are removed from either of the 404s, this ensures the intact one is pushed # If ∴ is removed, 404 is still at the top of the ...


0

JavaScript (Node.js), 249 bytes s=`\t***** ********* *********** ******* *** ************ ************* ************* ***** ***** ***** **** ****** *********** ********* \t*****`;s=s.split`\n`;s=s.map(l=>l+[...l].reverse().join``);console.log(s.join`\n`) Try it online!


2

Vyxal, 6 bytes C∑⇧11% Try it Online! Cjam port.


2

Unreadable, 337 319 bytes '""""""'""'"""'""""""'"""'""'""'""'""'""'""'""'""'""'"""'"""""'""'""""&...


0

05AB1E, 6 bytes '*T×v, Try it online! '* character literal: "*" T× repeat ten times as a string: "**********" v for each character y in this string: , print the top of stack. As the stack is empty and there is no input, this uses the value that was previously on the stack, "**********".


3

GForth 36 Bytes : A 10 0 do ." **********" CR loop ;


2

51AC8, 2 bytes Kh Try it Online! Finally an online interpreter. A little quirk you have to press Run twice.


3

GForth 17 Bytes ." Hello, World!"


1

Vyxal, 21 bytes ₇E(nk6τ₅32ε\0*p4ẇ\:j, Try it Online! Ugh, we really need a zfill builtin.


0

PostScript, 73 bytes Using binary encoding: 000000 31 88 01 88 64 7b 2f 69 92 3e 92 33 28 46 69 7a 000010 7a 42 75 7a 7a 29 69 88 0f 28 42 75 7a 7a 29 69 000020 20 35 28 46 69 7a 7a 29 69 88 03 33 7b 92 6a 30 000030 92 3d 7b 2f 69 92 3e 92 33 7d 7b 92 75 7d 92 55 000040 7d 92 83 69 20 3d 7d 92 48 (I can't give a TIO link as xpost doesn't support binary ...


2

Vyxal, 95 bytes `λƛ e⋏ṫ⟑⌈-←¾ λ□ a λṙ λ⟑ ≥⁋. λƛ ∵‹⟑⌈-←¾ λ□ a λṙ λ⟑ ×ė. λƛ ƛ»-ʁḢ λ½ a λṙ to ÷Ḣ a ↔Ŀized τ⟇. `₁½½* Try it Online! `...` # Dictionary compressed string ₁½½ # 100 / 2 / 2 = 25 * # That many times


5

JavaScript, 123 bytes 17/**/,x=>"Happy Birthday, "+(''?"ChartZ Belatedly!":"caird coinheringaahing!")//**/,x=>"Happy Birthday, ChartZ Belatedly!" Try it online! Variations (full text omitted for brevity) 17/**/,x=>"HB"+(''?"CB":"cc")//**/,x=>"HBCB" 7/**1/,x=?"HB&...


4

JavaScript (browser), 146 bytes Based off of the C and python answers. This is too long and it still seems sketchy to me 0/**/;;alert(""?"Happy Birthday, ChartZ Belatedly!":"Happy Birthday, caird coinheringaahing!")//*/-1;alert('Happy Birthday ChartZ Belatedly!')//*/ Where to move: The 0 goes after the second asterisk The ...


1

Dis, 47 bytes, cracks @tailsparkrabbitear's answer *|||_________________________________________>! Try it online! Link compiles and runs a copy of Ben Olmstead's interpreter in C. Explanation We make use of self-modifying code to execute the banned print instruction. *||| > # set the accumulator to 123; also ...


1

Splinter, 150 bytes I{ECA}H{\ }G{\r\e}F{H\I\'\mC\uG}E{\h\e}D{H\tEB\oG\,\ \TE}C{H\s}B{C\e\a\s\h}A{\e\l\l\s}\SIBAH\b\yDC\hACIH\aGBA\,F\.\ \S\oH\i\fCIBAH\o\nD\nFCIB\oGC\hA\. Try it online!


2

Deadfish~, 1216 1196 bytes iiissiici{ii}cdddci{iii{d}}ciii{dd{i}}cdddd{d}cddd{i}ccddd{i}c{{d{{i}}}}ciii{dd{i}}cdddd{d}cddddcdd{ii}cd{d}cdddcddd{i}ccddd{i}c{{d{{i}}}}c{d{i{i}}}ciii{ii}ci{i{d}}c{iiii{iii}}cdd{d}cdddci{iii{d}}ciii{dd{i}}cdddd{d}cddddcdd{ii}cd{d}cddd{i}ciiicddd{d}cd{{ii}}c{d{{i}}}cdsiiic{ii}cdddci{iii{d}}ciii{dd{i}}cd{d}cdddcddd{i}ccddd{i}c{{d{{...


0

Elixir, 99 bytes import Enum reduce 25..0,' ',&(IO.puts(&2++slice(?a..?z,&1,26))&&rem(&1,2)>0&& &2||tl&2) Try it online! Trying to find another way to generate the space string but can't make anything shorter...


1

Perl 5, 133 bytes say"S5s0 10 by t513, T5sh02are 10, 4. So if210 on t513, Then 4213 sh0."=~s/\d/(ells,seash," she sells ",ore,"I'm sure","he ")[$&]/ger Try it online!


0

Elixir, 111 bytes import Enum c=?a..?z a=map 1..26,&(drop(c,&1)++slice c,0,&1) map a++[hd a]++reverse(a),&IO.puts&1++tl reverse&1 Try it online! Feel like there are some key savings I'm missing here...


0

Elixir, 92 bytes import Enum map 0..25,&(IO.puts List.duplicate(' ',25-&1)++reverse(slice ?A..?Z,0..(25-&1))) Try it online! Need to find a way around that List.duplicate call....


1

Julia 1.0, 39 bytes ~c=['A':c;c-1:-1:'A'] !()=join.(.~~'Z') Try it online! output is a list of strings


1

Elixir, 51 bytes Enum.reduce ?a..?z,"",&(IO.puts([&2,&1])&&"#{&2} ") Try it online!


1

Elixir, 107 bytes import Enum a=reduce ?A..?Z,[],&(&2++[(at(&2,-1)||[])++[&1]]) map a++tl(reverse a),&IO.puts&1++tl reverse&1 Try it online!


2

Vyxal C, 4 bytes kz¦R Try it Online! Explanation: kz # Lowercase backwards alphabet ¦ # Prefixes R # Reverse each # 'C' flag - Center top of stack, join on newlines, and print


1

Vyxal jr, 11 bytes 27ƛkaǓøm;øm Try it Online! Explanation: 27ƛ ; # For each number x in range [1..27]: ka # Lowercase alphabet Ǔ # Rotate it left x times øm # Mirror without duplicating middle øm # Mirror without duplicating middle # 'j' flag - Join top of stack with newlines and print


1

Vyxal s, 14 bytes ₄ɽ18€912+fC?[N Try it Online! Explanation: ₄ɽ # Range [1,26) 18€ # Remove 18 912+ # Add 912 to each f # Flatten C # Convert each to character ?[ # If there is input: N # Swap case # 's' flag - Join top of stack and print


2

Vyxal j, 8 bytes kA¦ømƛøm Try it Online! Explanation: kA # Uppercase ALPHABET ¦ # Prefixes (A, AB, ABC, ...) øm # Mirror without duplicating middle ƛ # For each: øm # Mirror without duplicating middle


0

HTML + SCSS, 200 bytes <p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p><p *{margin:0}$s:'ABCDEFGHIJKLMNOPQRSTUVWXYZ';@for$i from 1 to 27{p:nth-child(#{$i}):after{content:str-slice(...


0

Elixir, 64 bytes Experimenting with learning Elixir, there's probably a better way, but this is the best I've come up with so far... import Enum a=?A..?Z map 0..25,&IO.puts slice(concat(a,a),&1,26) Try it online!


5

Python 3, 130 bytes '''''';print("Happy Birthday,",""and"ChartZ Belatedly!"or"caird coinheringaahing!")#''';print('Happy Birthday, ChartZ Belatedly!') Try it online! Alternate programs Byte 1 to 6: The ' is moved behind the first ;, therefore characters 1 to 87 are a string and are disregarded. Characters 89+ are ...


1

17. EasyasPi, Python 3 2, 110 bytes I realised that my first answer was written in Python 2 after I had posted. Here is the updated and golfed version. import os,base64 as b os.write(1,b.b64decode("5AMnHgBEQLwBWCAOITgwLiM8pA4CHKMuJByjLiEEAPEh//9UQAAmHsADX9Y=")) This was my first answer: n='\n' p,a='p'*8+n,'rnbqkbnr'+n print a+p+('.'*8+n)*4+(p+a)....


0

Haskell, 58 bytes f=mapM(\n->putStrLn.take 26.drop n$cycle['A'..'Z'])[0..25] Try it online!


10

C, 148 bytes /**/main(){printf("Happy Birthday, %s!",'\0'?"ChartZ Belatedly":"caird coinheringaahing");}///*/b;main(){puts("Happy Birthday, ChartZ Belatedly!");} Any character within the first main definition is moved to separate the first */, so the comment does not end there; it ends at the second */, and the second ...


0

ReRegex, 60 bytes (\w+\n)*+(?!Z)(.)(.{25})/$0\n$3$2/ABCDEFGHIJKLMNOPQRSTUVWXYZ Try it online! (\w+\n)*+ # Go to last line (?!Z) # If it doesn't start with Z (.)(.{25}) # Capture first and remaining 25 characters /$0\n$3$2 # replace them with the whole match, newline and first character moved to the end /ABCDEFGHIJKLMNOPQRSTUVWXYZ # Begin with ...


8

Klein 000, 133, 120, 119, 111 bytes .\"Happy Birthday, "\"ChartZ Belatedly!"@ >."Happy Birthday, ChartZ Belatedly!"@ "oinheringaahing!"@.>"caird c" Try it online! The idea of this follows the classic klein source-layout/radiation-hardening approach. We have 3 programs and we use the alignment to ...


0

Excel, 111 bytes Formula, 60 bytes =CONCAT(IF(A1:A32=""," ",REPT(" ",A1:A32)&REPT("*",B1:B32))) Data in cells, 51 bytes A B 1 8 10 2 3 4 10 4 5 2 22 6 7 1 7 8 2 6 9 2 7 10 11 1 24 12 13 0 26 14 15 0 26 16 17 0 5 18 3 10 19 3 5 20 21 1 5 22 3 8 23 3 5 24 25 1 6 26 12 6 27 28 2 22 29 ...


11

Jelly, 88 69 bytes FLe33,39ḷ¶““ṂḤ¿§⁹Ṫ¶3ẊñɼṃṀƘ»¹“®Ẉ'¶ẒȮzṂ#jKgN»Ç?Çȧ$Çȧ$ḷȯ““®Ẉ'¶ẒȮzṂ#jKgN» Try it online! A niladic link that prints "Happy Birthday, caird coinheringaahing!" Thanks to @JonathanAllan for pointing out I could save 19 bytes by changing the last string to a compressed one. Explanation of base script: Helper link F | Flatten L ...


1

Clarion, 388 bytes PROGRAM Map End o CString('sspspdspdspfdspfdsp') n CString('1223334445545665677') m CString('2 2 6 2 6 102 6 102 6 14102 6 14102 6 ') r CString(129) Code e#=Command('ATOM'); Loop i#=1 To 19 If e#>m[(i#*2)-1:(i#*2)] Then r=r&n[i#]&o[i#]&Clip(m[(i#*2)-1:(i#*2)])&' ' e#-=m[(i#*2)-1:(i#*2)]; Cycle.;If e# < m[(i#*...


16

Zsh -y, 145 148 144 142 131 130 bytes 1="echo Happy Birthday, ";$1caird coinheringaahing!>x "\";$1ChartZ Belatedly!>x #" "\";echo Happy Birthday, ChartZ Belatedly!>x #" Attempt This Online! Outputs to a file called x, which allows us to save bytes exiting because we can overwrite the file to change the output ...


2

Wolfram Language (Mathematica), 43 42 bytes #~ElementData~"FullElectronConfiguration"& -1 byte thanks to ovs. This does not work with Try it online!, so I've provided a screenshot instead. Note that this correctly shows the exceptions, such as 4s1 3d5 for chromium (Z=24), which occurs because half-filled and fully-filled orbitals are ...


0

Python 3.8 (pre-release), 123 bytes print(''.join(['\n',['*'*x,' '*-x][x<0]][x!=0]for x in(y-90for y in b'RdZVlZXpZYaX`XaZYrZtZtZ_WdW_ZY_WbW_ZY`N`ZXpZVlZRd'))) Try it online! Explanation The list-switch part outputs newlines when x is 0, x number of '*' characters when x > 0, and -x number of ' ' characters when x < 0. I think of it as abs(x) ...


1

Dis, Score: 1, cracked by Dingus { I have never thought of constructing the program when I posted this. PS. Rule clarification. Output exactly a character whose codepoint is 123 in decimal integer. Do not output else. Then terminate the program. No Dis implementation whose { command does putchar(codepoint of (a%256)) rather than putchar(codepoint of a); ...


2

Vim, 82 bytes 13i*<esc>Ypr Yppr p3r p7r :g/^/t0 3j2r 3jYp6|3r jh3r jh6r :%s/\v(\*+)( *)(.*)/&\3\2\1 Try it online! Explanation Approach: 1) Make a quarter-circle with asterisks. 2) Mirror it vertically. 3) Replace some of the asterisks with spaces. 4) Mirror it horizontally. 13i*<esc> Insert 13 asterisks. Ypr<spc> Make a copy of the ...


1

Vyxal r, 14 bytes 3»∧l%≥D⋎v»τiB℅ Try it Online! Takes input as a number.


2

Python, 142 140 bytes for x in"销夀㬀✣Ⰰᴀᴀᔵ┴♠㬀夀销":a,b,c,d=[int(x,16)for x in hex(ord(x))[2:]];s=' '*(a-1)+'*'*b+' '*c+'*'*d;print(s+s[::-1]) Try it online This is very... stupid. It's in the vein of another Python answer but uses a more naive encoding: (number of alternating spaces and asterisks in half of the image.) _ * _ * ======== 9 5 0 0 \...


1

Vyxal h, 0 bytes Try it Online! -3 thanks to Lyxal


2

///, 121 bytes /4/33//3/22//2/11//1/**//8/99//9/00//0/ /813 914 0124 *120120*12 34 134 134 *2 013 0*2 *2 03 0*2 129812 0124 914 813 Try it online! Will add explanation soon! In the meantime, if this isn't obscure enough, see if you can figure this one out!


1

Vyxal, 48 bytes `÷Ċ ₈Ȧ Mummy ∆ƛpa ∆ƛma`⌈` Ẏ꘍`+ƛ3(` doo`6*+,)\!+, Try it Online! A mess. `...`⌈ # Names, split on newlines `...`+ # Append ' Shark' to each ƛ # Foreach... 3( ) # Three times ` doo`6*+, # Append six doos and output ...


0

Japt, 2 bytes Aõ Test it Aõ A :10 õ :Range [1,A]


Top 50 recent answers are included