พื้นหลัง

เมื่อฉันอยู่ในโรงเรียนประถมเราเคยเล่นเกมในชั้นเรียนคณิตศาสตร์ที่มีดังต่อไปนี้

เด็กทุกคนนั่งอยู่ในวงกลมขนาดใหญ่และผลัดกันนับเริ่มต้นจาก1

อย่างไรก็ตามต้องข้ามตัวเลขต่อไปนี้ขณะนับ:

• เบอร์ที่มีหลายรายการที่ 3
• ตัวเลขที่มี3ในการแทนทศนิยม

ตัวเลข 15 อันดับแรกที่เด็กควรพูดคือ

1 2 4 5 7 8 10 11 14 16 17 19 20 22 25

เมื่อใดก็ตามที่ใครบางคนผิดตัวเลข - พูดหมายเลขที่ไม่ได้อยู่ในลำดับหรือข้ามหมายเลขนั่นคือ - เขาถูกนำออกจากวงกลม สิ่งนี้จะดำเนินต่อไปจนกว่าจะมีเด็กเหลือเพียงคนเดียว

งาน

คุณเล่นเกมนี้ไม่ดีคุณจึงตัดสินใจโกง เขียนโปรแกรมหรือฟังก์ชั่นที่ให้ลำดับของตัวเลขคำนวณหาลำดับถัดไป

คุณไม่ต้องจัดการกับตัวเลขที่ไม่สามารถแสดงได้โดยใช้ชนิดตัวเลขดั้งเดิมของภาษาของคุณโดยที่โปรแกรมของคุณทำงานอย่างถูกต้องจนถึงอินพุต251และอัลกอริทึมของคุณทำงานกับอินพุตขนาดใหญ่โดยพลการ

อินพุตและเอาต์พุตสามารถใช้ฐานใดก็ได้ที่สะดวก

เมื่อคุณต้องปกปิดรหัสของคุณมันจะต้องสั้นที่สุด ความจริงแล้วนี่คือcode-golfดังนั้นโค้ดที่สั้นที่สุดเป็นไบต์จะเป็นผู้ชนะ

กรณีทดสอบ

  1 ->   2
  2 ->   4
 11 ->  14
 22 ->  25
 29 ->  40
251 -> 254

Brachylogขนาด 10 ไบต์

<.='e3:I'*

ลองออนไลน์!

คำอธิบาย

(?)<.                Output > Input
    .=               Assign a value to the Output
    . 'e3            3 cannot be an element of the Output (i.e. one of its digits)
        3:I'*(.)     There is no I such that 3*I = Output

JavaScript (ES6), 30 ไบต์

f=n=>++n%3*!/3/.test(n)?n:f(n)

J, 24 ไบต์

3(]0&({$:)~e.&":+.0=|)>:

วิธีการตรงไปข้างหน้าที่ทำซ้ำไปข้างหน้าจากอินพุตnจนกว่าจะพบหมายเลขถัดไปที่ถูกต้องตามกฎ

แบบฟอร์มห้ารอยยิ้ม$:, :), 0=, และ=|>:

