New answers tagged kolmogorov-complexity
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
