Các câu hỏi đã bị xóa trên Stack Overflow đôi khi tạo nên chất liệu golf tuyệt vời.

Viết hàm lấy một số nguyên không âm làm đầu vào và trả về true nếu tất cả các chữ số trong biểu diễn cơ sở 10 của số đó là duy nhất. Thí dụ:

48778584 -> false
17308459 -> true

Số lượng ký tự chỉ bao gồm các chức năng.

Nếu bạn chọn trả lời bằng C hoặc C ++: không có macro, không có hành vi không xác định; hành vi xác định thực hiện và cảnh báo trình biên dịch là tốt.

Golf, số 8 7 ký tự:

{`..&=}

• ` - xâu chuỗi đối số
• .. - nhân bản hai lần
• & - giao với chính nó (loại bỏ trùng lặp)
• = - kiểm tra sự bình đẳng.

nếu hàm cần được đặt tên (109 ký tự ):

{`..&=}:a

nếu một chương trình đủ (54 ký tự ):

..&=

Con trăn 2 (28) (32)

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

Các backticks lấy đại diện chuỗi. Chuyển đổi thành một tập hợp sẽ loại bỏ các bản sao và chúng tôi kiểm tra xem điều này có làm giảm độ dài hay không bằng cách so sánh với 10 ^ d, lớn hơn tất cả các số có chữ số d nhưng không có số (d + 1).

Mã cũ:

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

APL (6)

≡∘∪⍨∘⍕

Một trong số ít lần phong cách ngầm cũng ngắn hơn trong APL.

Đó là 8 ký tự để đặt tên cho nó,

f←≡∘∪⍨∘⍕

nhưng không cần thiết phải sử dụng nó:

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

Perl, 19 ký tự

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

Rebmμ (10 ký tự)

e? AtsAuqA

Thủ thuật "nham nhở" của Rebmu là nó không phân biệt chữ hoa chữ thường, vì vậy các nhân vật được chạy cùng nhau. Bất cứ khi nào một chuyển đổi trường hợp được nhấn, nó sẽ phân chia thành mã thông báo tiếp theo. Bằng cách sử dụng các hiệu ứng chuyển tiếp thay vì một loại điều của CamelCase, lựa chọn duy nhất để bắt đầu với việc chạy vốn có nghĩa là "từ đặt" được thực hiện. (Mặc dù các từ được đặt có thể được sử dụng cho các mục đích khác trong lập trình tượng trưng, ​​chúng được đánh giá là các bài tập theo mặc định).

Vì vậy, "unmushes" này để:

e? a: ts a uq a

Không gian là cần thiết bởi vì một khi bạn đã bắt đầu một loạt các trường hợp xen kẽ, bạn không thể sử dụng thủ thuật đó để có được một từ được đặt sau lần đầu tiên trừ khi bạn bắt đầu một lần chạy mới. Vì vậy, e?AtsAuqAsẽ có được bạn e? a ts a uq a... không có nhiệm vụ.

(Lưu ý: Vì lý do có thể không có lý do đặc biệt tốt, tôi có xu hướng thích suy nghĩ lại các giải pháp để không có khoảng trắng, nếu số ký tự bằng nhau. Vì dấu ngoặc, dấu ngoặc đơn và chuỗi kết thúc một ký hiệu ... thường có một công bằng số cơ hội cho việc này.)

Trong mọi trường hợp, khi được ánh xạ tới Rebol, nó viết tắt:

equal? a: to-string a unique a

Ném vào một số dấu ngoặc đơn để giúp có được ý chính của thứ tự đánh giá:

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

Vì vậy, toán tử đẳng thức tiền tố được áp dụng cho hai đối số - kết quả đầu tiên của việc gán cho aphiên bản chuỗi của chính nó và kết quả thứ hai của uniqueviệc chạy theo chuỗi đó. Điều đó xảy ra rằng sự độc đáo sẽ cung cấp cho bạn các yếu tố theo cùng thứ tự bạn đã vượt qua chúng ... vì vậy, duy nhất của "31214" là "3124" chẳng hạn.

Chạy nó với:

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

Ngoài ra còn có một số thống kê và thông tin gỡ lỗi:

>> 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

Nếu yêu cầu là người ta phải xác định một hàm được đặt tên / tái sử dụng, bạn có thể tạo một "Hàm A", mặc nhiên lấy tham số có tên là a với a|. (Hàm B sẽ được tạo b|và lấy tham số có tên A rồi đến tên B). Vì vậy, nó sẽ thêm năm ký tự nữa ... giả sử bạn gọi hàm là "f"

Fa|[e? AtsAugA]

"Bạn cười! Họ đã cười với Einstein! Hay chờ đợi ... phải không? Tôi ... không biết."

FRACTRAN - 53 38 phân số

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

Sử dụng phép chia để đếm số lần xuất hiện của mỗi chữ số. Gọi bằng cách đặt n vào thanh ghi 2 và cài đặt thanh ghi 5 thành 1, đưa ra đầu ra trong thanh ghi 3 (0 nếu sai, 1 nếu đúng). Ngoài ra, đảm bảo phần còn lại của chương trình của bạn chỉ sử dụng các thanh ghi> 71.

Chỉnh sửa 25/12/14: Đã 7 tháng và chúng tôi đã nhận được Stack Snippets, vì vậy đây là một để kiểm tra mã (sử dụng trình thông dịch có thể tốt hơn của tôi ở đây ).

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>

Thay thế 142857bằng một số khác. Đầu ra phải là 3^1nếu đúng, 1 = 3^0nếu sai. Mất một lúc để có số lượng lớn hơn (tốt, đây là FRACTRAN ...).

JavaScript - 23 ký tự

Là một hàm (ECMAScript 6):

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

Hoặc lấy đầu vào từ một dấu nhắc (25 ký tự)

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

C # 73 60 59

Lần đầu tiên chơi golf cho tôi ...

Viết hàm lấy số nguyên không âm làm đầu vào

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

Có thể loại bỏ một nhân vật khác bằng cách chuyển đổi uintsang int, nhưng tôi thực hiện nhiệm vụ theo nghĩa đen hơn là cách khác. Chúng ta đi đây ...

Ruby (24 byte)

Sử dụng biểu thức chính quy để khớp "một số ký tự, theo sau là 0 hoặc nhiều ký tự, sau đó là cùng một ký tự".

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

Nếu giá trị trung thực hoặc giả được chấp nhận, thay vì theo nghĩa đen truehoặc false, thì chúng tôi nhận được 20 ký tự:

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

C (87)

Vì tôi không thể thắng, tôi sẽ đi cho hiệu quả.

Mã chức năng:

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;}

Toán học, 35 25 ký tự

(27 nếu hàm cần tên.)

Unequal@@IntegerDigits@#&

EDIT: Đã lưu 8 ký tự nhờ belisarius!

R, 53 51 48 34 byte

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

Hãy thử trực tuyến!

Chuyển đổi thành một chuỗi và phân chia. Chuyển đổi thành bảng đếm trừ 1, tổng và phủ định

Lấy cảm hứng từ câu trả lời số phổ biến nhất của Alex và gợi ý của Hugh.

Một cặp đôi đã được lưu, nhờ @plannapus Thêm một lần nữa từ @Gregor Và một cặp đôi biến nó thành một chức năng ẩn danh

Bây giờ với lòng tốt regex tuyệt vời nhờ @ J.Doe. Cái này tìm kiếm bất kỳ char nào trong số khớp với chính nó trong chuỗi khác. Cácgrepl lệnh trả về một logic mà sau đó được trả về. Regex phong cách Perl được đặt thành True.

J (9)

Giả sử giá trị được kiểm tra là biến b (tôi biết điều này có thể được tạo thành hàm, nhưng không có manh mối về cách . J khó hiểu. Bất kỳ trợ giúp nào về điều này đều được đánh giá cao) Cảm ơn Marinus!

(-:~.)@":

Kiểm tra xem chiều dài của đại diện chuỗi của số có tất cả các trùng lặp được loại bỏ có giống với chiều dài của đại diện chuỗi thông thường không.

R ( 70 , 60 , 53 , 52)

Cảm ơn tất cả các ý kiến ​​hữu ích! Nhận xét của bạn được kết hợp trong câu trả lời.

### 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)

Toán học (20 19)

(22 21 nếu hàm cần tên)

Max@DigitCount@#<2&

hoặc là

Max@DigitCount@#|1&

ở đâu | ist được nhập dưới dạng [Esc] chia [Esc]

Brachylog , 1 byte

≠

Hãy thử trực tuyến!

C99, 59 ký tự

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

Groovy (36 ký tự)

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

Đã kiểm tra nó bằng cách sử dụng:

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

Haskell:

 import Data.List

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

J (8)

Sepertae cạnh tranh từ câu trả lời trước của tôi.

*/@~:@":

R, 66 65 ký tự

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

Phân tách các chữ số bằng cách sử dụng phép chia số nguyên và modulo, sau đó kiểm tra xem chúng có trùng lặp không.

Sử dụng:

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

Hoặc, như @MickyT đề xuất, cho 63 ký tự:

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);}

Có thể giữ một kiểm đếm lên đến 7 chữ số giống nhau trước khi lăn qua.

trong chương trình thử nghiệm (dễ dàng hơn để xem cách nó hoạt động với hằng số trong bát phân)

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));}

Nếu bạn có công suất lớn bằng 2, thì hằng số có thể được tính như f&(1<<30)/7*6

Haskell , 34 byte

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

Hãy thử trực tuyến!

Javascript 73 ký tự

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

Befunge 98, 17 byte

Đây là một câu trả lời không cạnh tranh vì Befunge không có chức năng.

~:1g1`j@1\1p3j@.1

In một 1nếu các chữ số của số là duy nhất; mặt khác, nó chỉ kết thúc

Điều này hoạt động bằng cách truy cập vào một ô trong không gian Funge có xtọa độ là giá trị ASCII của ký tự được nhập (lấy ký tự đầu vào theo ký tự) và ytọa độ của nó là 1. Nếu chữ số chưa được nhìn thấy trước đó, giá trị của ô là 32(ký tự khoảng trắng). Nếu đó là như vậy, tôi đặt giá trị thành 1.

Như một phần thưởng, điều này cũng làm việc cho những con số không.

PowerShell - 26

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

Perl 6 (19 byte)

{.comb.uniq==.comb}

.combchia một chuỗi thành các ký tự (ví dụ, 42.combcho "4", "2"). .uniqloại bỏ tất cả các ký tự không phải là duy nhất. .combcác ký tự trong chuỗi (ban đầu tôi đã sử dụng .chars, nhưng .combngắn hơn). ==chuyển đổi danh sách thành số phần tử trong đó và so sánh các số. Khi .được sử dụng mà không có đối tượng trước $_đó , đó là tham số chức năng mặc định được giả sử. {}là các chức năng chữ.

C, 76

Đây không phải là nơi gần chiến thắng, nhưng dù sao tôi cũng sẽ đăng nó để thể hiện một cách tiếp cận khác.

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

In một dòng mới nếu sai, in không có gì nếu đúng.

POSIX sh và egrep ( 47 , 43 , 40)

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

• [-1 char]: Sử dụng !thay vì -zvới test- Cảm ơn DigitalTrauma
• [-1 char]: Sử dụng `CODE`thay vì$(CODE) - Cảm ơn DigitalTrauma
• [-2 ký tự]: Sử dụng fold -1thay vì grep -o .^₁ - Cảm ơn DigitalTrauma.
• [-3 chars]: Kiểm tra các chữ số lặp lại với biểu thức chính quy được phản hồi.

Nếu tuân thủ POSIX không quan trọng echo PARAM |có thể được thay thế bằng cách <<<PARAMgiảm độ dài chức năng xuống 37 :

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

Sử dụng:

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

^{_{1 Các fold -Nký hiệu bị phản đối trong một số phiên bản của fold.}}

Java ( 131 59 57)

57 ký tự:

đã xóa ^ và $ như @ n̴̖̋h̷͉̃a̷̭̿h̸̡̅ẗ̵̨́d̷̰̀ĥ̷̳ đề xuất

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

59 ký tự (cũng hoạt động với số âm!):

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

79 78 ký tự (cảm ơn @ n̴̖̋h̷͉̃a̷̭̿h̸̡̅ẗ̵̨́d̷̰̀ĥ̷̳):

Sử dụng vòng lặp để lưu một vài charachers và sử dụng int như một mảng boolean.

Sử dụng & thay vì && để lưu 1 ký tự (Hóa ra java cho phép).

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 ký tự (trả về true cho số âm):

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;}

với nhận xét:

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
}

Và câu trả lời là đúng về mặt kỹ thuật (số ký tự chỉ bao gồm hàm, không phải biến toàn cục), nhưng tôi nghĩ đó là gian lận, 29 ký tự:

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

m [] là mảng boolean chứa câu trả lời đúng cho tất cả các số nguyên 32 bit.