Pertanyaan yang terhapus di Stack Overflow terkadang menghasilkan materi golf yang bagus.

Tulis fungsi yang mengambil integer nonnegatif sebagai input, dan mengembalikan true jika semua digit dalam representasi basis 10 dari angka tersebut adalah unik. Contoh:

48778584 -> false
17308459 -> true

Hitungan karakter hanya mencakup fungsi.

Jika Anda memilih untuk menjawab dalam C atau C ++: tidak ada makro, tidak ada perilaku tidak terdefinisi; perilaku yang ditentukan implementasi dan peringatan kompiler baik-baik saja.

Skrip golf, 8 7 karakter:

{`..&=}

• ` - pertegas argumen
• .. - mengkloning dua kali
• & - berpotongan dengan dirinya sendiri (menghapus duplikat)
• = - periksa kesetaraan.

jika fungsi perlu dinamai (109 karakter ):

{`..&=}:a

jika suatu program mencukupi (54 karakter ):

..&=

Python 2 (28) (32)

lambda n:10**len(set(`n`))>n

Backticks mengambil representasi string. Konversi ke set menghapus duplikat, dan kami memeriksa apakah ini mengurangi panjang dengan membandingkan dengan 10 ^ d, yang lebih besar dari semua angka d-digit tetapi tidak ada (d + 1) -digit angka.

Kode lama:

lambda n:len(set(`n`))==len(`n`)

APL (6)

≡∘∪⍨∘⍕

Salah satu dari beberapa kali gaya tacit lebih pendek di APL juga.

Itu 8 karakter untuk memberinya nama,

f←≡∘∪⍨∘⍕

tapi itu tidak perlu untuk menggunakannya:

      ≡∘∪⍨∘⍕ 199
0
      ≡∘∪⍨∘⍕ 198
1
      f←≡∘∪⍨∘⍕
      f¨ 198 199 200 201
1 0 0 1
      ≡∘∪⍨∘⍕¨ 198 199 200 201
1 0 0 1

Perl, 19 karakter

print<>!~/(\d).*\1/

Rebmμ (10 karakter)

e? AtsAuqA

Trik "mushing" Rebmu adalah bahwa case-insensitive, jadi karakter dijalankan bersama. Setiap kali transisi kasus dipukul, itu terbagi ke token berikutnya. Dengan menggunakan transisi alih-alih jenis CamelCase, pilihan unik untuk memulai dengan modal besar berarti "set-word" dibuat. (Sementara set-words dapat digunakan untuk tujuan lain dalam pemrograman simbolik, mereka dievaluasi sebagai tugas secara default).

Jadi ini "tidak bersuara" ke:

e? a: ts a uq a

Ruang diperlukan karena setelah Anda memulai serangkaian proses bergantian, Anda tidak dapat menggunakan trik itu untuk mendapatkan kata-kata setelah yang pertama kecuali Anda memulai proses baru. Jadi e?AtsAuqAakan membuat Anda e? a ts a uq a... tidak ada tugas.

(Catatan: Untuk alasan yang mungkin bukan alasan yang bagus, saya cenderung lebih suka memikirkan kembali solusi sehingga tidak ada spasi, jika jumlah karakter sama. Karena tanda kurung, tanda kurung, dan string secara implisit mengakhiri simbol ... sering kali ada yang adil sejumlah peluang untuk ini.)

Bagaimanapun, ketika dipetakan ke Rebol yang disingkat:

equal? a: to-string a unique a

Melemparkan beberapa tanda kurung untuk membantu mendapatkan inti dari urutan evaluasi:

equal? (a: (to-string a)) (unique a)

Jadi operator kesetaraan awalan diterapkan pada dua argumen - yang pertama hasil penugasan untuk aversi string itu sendiri, dan yang kedua hasil uniquedijalankan terhadap string itu. Kebetulan yang unik akan memberi Anda kembali elemen dalam urutan yang sama dengan yang Anda lewati ... begitu unik dari "31214" adalah "3124" misalnya.

Jalankan dengan:

>> rebmu/args "e? AtsAuqA" 17308459             
== true

Ada juga beberapa statistik dan informasi debug:

>> rebmu/args/stats/debug "e? AtsAuqA" 48778584 
Original Rebmu string was: 10 characters.
Rebmu as mushed Rebol block molds to: 10 characters.
Unmushed Rebmu molds to: 15 characters.
Executing: [e? a: ts a uq a]
== false

Jika persyaratannya adalah seseorang harus mendefinisikan fungsi yang dinamai / digunakan kembali, Anda dapat membuat "A-function" yang secara implisit mengambil parameter bernama a with a|. (Fungsi B akan dibuat dengan b|dan mengambil parameter bernama A lalu yang bernama B). Jadi itu akan menambah lima karakter lagi ... katakanlah Anda memanggil fungsi "f"

Fa|[e? AtsAugA]

"Kamu tertawa! Mereka menertawakan Einstein! Atau tunggu ... kan? Aku ... tidak tahu."

FRACTRAN - 53 38 pecahan

47/10 3/5 106/47 3599/54272 53/61 2881/27136 2479/13568 2077/6784 1943/3392 1541/1696 1273/848 1139/424 871/212 737/106 469/53 142/3953 67/71 5/67 1/147 1/363 1/507 1/867 1/1083 1/1587 1/2523 1/2883 1/4107 1/5547 1/7 1/11 1/13 1/17 1/19 1/23 1/29 1/31 1/37 1/43

Gunakan pembagian untuk menghitung jumlah kemunculan setiap digit. Panggilan dengan memasukkan n di register 2 dan mengatur register 5 ke 1, memberikan output di register 3 (0 jika salah, 1 jika benar). Juga, pastikan sisa program Anda hanya menggunakan register> 71.

Sunting 25/12/14: Sudah 7 bulan dan kami sudah mendapatkan Cuplikan Stack, jadi inilah salah satu untuk menguji kodenya (menggunakan juru bahasa saya yang bisa lebih baik di sini ).

var ITERS_PER_SEC=1E5;var TIMEOUT_MILLISECS=5E3;var ERROR_INPUT="Invalid input";var ERROR_PARSE="Parse error: ";var ERROR_TIMEOUT="Timeout";var ERROR_INTERRUPT="Interrupted by user";var running,instructions,registers,timeout,start_time,iterations;function clear_output(){document.getElementById("output").value="";document.getElementById("stderr").innerHTML=""};function stop(){running=false;document.getElementById("run").disabled=false;document.getElementById("stop").disabled=true;document.getElementById("clear").disabled=false}function interrupt(){error(ERROR_INTERRUPT)}function error(msg){document.getElementById("stderr").innerHTML=msg;stop()}function factorise(n){var factorisation={};var divisor=2;while(n>1){if(n%divisor==0){var power=0;while(n%divisor==0){n/=divisor;power+=1}if(power!=0)factorisation[divisor]=power}divisor+=1}return factorisation};function fact_accumulate(fact1,fact2){for(var reg in fact2)if(reg in fact1)fact1[reg]+=fact2[reg];else fact1[reg]=fact2[reg];return fact1};function exp_to_fact(expression){expression=expression.trim().split(/\s*\*\s*/);var factorisation={};for(var i=0;i<expression.length;++i){var term=expression[i].trim().split(/\s*\^\s*/);if(term.length>2)throw"error";term[0]=parseInt(term[0]);if(isNaN(term[0]))throw"error";if(term.length==2){term[1]=parseInt(term[1]);if(isNaN(term[1]))throw"error";}if(term[0]<=1)continue;var fact_term=factorise(term[0]);if(term.length==2)for(var reg in fact_term)fact_term[reg]*=term[1];factorisation=fact_accumulate(factorisation,fact_term)}return factorisation}function to_instruction(n,d){instruction=[];divisor=2;while(n>1||d>1){if(n%divisor==0||d%divisor==0){reg_offset=0;while(n%divisor==0){reg_offset+=1;n/=divisor}while(d%divisor==0){reg_offset-=1;d/=divisor}if(reg_offset!=0)instruction.push(Array(divisor,reg_offset))}divisor+=1}return instruction};function run(){clear_output();document.getElementById("run").disabled=true;document.getElementById("stop").disabled=false;document.getElementById("clear").disabled=true;timeout=document.getElementById("timeout").checked;var code=document.getElementById("code").value;var input=document.getElementById("input").value;instructions=[];code=code.trim().split(/[\s,]+/);for(i=0;i<code.length;++i){fraction=code[i];split_fraction=fraction.split("/");if(split_fraction.length!=2){error(ERROR_PARSE+fraction);return}numerator=parseInt(split_fraction[0]);denominator=parseInt(split_fraction[1]);if(isNaN(numerator)||isNaN(denominator)){error(ERROR_PARSE+fraction);return}instructions.push(to_instruction(numerator,denominator))}try{registers=exp_to_fact(input)}catch(err){error(ERROR_INPUT);return}running=true;iterations=0;start_time=Date.now();fractran_iter(1)};function regs_to_string(regs){reg_list=Object.keys(regs);reg_list.sort(function(a,b){return a-b});out_str=[];for(var i=0;i<reg_list.length;++i)if(regs[reg_list[i]]!=0)out_str.push(reg_list[i]+"^"+regs[reg_list[i]]);out_str=out_str.join(" * ");if(out_str=="")out_str="1";return out_str};function fractran_iter(niters){if(!running){stop();return}var iter_start_time=Date.now();for(var i=0;i<niters;++i){program_complete=true;for(var instr_ptr=0;instr_ptr<instructions.length;++instr_ptr){instruction=instructions[instr_ptr];perform_instr=true;for(var j=0;j<instruction.length;++j){var reg=instruction[j][0];var offset=instruction[j][1];if(registers[reg]==undefined)registers[reg]=0;if(offset<0&&registers[reg]<-offset){perform_instr=false;break}}if(perform_instr){for(var j=0;j<instruction.length;++j){var reg=instruction[j][0];var offset=instruction[j][1];registers[reg]+=offset}program_complete=false;break}}if(program_complete){document.getElementById("output").value+=regs_to_string(registers);stop();return}iterations++;if(timeout&&Date.now()-start_time>TIMEOUT_MILLISECS){error(ERROR_TIMEOUT);return}}setTimeout(function(){fractran_iter(ITERS_PER_SEC*(Date.now()-iter_start_time)/1E3)},0)};

<div style="font-size:12px;font-family:Verdana, Geneva, sans-serif;"><div style="float:left; width:50%;">Code:<br><textarea id="code" rows="4" style="overflow:scroll;overflow-x:hidden;width:90%;">47/10 3/5 106/47 3599/54272 53/61 2881/27136 2479/13568 2077/6784 1943/3392 1541/1696 1273/848 1139/424 871/212 737/106 469/53 142/3953 67/71 5/67 1/147 1/363 1/507 1/867 1/1083 1/1587 1/2523 1/2883 1/4107 1/5547 1/7 1/11 1/13 1/17 1/19 1/23 1/29 1/31 1/37 1/43</textarea><br>Input:<br><textarea id="input" rows="2" style="overflow:scroll;overflow-x:hidden;width:90%;">2^142857 * 5</textarea><p>Timeout:<input id="timeout" type="checkbox" checked="true"></input></p></div><div style="float:left; width:50%;">Output:<br><textarea id="output" rows="6" style="overflow:scroll;width:90%;"></textarea><p><input id="run" type="button" value="Run" onclick="run()"></input><input id="stop" type="button" value="Stop" onclick="interrupt()" disabled="true"></input><input id="clear" type="button" value="Clear" onclick="clear_output()"></input>&nbsp;<span id="stderr" style="color:red"></span></p></div></div>

Ganti 142857dengan nomor lain. Keluaran harus 3^1jika benar, 1 = 3^0jika salah. Membawa sedangkan untuk angka yang lebih besar (baik, ini adalah FRACTRAN ...).

JavaScript - 23 Karakter

Sebagai fungsi (ECMAScript 6):

f=x=>!/(.).*\1/.test(x)

Atau mengambil input dari prompt (25 karakter)

!/(.).*\1/.test(prompt())

C # 73 60 59

Golf pertama untuk saya ...

Tulis fungsi yang mengambil bilangan bulat negatif sebagai input

bool f(int i){return(i+"").Distinct().SequenceEqual(i+"");}

Bisa strip karakter lain dengan mengkonversi uintke int, tapi aku suka mengambil tugas terlalu harfiah dari jalan di sekitar lainnya. Ini dia ...

Ruby (24 byte)

Gunakan ekspresi reguler untuk mencocokkan "beberapa karakter, diikuti oleh nol atau lebih karakter, lalu karakter yang sama".

->(s){!!(s !~/(.).*\1/)}

Jika nilai true atau falsy diterima, bukan literal trueatau false, maka kita mendapatkan 20 karakter:

->(s){s !~/(.).*\1/}

C (87)

Karena saya tidak bisa menang, saya akan mengejar efisiensi.

Kode fungsi:

int u(uint32_t d){short s=0,f;while(d){f=1<<d%10;if(s&f)return 0;s|=f;d/=10;}return 1;}

Mathematica, 35 25 karakter

(27 jika fungsi membutuhkan nama.)

Unequal@@IntegerDigits@#&

EDIT: Disimpan 8 karakter berkat belisarius!

R, 53 51 48 34 Bytes

function(n)!grepl("(.).*\\1",n,,T)

Cobalah online!

Konversikan ke string dan pisah. Konversikan ke daftar jumlah minus 1, jumlahkan dan negasikan

Terinspirasi oleh Jawaban bilangan paling umum oleh Alex dan saran dari Hugh.

Satu pasangan disimpan, terima kasih kepada @plannapus Satu lagi dari @Gregor Dan pasangan dari menjadikannya fungsi anonim

Sekarang dengan kebaikan regex yang luar biasa terima kasih kepada @ Joe. Ini mencari setiap karakter tunggal dalam jumlah yang cocok dengan dirinya sendiri di mana saja dalam string. The greplperintah mengembalikan logis yang kemudian kembali. Reg gaya reg diatur ke True.

J (9)

Asumsikan nilai yang akan diuji adalah dalam variabel b (Saya tahu ini dapat dibuat menjadi fungsi, tetapi tidak memiliki petunjuk tentang bagaimana . J membingungkan. Setiap bantuan tentang ini dihargai) Terima kasih Marinus!

(-:~.)@":

Cek apakah panjang string rep nomor dengan semua duplikat dihapus sama dengan panjang rep string biasa.

R ( 70 , 60 , 53 , 52)

Terima kasih atas komentar yang bermanfaat! Komentar Anda dimasukkan dalam jawaban.

### Version 70 chars
f=function(x)!any(duplicated(strsplit(as.character(x),split="")[[1]]))

### Version 60 chars
f=function(x)all(table(strsplit(as.character(x),"")[[1]])<2)

### Version 53 chars
f=function(x)all(table(strsplit(paste(x),"")[[1]])<2)

### Version 52 chars
f=function(x)all(table(strsplit(c(x,""),"")[[1]])<2)

f(48778584)
f(17308459)

Mathematica (20 19)

(22 21 jika fungsi membutuhkan nama)

Max@DigitCount@#<2&

atau

Max@DigitCount@#|1&

dimana | ist dimasukkan sebagai [Esc] membagi [Esc]

Brachylog , 1 byte

≠

Cobalah online!

C99, 59 karakter

a(x){int r=1,f[10]={};for(;x;x/=10)r&=!f[x%10]++;return r;}

Groovy (36 karakter)

f={s="$it" as List;s==s.unique(!1)}

Mengujinya menggunakan:

println f(args[0].toInteger())

Haskell:

 import Data.List

 all ((== 1) . length) . group . sort . show

J (8)

Sepertae yang kompeten dari jawaban saya sebelumnya.

*/@~:@":

R, 66 65 karakter

f=function(x)!sum(duplicated((x%%10^(i<-1:nchar(x)))%/%10^(i-1)))

Pisahkan digit menggunakan divisi integer dan modulo, lalu periksa apakah duplikat.

Pemakaian:

> f(48778584)
[1] FALSE
> f(17308459)
[1] TRUE

Atau, seperti yang disarankan @MickyT, untuk 63 karakter:

f=function(x)!anyDuplicated((x%%10^(i<-1:nchar(x)))%/%10^(i-1))

C, 58 byte

f;a(x){for(f=0;x;x/=10)f+=1<<x%10*3;return!(f&920350134);}

Dapat menyimpan penghitungan hingga 7 digit identik sebelum berguling.

dalam program uji (lebih mudah untuk melihat cara kerjanya dengan konstanta dalam oktal)

a(x){int f=0;for(;x;x/=10)f+=1<<x%10*3;return!(f&06666666666);}

main(){
scanf("%d",&r);
printf("%o\n",a(r));}

Jika Anda memiliki kekuatan besar 2 berguna, konstanta dapat dihitung seperti f&(1<<30)/7*6

Haskell , 34 byte

import Data.List
((==)=<<nub).show

Cobalah online!

Javascript 73 karakter

function f(n){return !~(n+'').split('').sort().join('').search(/(\d)\1/)}

Menembus 98, 17 byte

Ini adalah jawaban yang tidak bersaing karena Befunge tidak memiliki fungsi.

~:1g1`j@1\[email protected]

Mencetak a 1jika digit angka semuanya unik; jika tidak, itu hanya berakhir.

Ini bekerja dengan mengakses sel di ruang Funge yang xkoordinatnya adalah nilai ASCII dari karakter yang dimasukkan (mengambil karakter masukan berdasarkan karakter) dan yang ykoordinatnya adalah 1. Jika digit belum terlihat sebelumnya, nilai sel adalah 32(karakter spasi). Jika demikian, saya menetapkan nilai ke 1.

Sebagai bonus, ini juga berlaku untuk non-angka.

PowerShell - 26

!($args|sls '(.)(?=.*\1)')

Perl 6 (19 byte)

{.comb.uniq==.comb}

.combmembagi string menjadi karakter (misalnya, 42.combmemberi "4", "2"). .uniqmenghapus semua karakter non-unik..combkarakter dalam string (awalnya saya gunakan .chars, tetapi .comblebih pendek). ==mengubah daftar menjadi sejumlah elemen di dalamnya, dan membandingkan jumlahnya. Ketika .digunakan tanpa objek sebelumnya, $_yang merupakan parameter fungsi default diasumsikan. {}adalah fungsi literal.

C, 76

Ini bukan tempat yang hampir menang, tetapi saya akan mempostingnya hanya untuk menunjukkan pendekatan alternatif.

c;i;a[99];main(){while(~(c=getchar()))a[c]++;for(;i<99;)a[i++]>1&&puts("");}

Mencetak baris baru jika salah, tidak mencetak apa pun jika benar.

POSIX sh dan egrep ( 47 , 43 , 40)

f()([ ! `echo $1|egrep '([0-9]).*\1'` ])

• [-1 char]: Gunakan !sebagai ganti -zdengan test- Terima kasih DigitalTrauma
• [-1 char]: Gunakan `CODE`sebagai ganti $(CODE)- Terima kasih DigitalTrauma
• [-2 karakter]: Gunakan fold -1sebagai ganti grep -o .^₁ - Terima kasih DigitalTrauma.
• [-3 karakter]: Periksa digit berulang dengan ekspresi reguler direferensikan.

Jika kepatuhan POSIX tidak penting echo PARAM |dapat diganti dengan <<<PARAM, mengurangi panjang fungsi menjadi 37 :

f()([ ! `egrep '([0-9]).*\1'<<<$1` ])

Pemakaian:

$ if f 48778584; then echo true; else echo false; fi
false
$ if f 17308459; then echo true; else echo false; fi
true

^{_{1 The fold -Nnotasi sudah ditinggalkan di beberapa versi fold.}}

Jawa ( 131 59 57)

57 karakter:

dihapus ^ dan $ seperti yang disarankan @ n̴̖̋h̷͉̃a̷̭̿h̸̡̅ẗ̵̨́d̷̰̀ĥ̷̳

boolean u(int n){return !(n+"").matches(".*(.).*\\1.*");}

59 karakter (berfungsi juga dengan angka negatif!):

boolean u(int n){return !(n+"").matches("^.*(.).*\\1.*$");}

79 78 karakter (terima kasih @ n̴̖̋h̷͉̃a̷̭̿h̸̡̅ẗ̵̨́d̷̰̀ĥ̷̳):

Gunakan untuk loop untuk menyimpan beberapa charachers dan gunakan int sebagai array boolean.

Gunakan & alih-alih && untuk menyimpan 1 karakter (Ternyata java mengizinkannya).

boolean u(int n){for(int x=0;n>0&(x>>n%10&1)==0;n/=10)x|=1<<n%10;return n==0;}

131 karakter (menghasilkan true untuk angka negatif):

boolean u(int n){int[] p=new int[]{2,3,5,7,11,13,17,19,32,29};double a=9001312320D;while(n>0){a/=p[n%10];n/=10;}return (long)a==a;}

dengan komentar:

boolean unique(int n){
    int[] p=new int[]{2,3,5,7,11,13,17,19,32,29};//list of 10 first primes
    double a=9001312320D;//10 first primes multiplied
    while(n>0){
        a/=p[n%10];//divide by (n%10+1)th prime
        n/=10;//divide n by 10, next digit
    }
    return (long)a==a;//if a is integer then n has all digits unique
}

Dan jawaban yang secara teknis benar (jumlah karakter hanya mencakup fungsi, bukan variabel global), tapi saya pikir itu curang, 29 karakter:

boolean u(int i){return m[i];}

m [] adalah array boolean yang berisi jawaban yang benar untuk semua bilangan bulat 32-bit.