งาน

กำหนดเป็นจำนวนเต็มไม่ลบnส่งออก1ถ้าnเป็น0และส่งออกค่าเป็นnอย่างอื่น

อินพุต

จำนวนเต็มที่ไม่เป็นลบ

• หากคุณต้องการที่จะยอมรับสตริงเป็น input สตริงจะตรงกับ regex ต่อไปนี้: /^(0|[1-9][0-9]*)$/คือมันต้องไม่มีเลขศูนย์ชั้นนำใด ๆ 0ยกเว้นเมื่อมันเป็น
• หากคุณยอมรับจำนวนเต็มจริงเป็นอินพุตคุณอาจสมมติว่าจำนวนเต็มนั้นอยู่ภายในขีดความสามารถในการจัดการของภาษา

เอาท์พุต

จำนวนเต็มบวกที่ระบุข้างต้น ไม่อนุญาตเลขศูนย์นำหน้า ส่งออกของคุณควรจะตรงกับ /^[1-9][0-9]*$/regex

Testcases

input output
    0      1
    1      1
    2      2
    3      3
    4      4
    5      5
    6      6
    7      7

เกณฑ์การให้คะแนน

นี่คือcode-golfดังนั้นคำตอบที่สั้นที่สุดในหน่วยไบต์ชนะ

ช่องโหว่มาตรฐานใช้

C (gcc), 14 13 ไบต์

f(n){n=n?:1;}

ขอบคุณ @betseg ที่เตือนให้ฉันนึกถึงn?:1เคล็ดลับในคำตอบ C อื่น ๆ !

ลองออนไลน์!

C, 17 ไบต์

f(n){return!n+n;}

ลองออนไลน์!

C, 16 ไบต์

#define f(n)!n+n

ลองออนไลน์!

Japtap , 2 ไบต์

ª1

ลองออนไลน์!

คำอธิบาย

ªเป็นทางลัดสำหรับ||ตัวดำเนินการของ JS Japt มีอินพุตโดยนัยดังนั้นโปรแกรมนี้จะคำนวณinput||1และผลลัพธ์จะถูกส่งไปยัง STDOUT โดยปริยาย

w11จะทำงานได้เป็นอย่างดีการสูงสุดของการป้อนข้อมูลและ

อลิซขนาด 7 ไบต์

1/s
o@i

ลองออนไลน์!

คำอธิบาย

1   Push 1. Irrelevant.
/   Reflect to SE. Switch to Ordinal.
i   Read all input as a string.
    Reflect off bottom right corner. Move back NW.
/   Reflect to W. Switch to Cardinal.
1   Push 1.
    IP wraps around to last column.
s   Sort swap: implicitly convert the input to an integer. Then, if the top stack 
    element is less than the one below, the two are swapped. It basically computes
    min and max of two values at the same time, with max on top.
/   Reflect to NW. Switch to Ordinal.
    Immediately reflect off the top boundary. Move SW.
o   Implicitly convert the result to a string and print it.
    Reflect off bottom left corner. Move back NE.
/   Reflect to S. Switch to Cardinal.
@   Terminate the program.

JavaScript (ES6), 7 ไบต์

n=>n||1

Pyth, 2 ไบต์

+!

ลองออนไลน์

คำอธิบาย

+!
 !Q    1 if (implicit) input is 0, 0 otherwise.
+  Q   Add the (implicit) input.

เรติน่า 4 ไบต์

^0
1

ลองออนไลน์!

หากอินพุตเริ่มต้นด้วยศูนย์ให้แทนที่ด้วย 1 (ทำงานได้เพราะอินพุตรับประกันว่าจะไม่มีเลขศูนย์นำหน้าสำหรับค่าที่ไม่เป็นศูนย์)

V , 4 ไบต์

é0À

ลองออนไลน์!

การละเมิดพฤติกรรมที่ไม่เป็นที่ต้องการ แต่คาดว่าจะเกิดขึ้นดังนั้นฉันจึงเรียกมันว่าข้อบกพร่องไม่ได้ คำอธิบาย:

ในกลุ่มคำสั่งยอมรับการนับ ตัวอย่างเช่น<C-a>จะเพิ่มจำนวน แต่7<C-a>จะเพิ่มจำนวนขึ้น 7 อย่างไรก็ตามคุณไม่สามารถใช้0เป็นจำนวนได้เนื่องจาก

• 0 เป็นคำสั่งอยู่แล้ว (ไปที่คอลัมน์แรก) และ

• ในบริบทของเท็กซ์เอดิเตอร์มันไม่ค่อยเหมาะสมที่จะขอให้เรียกใช้คำสั่ง 0 ครั้ง