การใช้

   f =: 3(]0&({$:)~e.&":+.0=|)>:
   (,.f"0) 1 2 11 22 29 251
  1   2
  2   4
 11  14
 22  25
 29  40
251 254

คำอธิบาย

3(]0&({$:)~e.&":+.0=|)>:  Input: integer n
                      >:  Increment n
3                         The constant 3
 (                   )    Operate dyadically with 3 (LHS) and n+1 (RHS)
                    |       Take (n+1) mod 3
                  0=        Test if equal to 0
             &":            Format both 3 and n+1 as a string
           e.               Test if it contains '3' in str(n+1)
                +.          Logical OR the results from those two tests
  ]                         Right identity, gets n+1
   0&(   )~                 If the result from logical OR is true
       $:                     Call recursively on n+1
      {                       Return that as the result
                            Else act as identity function and return n+1

Python 2, 73 66 43 ไบต์

ขอบคุณ xnor ที่บอกฉันว่าฉันโง่โดยใช้ตัวแปร 2 ตัวและขอบคุณ Mitch Schwartz ด้วย

x=~input()
while'3'[:x%3]in`x`:x-=1
print-x

05AB1E , 11 ไบต์

[>Ð3ås3Ö~_#

ลองออนไลน์!

คำอธิบาย

               # implicit input
[              # start loop
 >             # increase current number
  Ð            # triplicate
          #    # break loop IF
         _     # logical negation of
   3å          # number has one or more 3's in it
        ~      # OR
     s3Ö       # number % 3 == 0

Perl, 19 ไบต์

18 รหัสไบต์ + 1 -pสำหรับ

++$_%3&&!/3/||redo

การใช้

perl -pe '++$_%3&&!/3/||redo' <<< 8
10

perl -pe '++$_%3&&!/3/||redo' <<< 11
14

Java 8, 57 56 55 50 ไบต์

ขอบคุณ @Numberknot เป็นเวลา 1 ไบต์ ขอบคุณ @Kevin Cruijssen สำหรับ 5 ไบต์

i->{for(;++i%3<1|(i+"").contains("3"););return i;}

มันคือ Function<Integer, Integer>

คำอธิบาย

การใช้งานแบบไร้เดียงสาที่เพิ่มขึ้นเพียงจนกว่าจะถึงจำนวนที่ยอมรับได้

ชั้นทดสอบ

public class CodeGolf {

    public static void main(String[] args) {
        Function<Integer, Integer> countingGame = i->{for(;++i%3<1|(i+"").contains("3"););return i;};
        int val = 1;
        for (int i = 0; i < 10; i++) {
            System.out.print(val + " ");
            val = countingGame.apply(val);
        }
    }

}

เอาต์พุตของคลาสทดสอบ:

1 2 4 5 7 8 10 11 14 16

Japt, 18 ไบต์

°U%3*!Us f'3 ?U:ßU

ทดสอบออนไลน์

ในที่สุดฉันก็มีโอกาสใช้ß:-)

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

                    // Implicit: U = input integer
°U%3                // Increment U, and take its modulo by 3.
     !Us f'3        // Take all matches of /3/ in the number, then take logical NOT.
                    // This returns true if the number does not contain a 3.
    *               // Multiply. Returns 0 if U%3 === 0  or the number contains a 3.
             ?U     // If this is truthy (non-zero), return U.
               :ßU  // Otherwise, return the result of running the program again on U.
                    // Implicit: output last expression

PowerShell v2 +, 46 ไบต์

for($a=$args[0]+1;$a-match3-or!($a%3)){$a++}$a

รับอินพุต$args[0]เพิ่ม1บันทึกลงใน$aเริ่มforลูป เงื่อนไขทำให้ลูปไปในขณะที่$a-match3(การจับคู่ regex) -or $a%3เป็นศูนย์ ( !ซึ่งเป็น1) $a++ห่วงก็เพิ่มขึ้น ในตอนท้ายของลูปเราเพียงวาง$aบนไพพ์ไลน์Write-Outputเกิดขึ้นเมื่อโปรแกรมเสร็จสมบูรณ์

ตัวอย่าง

PS C:\Tools\Scripts\golfing> 1,2,11,22,29,33,102,251,254|%{"$_ --> "+(.\count-without-three.ps1 $_)}
1 --> 2
2 --> 4
11 --> 14
22 --> 25
29 --> 40
33 --> 40
102 --> 104
251 --> 254
254 --> 256

R, 46 ไบต์

n=scan()+1;while(!n%%3|grepl(3,n))n=n+1;cat(n)

Python 2, 49 44 42 ไบต์

f=lambda x:'3'[:~x%3]in`~x`and f(x+1)or-~x

รายการ Python อื่น ๆ ชนะสิ่งนี้ (แก้ไข: ไม่ได้อีกแล้ว :-D) แต่ฉันโพสต์ไว้เพราะฉันชอบวิธีแบบเรียกซ้ำ ขอบคุณ Mitch Schwarz และ Erik the Golfer ที่ช่วยฉันทำสิ่งนี้ให้สั้นลง

Lua, 58 ไบต์

i=...+1while(i%3==0or(i..""):find"3")do i=i+1 end print(i)

Pyke ขนาด 13 ไบต์

Whii3%!3`i`{|

ลองที่นี่!

              - i = input
W             - do:
 hi           -  i += 1
   i3%!       -    not (i % 3)
            | -   ^ or V
       3`i`{  -    "3" in str(i)
              - while ^

C #, 56 , 51 ไบต์

นี่เป็นคำย่อที่น่าประหลาดใจสำหรับคำตอบ C #!

x=>{while(++x%3<1|(x+"").Contains("3"));return x;};

Haskell, 50 48 ไบต์

f n=[x|x<-[n..],mod x 3>0,notElem '3'$show x]!!1

ลองใช้กับ Ideone ที่บันทึกไว้ 2 ไบต์ขอบคุณที่@Charlie ฮาร์ดิ้ง

ทางเลือก: (50 ไบต์)

g=f.(+1)
f n|mod n 3<1||(elem '3'.show)n=g n|1<3=n

Pyth, 11 ไบต์

f&-I`T3%T3h

ลองใช้ออนไลน์: การสาธิตหรือชุดทดสอบ

คำอธิบาย:

f&-I`T3%T3hQ   implicit Q at the end
f         hQ   find the smallest integer T >= input + 1 which fulfills:
  -I`T3           T is invariant under removing the digit 3
 &                and
       %T3        T mod 3 leaves a positive remainder

GolfSharp , 43 ไบต์

m=>r(m,m).w(n=>n%3>0&!n.t().I("3")).a()[1];

Ruby, 47 ไบต์

i=gets.to_i;i while(i+=1)%3==0||"#{i}"=~/3/;p i

ฉันรู้สึกเหมือนว่าสามารถเล่นกอล์ฟต่อไปได้

MATL , 14 ไบต์

`Qtt3\wV51-hA~

ลองออนไลน์!

คำอธิบาย

`       % Do...while
  Q     %   Add 1. Takes input implicitly in the first iteration
  tt    %   Duplicate twice
  3\    %   Modulo 3
  wV    %   Swap, string representation
  51-   %   Subtract 51, which is ASCII for '3'
  h     %   Concatenate
  A~    %   True if any result was 0. That indicates that the number
        %   was a multiple of 3 or had some '3' digit; and thus a 
        %   new iteration is needed

เขาวงกต , 117 102 ไบต์

?       """""""""""_
):_3    (         0/{!@
;  %;:}_';:_3-_10 1
"  1            %;_
""""_""""""""{;;'

ลองออนไลน์!

เขาวงกตเป็นภาษาโปรแกรมสองมิติแบบกองซ้อนและที่ทางแยกทิศทางจะถูกกำหนดโดยส่วนบนสุดของสแต็ก (บวกไปทางขวา, ลบไปทางซ้าย, ศูนย์ไปตรง) มีโปรแกรมหลักสองโปรแกรมในโปรแกรมนี้ ครั้งแรก mods อินพุตจำนวนเต็ม 3 และเพิ่มขึ้นถ้า 0 ที่สองตรวจสอบซ้ำ ๆ ว่าหลักสุดท้ายคือ 3 (โดยการลบ 3 และ modding โดย 10) แล้วหารด้วย 10 เพื่อรับตัวเลขสุดท้ายใหม่

PHP, 60 55 54 46 ไบต์

ต้องขอบคุณ @ user59178 สำหรับการลบทิ้งสักสองสามไบต์ @AlexHowansky ต่อหนึ่งไบต์ @Titus อีกสองสามไบต์

for(;strstr($i=++$argv[1],51)|$i%3<1;);echo$i;

-rเรียกว่าจากบรรทัดคำสั่งด้วย วิธีการที่ไร้เดียงสาที่วนซ้ำในขณะที่ตัวเลขนั้นเป็นผลคูณของ 3 หรือมี 3 ในหลัก

PHP, 47 41 ไบต์

ได้รับแรงบันดาลใจจากแซนเดอร์ฮอลล์ แต่สุดท้ายความคิดล่าสุดก็ปรับคำตอบของตนเอง

while(strstr($n+=$n=&$argn%3,51));echo$n;

หรือ

while(strpbrk($n+=$n=&$argn%3,3));echo$n;

นี้จะใช้ประโยชน์จากความจริงที่ว่าใส่เป็นยังมาจากลำดับ: สำหรับการโมดูโลใหม่คือ$n%3==1 2สำหรับการโมดูโลใหม่คือ$n%3==2 ไม่เคยเกิดขึ้น4-3=1$n%3==0

ทำงานเป็นท่อที่มี-Rหรือลองพวกเขาออนไลน์

APL (Dyalog Unicode) , 33 28 27 19 ไบต์^SBCS

1∘+⍣{('3'∊⍕⍺)<×3|⍺}

ลองออนไลน์!

-6 ขอบคุณAdám -8 ขอบคุณ ngn

คำอธิบายเก่า:

1-⍨g⍣((×3|⊢)>'3'∊⍕)∘(g←+∘1)
                       +∘1  ⍝ curry + with 1, gives the increment function
                            ⍝ increments the left argument so we do not return the number itself
                    (g←   ) ⍝ assign to "g"
                   ∘        ⍝ compose g with the repeat
                 ⍕          ⍝ does parsing the argument to a string...
             '3'∊           ⍝ ...contain '3'?
        3|⊢                 ⍝ residue of a division by 3
      (×   )                ⍝ direction (0 if 0, 1 if greater, ¯1 is lower)
     (      >     )         ⍝ and not (we want the left side to be 1, the right side 0)
   g⍣                       ⍝ repeat "g" (increment) until this function is true ^
1-⍨                         ⍝ afterwards, decrement: inversed -

APL (Dyalog Extended) , 23 17 ไบต์^SBCS

1∘+⍣(3(×⍤|>∊⍥⍕)⊣)

ลองออนไลน์!

ขอบคุณAdám -6 ขอบคุณ ngn

คำอธิบายเก่า:

0+⍣(3(×⍤|>∊⍥⍕)⊢)⍢(1+⊢)⊢
0                       ⍝ the left argument (⍺)
 +⍣(3(×⍤|>∊⍥⍕)⊢)        ⍝ the left function (⍺⍺)
                 (1+⊢)  ⍝ the right function (⍵⍵)
                        ⍝     (increments its argument)
                      ⊢ ⍝ the right argument (⍵)
                        ⍝     (just returns the input)
                ⍢       ⍝ under:
                        ⍝     calls (⍵⍵ ⍵) first, which increments the input
                        ⍝     also (⍵⍵ ⍺) which gives 1
                        ⍝     then calls (⍺incremented ⍺⍺ ⍵incremented)
                        ⍝     afterwards, does the opposite of ⍵⍵, and decrements the result
  ⍣                     ⍝ ⍣ fixpoint: repeats the left operation until the right side is truthy
 +                      ⍝ calls + with ⍺incremented and the input (so, 1+input)
   (3(×⍤|>∊⍥⍕)⊢)        ⍝ right operation
    3                   ⍝ on its left, "3"
              ⊢         ⍝ on its right, the current iteration
      ×⍤|               ⍝ divisibility check: × atop |
        |               ⍝     starts with 3|⊢ (residue of ⊢/3)
      ×                 ⍝     then returns the direction (0 if 0, 1 if greater, ¯1 is lower)
          ∊⍥⍕           ⍝ contains 3:
            ⍕           ⍝    stringifies both its arguments (3 and ⊢)
          ∊⍥            ⍝    checks for membership
         >              ⍝ divisibility "and not" contains 3

Perl 6 , 27 25 24 ไบต์

{max $_+1...{!/3/&$_%3}}

ลองออนไลน์!

พบว่าจำนวนแรกมีขนาดใหญ่กว่าการป้อนข้อมูลที่ไม่ได้มีสามและมีส่วนที่เหลือเมื่อ moduloed โดย 3. ผมหวังที่จะทำอะไรบางอย่างแฟนซีที่มีสภาพเหมือนแต่มันไม่ได้ทำงานร่วมกับ!/3/&*%3!:(

คำอธิบาย:

{                      }   # Anonymous code block
     $_+1                  # From the input+1
         ...               # Get the series
            {         }    # That ends when
             !/3/            # The number does not contain a 3
                 &           # and
                  $_%3       # The number is not divisible by 3
 max                       # And get the last element of the series

C, 81 ไบต์

f(int n){int m;l:if(++n%3){for(m=n;m>0;m/=10)if(m%10==3)goto l;return n;}goto l;}

ไขว้กันเหมือน 30 ไบต์

in v
?v$>1+d3,qds:3@cQm*
;\$o

ลองออนไลน์!

คำอธิบาย

1: การเริ่มต้น

in v

สิ่งนี้จะแปลงinput เป็นnumber จากนั้นลงไป ( v)

2: วนรอบ

?v$>1+d3,qds:3@cQm*
   >                 go right!              [n]
    1+               add 1                  [n+1]
      d3,            duplicate and mod 3    [n+1, (n+1)%3]
         qd          reverse and duplicate  [(n+1)%3, n+1, n+1]
           s         cast to string         [(n+1)%3, n+1, `n+1`]
            :3@c     count numbers of "3"   [(n+1)%3, n+1, `n+1`.count(3)]
                Qm*  negate and rotate      [n+1, continue?]
?v                   terminate if continue
  $                  drop continue

3: ขั้นสุดท้าย

;\$o
 \$o  drop and output
;     terminate

แบตช์, 93 ไบต์

@set/pn=
:l
@set/an+=1,r=n%%3
@if %r%==0 goto l
@if not "%n:3=%"=="%n%" goto l
@echo %n%

ใช้อินพุตบน STDIN

CJam, 19 ไบต์

ri{)__3%!\`'3e=e|}g

ออนไลน์

คำอธิบาย:

ri{)__3%!\`'3e=e|}g
r                   Get token
 i                  Convert to integer
  {              }  Block
   )                 Increment
    _                Duplicate
     _               Duplicate
      3              Push 3
       %             Modulo
        !            NOT gate
         \           Swap
          `          String representation
           '3        Push '3'
             e=      Count occurrences
               e|    OR gate
                  g While popped ToS is true

หากมีการขอคำอธิบายอย่างละเอียดน้อยกว่าฉันจะทำสิ่งนี้:

ri{)__3%!\`'3e=e|}g
ri                  Get integer
  {              }  Block
   )                 Increment
    __               Triplicate
      3%!            Test non-divisibility with 3
         \           Swap
          `'3e=      Count occurrences of '3' in string repr
               e|    OR gate
                  g While popped ToS is true

Pyth, 19 ไบต์

JhQW|!%J3/`J\3=hJ;J

ชุดทดสอบ

ฉันแน่ใจว่าฉันสามารถเล่นกอล์ฟนี้ได้ ... มันเหมือนกับคำตอบ CJam ของฉัน

คำอธิบาย:

JhQW|!%J3/`J\3=hJ;J
  Q                 Evaluated input
 h                  Increment
J                   Assign J to value
       J            Variable J
        3           Value 3
      %             Modulo
     !              Logical NOT
           J        Variable J
          `         String representation
            \3      Value "3"
         /          Count occurrences
    |               Logical OR
               h    Increment
                J   Variable J
              =     Apply function then assign
                 ;  End statement block
                  J Variable J

Clojure 73 ไบต์

(fn c[n](let[m(inc n)](if(or(=(rem m 3)0)(some #(=\3 %)(str m)))(c m)m)))

วนซ้ำในขณะที่ nหารด้วย 3 หรือประกอบด้วย 3 ในการแทนค่าสตริง แม้ว่าฉันจะใช้การเรียกซ้ำแบบไม่เพิ่มประสิทธิภาพ แต่ก็สามารถจัดการกับ 2999999 เป็นอินพุตได้ดังนั้นจึงควรใช้ได้

Ungolfed

(defn count-without-3 [n]
  (let [m (inc n)]
    (if (or (= (rem m 3) 0)
            (some #(= \3 %) (str m)))
      (count-without-3 m)
      m)))