Pemrograman Puzzle & Golf Kode

7
Buatkan saya sepotong roti sebelum saya dipecat!

Backstory Tidak terlalu nyata, sshh! Semuanya dimulai suatu hari ketika seorang rekan kerja membawa roti buatan sendiri untuk ulang tahun bos saya. Bos saya sangat menyukai roti ini, dan dia menginginkan yang lain. Sayangnya, rekan kerja saya sudah berhenti, jadi bos saya meminta saya memberinya...

6
Praktek

C, 450 karakter Edit: dihapus zero Edit: hanya menggunakan plusdanminus Saya mencari ekspresi terpendek yang menambahkan karakter dan menjaga kondisi tetap benar. Saya menemukan plus ten plus five15 panjang dan menambahkan 15 ke string. Saya hanya perlu ekspresi untuk 15 angka pertama yang...

6
Tantangan 4x4

Ada permainan otak yang disebut Enumerate (yang saya buat, berdasarkan Takuzu ). Tantangan Anda adalah memainkan game ini. Tugas Pecahkan game 4x4 Enumerate / Takuzu. Terima kisi start melalui STDIN atau baris perintah. Keluarkan grid yang dipecahkan melalui STDOUT atau menulis ke...

6
NASM x86_64 - 349 283 byte

File MS-DOS .COM, 56 byte Di sini konten file dalam heksadesimal: b4 09 ba 2c 01 cd 21 b2 2f e8 11 00 b2 2d e8 0c 00 b2 5c e8 07 00 b2 7c e8 02 00 eb ea b4 02 cd 21 b2 08 cd 21 b9 05 00 f4 e2 fd c3 4c 6f 61 64 69 6e 67 2e 2e 2e 20 24 Kode assembler yang cocok terlihat seperti ini: mov ah, 9 ;...

5
Python 3.5, 135 byte

CJam ( 39 37 byte) A,1>e!{5ew{2Mtz}2*::+)-!},3f/Ma*Sf*N* Demo online (peringatan: mungkin memerlukan waktu lebih dari satu menit untuk berjalan, memicu permintaan "Batalkan skrip ini?" Dari browser). Bekerja dengan memfilter semua grid yang mungkin digunakan 5ewuntuk memetakan [a b c d e f...

4
> <>, 21 19 byte

> <>, 21 19 byte 'rd3*70.r l?!;o90.< Coba di sini! Menggunakan penerjemah *> <> untuk kenyamanan, tetapi ini valid> <> kode. Jika kesalahan keluar diizinkan, maka itu dapat dilakukan dalam 16 byte: 'd3*}70.!r !|o| Coba di

4
Java 8, 485 byte

Java 8, 485 byte Bisa mengurangi 5 byte lain penamaan fungsi, dbukandivide atau 16 byte lain jika tidak menghitung definisi kelas. public class G{int l(String a){return a.length();}String s(String n,String m){while(l(n)>l(m))m=0+m;String a="";for(int

3
Kanvas , 5 4 byte

Kanvas , 5 4 byte ║Q↷↷ Kanvas jawaban pertama, jadi mari kita mulai dengan yang mudah. :) -1 byte terima kasih kepada @dzaima . Garis miring secara otomatis dikonversi ketika mirroring atau berputar di Canvas. Bisa jadi 1 byte ╬( Coba online ), tetapi sayangnya itu juga mengubah titik-titik...

3
Haskell, 183

199 karakter dalam Oktaf: m=@(x)mod(x,1928049029);[d,l]=scanf('%d');c=d(1);e=repmat(int64(d(2:2:l)),1,c);[_,b]=gcd(e-e',1928049029*ones(c));b=eye(c)+m(e.*b);x=b(1,:);for

3
C, 320 294 byte

C, 320 294 byte Kompilasi dengan -std = c99 #include<stdio.h> int s(int i){for(int j=i;j;j/=10)i+=j%10;return i;}int main(){int c=0,i;while(scanf("%d",&i)){c++;if(!i)continue;int j,o[]={1,3,9},p[]={1,3,9};Q:for(j=0;j<3;j++){if(o[j]==i)goto D;else if(o[j]<i){o[j]=s(o[j]);goto...

2
Python 136

Python 136 Saya yakin seseorang dapat melakukan ini dengan lebih baik - Saya belum pernah menggunakan Tkinter sebelumnya. Secara khusus saya bertaruh l.pack()dan l["text"]bisa dihindari. Golf from Tkinter import* from datetime import datetime as d r=Tk() l=Label(r) l.pack() while 1:...

2
MATL , 25 byte

MATL , 25 byte Ini berfungsi untuk input hingga 16: 10,i:^9/Y[t0)Yftb!w\~s1=) Versi berikut menggunakan 31 byte dan berfungsi hingga 18. Untuk 19itu membutuhkan sekitar 4 GB memori (saya belum bisa menjalankannya). 10,i:^9/Y[t0)5X2Y%Yfotb!w\~s1=) Contoh >> matl >...

2
R , 84 77 byte

R , 84 77 byte -7 byte berkat mb7744 unique(lapply(x<-sort(table(scan()),T),function(y)as.double(names(x[x==y])))) Baca dari stdin; mengembalikan daftar dengan subvektor bilangan bulat dalam urutan yang meningkat. Jika kita bisa mengembalikan string alih-alih int, maka saya bisa menjatuhkan...

2
Retina , 74 byte

Retina , 74 byte _18¶/ 18\-| 18|-| 18|-\_9 3_4% % %/ - ¶-20¶ % /¶ 10| \d+ $* +`(.)1 $1$1 Cobalah

1
MuPAD 113 - 8 = 105

MuPAD 113 - 8 = 105 g:=[0,ithprime(i)$i=1..n]:f:=_for_in:f(l,g,f(d,g,f(b,g,f(a,g,f(c,g,if l+d+b+a+c=n then print(l,d,b,a,c)end))))) Versi ini juga akan mencetak semua permutasi dari setiap solusi: 0, 0, 0, 0, 7 0, 0, 0, 2, 5 0, 0, 0, 5, 2 0, 0, 0, 7, 0 0, 0, 2, 0, 5 ... Dan ya, itu membuat...

1
Perl 5 , 52 + 1 ( -n) = 53 byte

Bahasa Wolfram (Mathematica) , 55 byte ""<>#&/@Union@Tuples[{#,ToUpperCase@#}]&@*Characters Cobalah online! adalah operator transpos (dan ditampilkan sebagai T superskrip dalam