นี่เป็นสิ่งที่ดีสำหรับโปรแกรมแก้ไขข้อความ แต่โดยทั่วไปแล้วน่ารังเกียจสำหรับภาษากอล์ฟดังนั้น V จะเขียนทับคำสั่งบางคำสั่งเพื่อให้0นับได้อย่างถูกต้อง ตัวอย่างเช่นé, ñ, Äและบางคนอื่น ๆ อย่างไรก็ตามเนื่องจาก<C-a>เป็นคำสั่ง builtin vim จึงไม่ถูกเขียนทับดังนั้นการรันด้วยอินพุตที่เป็นค่าบวกจะให้:

N       " N times:
 <C-a>  "   Increment

แต่ทำงานด้วย 0 เป็นอินพุตให้:

0       " Go to column one
 <C-a>  " Increment

คำอธิบายแบบเต็ม:

é0          " Insert a 0
  À         " Arg1 or 1 times:
   <C-a>    " Increment

J , 2 ไบต์

^*

ลองออนไลน์!

^ [โต้แย้ง] ยกกำลังของ

* สัญลักษณ์ของการโต้แย้ง (0 ถ้า 0 อื่น 1)

เพราะ1=0^0ในเจ

Haskell, 5 ไบต์

max 1

ตัวอย่างการใช้งาน: ->(max 1) 01

ไม่มีอะไรมากที่จะอธิบาย

dc, 7

?d0r^+p

อาศัยความจริงที่dcประเมิน 0 ⁰ถึง 1 แต่ 0 ⁿเป็น 0 สำหรับ n อื่นทั้งหมด

ลองมันออนไลน์

R, 13 ไบต์

max(1,scan())

อ่านnจาก stdin ด้วยpmaxมันสามารถอ่านในรายการและส่งกลับค่าที่เหมาะสมสำหรับแต่ละองค์ประกอบในรายการสำหรับ +1 ไบต์

ลองออนไลน์!

ฉันควรทราบว่ามีวิธีแก้ปัญหา R ที่ดีอีก 13 ไบต์โดยSven Hohensteinซึ่งอนุญาตให้ใช้อีก 13 ไบต์ของ

(n=scan())+!n

ซึ่งทำให้ฉันสงสัยว่าเป็นขีด จำกัด ล่างของ R

Cubix , 6 ไบต์

OI!1L@

ยังไงก็เถอะจัดการให้พอดีกับคิวบ์ยูนิต ... ทดสอบออนไลน์!

คำอธิบาย

ก่อนที่จะรันรหัสจะถูกจัดเรียงเป็น cube net:

  O
I ! 1 L
  @

IP (ตัวชี้คำสั่ง) จะถูกวางไว้ที่ใบหน้าซ้ายสุด ( I) หันไปทางขวา คำแนะนำที่เรียกใช้จากที่นั่นคือ:

I  Input a number from STDIN and push it to the stack.
!  If the top number is non-zero, skip the next instruction.
1  Push a 1 (only if the input was zero).
L  Turn left. The IP is now on the top face facing the !.
O  Output the top item as a number.

จากนั้น IP ก็ไปถึง!อีกครั้งโดยข้าม@ด้านล่างของหน้า สิ่งนี้ไม่เป็นประโยชน์เนื่องจากเราจำเป็นต้องกดปุ่ม@เพื่อจบโปรแกรม IP เข้ามาชนLอีกครั้งและผ่านเส้นกลางในสิ่งที่ตรงกันข้าม ( L1!I) ก่อนที่จะสิ้นสุดในLอีกครั้งหนึ่งซึ่งในที่สุดก็เปลี่ยน IP @เป็น

brainfuck , 8 ไบต์

+>,[>]<.

ลองออนไลน์!

V , 5 ไบต์

ç^0/<C-a>

ที่ไหนเป็น<C-a>0x01

ลองออนไลน์!

คำอธิบาย

ç                   " On every line
 ^0/                " that begins with a zero do:
    <C-a>           " Increment the number on that line

เยลลี่ 2 ไบต์

+¬

ลองออนไลน์!

คำตอบ Pyth ของฉันค่อนข้างจริง แต่มันเป็นโปรแกรมเยลลี่แรกของฉัน

โอเอซิส 2 ไบต์

ใช้สูตรต่อไปนี้: a (0) = 1 , a (n) = n

n1

ลองออนไลน์!

R 20 16 ไบต์

pryr::f(n+(n<1))

Brachylogขนาด 3 ไบต์

∅1|

ลองออนไลน์!

คำอธิบาย

หากเราเพิ่มนัย?(อินพุต) และ.(เอาท์พุท) เรามี:

?∅          Input is empty (that is, [] or "" or 0 or 0.0)
  1.        Output = 1
    |       Else
     ?.     Input = Output

MarioLANGขนาด 12 ไบต์

;
=[
:<+
 =:

ลองออนไลน์!

มันทำงานอย่างไร

มาริโอเริ่มต้นที่ด้านบนซ้ายเริ่มต้นเดินขวา เขาอ่าน int จากอินพุต ( ;) และเก็บไว้ในเซลล์หน่วยความจำปัจจุบัน จากนั้นเขาก็ตกลงมาจากพื้น ( =) กดปุ่ม[ซึ่งทำให้เขาไม่สนใจคำสั่งถัดไปหากเซลล์ปัจจุบันเป็น 0

หากเซลล์ไม่ใช่ 0 เขาจะเริ่มเดินจากซ้าย ( <) ออกเซลล์ปัจจุบันเป็น int ( :) และล้มลงจนตาย (สิ้นสุดโปรแกรม)

หากเซลล์เป็น 0 เขาจะไม่สนใจคำสั่งให้เลี้ยวซ้ายและเดินต่อไปเรื่อย ๆ เขาเพิ่มจำนวนเซลล์ปัจจุบัน ( +) ออกผลลัพธ์และตกไปสู่ความตาย

Brain-Flak , 22 , 10 ไบต์

({{}}[]{})

ลองออนไลน์!

คำอธิบาย:

หากอินพุตไม่ใช่ศูนย์จากนั้น{{}}จะปรากฏทุกอย่างออกจากสแต็กและประเมินเป็นอินพุต หากเป็นศูนย์จะไม่มีอะไรโผล่ขึ้นมาและจะประเมินเป็นศูนย์ ดังนั้นการวิ่ง({{}})ให้

ไม่ใช่ศูนย์:

n

ศูนย์:

0
0

ณ จุดนี้เราจะเพิ่มความสูงของสแต็ก (0 สำหรับที่ไม่ใช่ศูนย์, 1 สำหรับศูนย์) และป๊อปอัพอีกหนึ่งมูลค่าจากสแต็ก (เนื่องจากสแต็กถูกเติมด้วยจำนวนอนันต์ของ 0 สิ่งนี้จะปรากฏขึ้นเป็น 0 อันดับแรกหรือเพิ่ม 0)

TI-BASIC ขนาด 7 ไบต์

:Prompt X
:X+not(X

อีกวิธีหนึ่งคือ

TI-BASIC ขนาด 7 ไบต์

:Prompt X
:max(X,1

Hexagony ,7 6 ไบต์

)?<@.!

ขยาย:

 ) ?
< @ .
 ! .

ลองออนไลน์!

บันทึก 1 ไบต์ขอบคุณ Martin!

หากหมายเลขไม่ใช่ศูนย์ให้พิมพ์เป็นอย่างอื่นให้เพิ่มเข้าไปแล้วพิมพ์ออกมาแทน

APL (Dyalog) 3 ไบต์

1∘⌈

ลองออนไลน์!

นี้จะใช้เวลา ceil 1ของการโต้แย้งและ

Python ขนาด 15 ไบต์

lambda n:n or 1

dc, 11 ไบต์

[1]sf?d0=fp

[1]sfเก็บแมโครใน register f ซึ่งดัน 1 ถึงด้านบนสุดของสแต็ก ?อ่านอินพุต d0=fเรียกใช้แมโคร f ถ้าอินพุตเป็น 0 pพิมพ์ด้านบนของสแต็ก

ทดสอบ:

$ dc -e "[1]sf?d0=fp" <<< 0
1
$ dc -e "[1]sf?d0=fp" <<< 1
1
$ dc -e "[1]sf?d0=fp" <<< 42
42

Excel, 10 ไบต์

=A1+(A1=0)

นี้ช่วยประหยัด 4 ไบต์มากกว่าการแก้ปัญหาคำสั่งที่ชัดเจน =IF(A1=0,1,A1)'ถ้า'

Java 8, 10 ไบต์

i->i<1?1:i

• ขอบคุณ@LeakyNunสำหรับการบันทึก - 1ไบต์
  • ไม่ได้สังเกตว่ามันเป็นจำนวนเต็มไม่เป็นลบ

R, 13 ไบต์

n=scan();n+!n

ที่นี่จะใช้ในการอ่านค่าการป้อนข้อมูลscan nปฏิเสธn(เช่น!n, 0 หรือ 1) nจะถูกเพิ่ม

Mathematica, 9 8 ไบต์

ต่อมาร์ตินเอนเดอร์:

#~Max~1&

ความคิดแรก:

#/. 0->1&

ฟังก์ชั่นบริสุทธิ์ที่มีแทนที่ด้วย0 พื้นที่ที่มีความจำเป็นหรือคิดว่าเราจะหารด้วย1.0

Perl 5, 6 + 2 ไบต์สำหรับแฟล็ก -l และ -p

$_||=1

รับอินพุตบนบรรทัดแยกจาก stdin -lpทำงานกับธง