ทำไม 6 จึงกลัว 7 เพราะ 7 8 9!

รับสตริงใช้การแปลงต่อไปนี้:

• หากมี 6 ติดกับ 7 ลบ 6 (6 คือกลัว 7)
• หากลำดับ "789" ปรากฏขึ้นให้ลบ 8 และ 9 (7 ate 9)

(ถ้าฉันไม่เข้าใจผิดมันไม่สำคัญว่าคุณจะสั่งให้แปลงอะไร)

ใช้การแปลงต่อไปเรื่อย ๆ จนกว่าคุณจะไม่สามารถทำได้อีกต่อไป

ตัวอย่าง:

78966

ก่อนอื่นเราจะเห็น "789" ดังนั้นสตริงจะกลายเป็น "766" จากนั้นเราจะเห็น "76" เราจึงนำ 6 ออกมาและสตริงกลายเป็น "76" จากนั้นเราจะเห็น "76" อีกครั้งดังนั้นเราจึงเหลือ "7"

กรณีทดสอบ:

• 987=> 987(ไม่อยู่ในลำดับที่ถูกต้องไม่ทำอะไรเลย)
• 6 7=> 6 7(ช่องว่างทำหน้าที่เป็นบัฟเฟอร์ระหว่าง 6 และ 7 ไม่มีอะไรเกิดขึ้น)
• 676 => 7
• 7896789 => 77
• 7689 => 7
• abcd => abcd

เรติน่า 12

คำแปลของ sed คำตอบ:

6*7(6|89)*
7

ลองออนไลน์

Javascript ES6, 29 ไบต์

s=>s.replace(/6*7(89|6)*/g,7)

ทดสอบ:

f=s=>s.replace(/6*7(89|6)*/g,7)
;`987 -> 987
6 7 -> 6 7
676 -> 7
7896789 -> 77
7689 -> 7
abcd -> abcd`
.split`\n`.every(t=>(t=t.split` -> `)&&f(t[0])==t[1])

Java, 126 81 66 58 ไบต์

ขอบคุณ @GamrCorps ที่ให้รหัสรุ่นแลมบ์ดานี้!

ขอบคุณ @ user902383 สำหรับการชี้เคล็ดลับการออโต้บ็อกซ์!

...ได้.

จริง ๆ แล้วมันนานเกินกว่าที่ฉันคาดไว้ - Java แทนที่รายการในสตริงด้วยreplaceAll()หนึ่งครั้งต่อการแข่งขันไม่ซ้ำ ๆ จนกว่ามันจะหยุดการเปลี่ยนแปลง ดังนั้นฉันต้องใช้ความแฟนซีสำหรับการวนซ้ำ

แบบฟอร์มแลมบ์ดา:

x->{for(;x!=(x=x.replaceAll("67|76|789","7")););return x;}

ฟังก์ชั่นรูปแบบ:

String s(String x){for(;x!=(x=x.replaceAll("67|76|789","7")););return x;}

รหัส Ungolfed ที่ทดสอบได้:

class B{
    public static void main(String[]a){
        System.out.print(new B().s(a[0]));
    }
    String s(String x){for(;x!=(x=x.replaceAll("67|76|789","7")););return x;}
}

GNU Sed, 17

คะแนนรวม +1 สำหรับ-rตัวเลือก

s/6*7(6|89)*/7/g

Perl 6 , 19  18 ไบต์

{S:g/6*7[6|89]*/7/} # 19 bytes

$ perl6 -pe 's:g/6*7[6|89]*/7/' # 17 + 1 = 18 bytes

(โปรดทราบว่า[6|89]เป็นรุ่นที่ไม่ใช่การจับภาพ(6|89)ซึ่งสะกด(?:6|89)ใน Perl 5 <[6|89]>เป็นวิธีที่คุณจะเขียนสิ่งที่สะกด[6|89]ใน Perl 5)

ใช้:

$ perl6 -pe 's:g/6*7[6|89]*/7/' <<< '
987
6 7
6676689
7896789
7689
abcd
68978966897896
79|689
'

987
6 7
7
77
7
abcd
68977
79|689

Pyth, 17 ไบต์

u:G"67|76|789"\7z

ลองที่นี่

Leaky Nun ส่งผลให้เรื่องนี้เกินขนาดโดยไบต์ในความคิดเห็น

Perl 5 , 17 ไบต์

perl -pe 's/6*7(6|89)*/7/g' # 16 + 1

ใช้:

$ perl -pe 's/6*7(6|89)*/7/g' <<< '
987
6 7
6676689
7896789
7689
abcd
68978966897896
'

987
6 7
7
77
7
abcd
68977

Mathematica, 52 ไบต์

StringReplace[#,"67"|"76"|"789"->"7"]&~FixedPoint~#&

คำอธิบาย:

                                                   &   A function returning
                                     &                   a function returning
              #                                            its first argument
StringReplace[ ,                    ]                     with
                "67"                                        "67"
                    |                                      or
                     "76"                                   "76"
                         |                                 or
                          "789"                             "789"
                               ->                         replaced with
                                 "7"                       "7"
                                    ~FixedPoint~        applied to
                                                #        its first argument
                                                        until it no longer changes.

สนิม 96 ไบต์

fn f(mut s:String)->String{for _ in 0..s.len(){for r in&["67","76","789"]{s=s.replace(r,"7")}}s}

ยาวอย่างไร้ความหวังตามปกติสำหรับ Rust ...

Ungolfed:

fn seven_ate_nine(mut str: String) -> String {
    for _ in 0..str.len() {
        for to_replace in &["67","76","789"] {
            str = str.replace(to_replace, "7");
        }
    }
    s
}

Emacs Lisp, 59 ไบต์

(lambda(s)(replace-regexp-in-string"6*7\\(6\\|89\\)*""7"s))

มันจะกลายเป็นที่ชัดเจนยิ่งขึ้นด้วยช่องว่าง:

(lambda (s) (replace-regexp-in-string "6*7\\(6\\|89\\)*" "7" s))

Ruby, 27 ไบต์

วิธีการแก้ปัญหานี้เป็นจากความคิดเห็นเครดิตกับb2gills แบรดกิลเบิร์

->s{s.gsub /6*7(6|89)*/,?7}

Ruby, 37 ไบต์

(สารละลายเก่า)

วิธีการแก้ปัญหานี้ใช้ความจริงที่ว่าคุณไม่จำเป็นต้องแทนที่เวลามากกว่าตัวอักษรในสตริง

->s{s.chars{s.sub! /67|76|789/,?7};s}

Japt 15 ไบต์

Ur"6*7(89|6)*"7

โซลูชัน RegEx แบบง่าย

ลองออนไลน์

PowerShell ขนาด 27 ไบต์

$args-replace'6*7(89|6)*',7

e.g.
PS C:\temp> .\ate.ps1 "7689"
7

PS C:\temp> .\ate.ps1 "abcd"
abcd

PS C:\temp> .\ate.ps1 "68978966897896"
68977

การใช้ประโยชน์จาก:

• รูปแบบ regex ของคนอื่น
• วิธี-replaceการแทนที่แบบโกลบอลตามค่าดีฟอลต์ใน PowerShell
• คลี่วงที่มันจะนำไปใช้-regexประกอบการอาร์เรย์$argsโดยนำไปใช้กับทุกองค์ประกอบที่ไม่ซ้ำกันและมีเพียงองค์ประกอบหนึ่งที่นี่เพราะมีเพียงหนึ่งพารามิเตอร์สคริปต์จึงทำงาน OK [0]และเราสามารถหลีกเลี่ยงการองค์ประกอบดัชนี

ความพยายามก่อนหน้านี้แปลกใหม่ก่อนที่จะตระหนักถึงการแทนที่ระดับโลกจะทำมัน; 74 ไบต์ของการสร้างเชนของ "-replace -replace -replace" โดยใช้การคูณสตริงหลาย ๆ ครั้งตามความยาวของสตริงจากนั้น eval () ing:

"'$($args)'"+("{0}6|6(?=7)'{0}89'"-f"-replace'(?<=7)")*$args[0].Length|iex

(ด้วยการแทนที่สตริงเล็กน้อยเพื่อย่อจำนวนการแทนที่)

CJam, 70 64 ไบต์

ขอขอบคุณที่ @ Peter เทย์เลอร์สำหรับการตัด{"789":I}{"76:":I}?ไป"789""76"?:I

"67":Iq:A{AI#:B){AB<7+A{BI,+}~>+s:A];}{"76"I={"789":I}{"76":I}?];}?}/A

"67":Iq:A{AI#:B){AB<7+A{BI,+}~>+s:A];}{"76"I="789""76"?:I];}?}/A

ฉันรู้ว่านี่อาจจะมีการตีกอล์ฟมากขึ้นและความช่วยเหลือของคุณจะได้รับการชื่นชมอย่างมาก แต่ตรงไปตรงมาฉันแค่ดีใจที่ฉันได้รับคำตอบ นี่เป็นความพยายามครั้งแรกของฉันในการเขียน CJam

คำอธิบาย:

"67":I                e# Assign the value of 67 to I
q:A                   e# Read the input and assign to A
{                     e# Opening brackets for loop
    AI#:B)            e# Get the index of I inside A and assign to B. The increment value by 1 to use for if condition (do not want to process if the index was -1)
    {                 e# Open brackets for true result of if statement
        AB<           e# Slice A to get everything before index B
        7+            e# Append 7 to slice
        A{BI,+}~>     e# Slice A to get everything after index B plus the length of string I (this will remove I entirely)
        +s:A          e# Append both slices, convert to string, and assign back to A
        ];            e# Clear the stack
    }                 e# Closing brackets for the if condition
    {                 e# Open brackets for false result of if statement
        "76"I=        e# Check if I is equal to 76
        "789"         e# If I is 76, make I 789
        "76"?:I       e# If I is not 76, make I 76
        ];            e# Clear the stack if I does not exist inside A
    }?                e# Closing brackets for false result of if statement
}/                    e# Loop
A                     e# Output A

MATL , 17 ไบต์

jt"'789|76'55cYX]

ตัวอย่าง

>> matl
 > jt"'789|76'55cYX]
 > 
> 7896789
77

แก้ไข : ลองออนไลน์!

คำอธิบาย

j                   % input string
t                   % duplicate
"                   % for each character. Iterates as many times as the string length
    '789|76'        % regular expression for replacement
    55c             % string to insert instead: character '7'
    YX              % regexprep
]                   % end for

นี้ทำงานโดยการใช้ทดแทน expresion ปกติสำหรับหลายครั้งเท่าที่มีตัวละครในสตริงเดิม เพียงพอแล้วเนื่องจากการทดแทนแต่ละรายการจะลดจำนวนอักขระลง

อย่างจริงจัง 29 ไบต์

,;l`'7;;"67"(Æ"76"(Æ"789"(Æ`n

"6789"จะเข้าเป็นสตริงที่ยกมาสองครั้งเช่น ลองออนไลน์ (คุณจะต้องอ้างข้อความด้วยตนเอง)

คำอธิบาย:

,;l`'7;;"67"(Æ"76"(Æ"789"(Æ`n
,;l                            get input and push its length (we'll call it n)
   `                       `n  call the following function n times:
    '7;;"67"(Æ                   replace all occurrences of "67" with "7"
              "76"(Æ             replace all occurrences of "76" with "7"
                    "789"(Æ      replace all occurrences of "789" with "7"

มีขนาด 26 ไบต์

67::=7
76::=7
789::=7
::=

รวมถึงการขึ้นบรรทัดใหม่

อินพุตถูกผนวกเข้ากับโปรแกรมก่อนที่จะเริ่ม
เอาต์พุตจะถูกอ่านออกจากสถานะของโปรแกรมเมื่อมันสิ้นสุดลงเช่นเดียวกับเครื่องทัวริง
( เนื่องจากมีเอาต์พุตสตรีม แต่ก็ใช้งานได้ยากดังนั้นฉันไม่แน่ใจว่านี่เป็นวิธีการแสดงผลที่ยอมรับได้หรือไม่)

Bash, 102 82 67 (+7)? ไบต์

รุ่น extglob

x=$1
while v=${x/@(76|67|789)/7};[ $v != $x ];do x=$v;done
echo $v

bash -O extglob 789.sh 6567678989689789656นี้มีความหมายที่จะใส่ในไฟล์และเรียกว่ามีเช่น The (+7)? ไบต์สำหรับถ้าตัวเลือก extglob นับเป็นไบต์

ขอบคุณ @BinaryZebra สำหรับการชี้คุณสมบัติ extglob!

รุ่นที่ไม่ใช่ Extglob (82 ไบต์)

x=$1
while v=${x/76/7};v=${v/67/7};v=${v/789/7};[ $v != $x ];do x=$v;done
echo $v

./789.sh 65678989656นี้มีความหมายที่จะใส่ในไฟล์และเรียกว่ามีเช่น

มันใช้ประโยชน์จากการขยายพารามิเตอร์เพื่อค้นหาและแทนที่ในวง ฉันเกี่ยวข้องกับการขยายจำนวนมากเพื่อดำเนินการแทนเนื่องจากฉันไม่ทราบวิธีการขยายเครือข่ายที่มีประสิทธิภาพมากขึ้น

R, 35 ไบต์

cat(gsub("6*7(6|89)*",7,scan(,"")))

ฉันไม่รู้ว่าฉันสามารถใช้gsubวิธีนี้ขอบคุณมากสำหรับคำตอบทุกคำตอบที่ทำให้ฉันเรียนรู้สิ่งใหม่

PHP 51 ตัวอักษร

while($s!=$r=str_replace([789,67,76],7,$s)){$s=$r;}

กรณีทดสอบเขียนในมือยาว

$s = '78966';
while ($s != $r = str_replace([789, 67, 76], 7, $s) )
{
    $s = $r;
}
echo $s; // 7;

นี่เป็นการเปรียบเทียบสตริงและสตริงแทนที่ทั้งสองในเงื่อนไข while หากตรงตามเงื่อนไขในขณะนั้นก็จะอัพเดตมือซ้ายของการเปรียบเทียบกับผลลัพธ์ แจ้งให้เราทราบถึงการปรับปรุงใด ๆ

Jolf , 15 ไบต์

ลองที่นี่! ฉันต้องอธิบายจริงๆเหรอ?

pi"6*7(6|89)*"7
p               replace any entity in
 i               the input
  "6*7(6|89)*"   that matches this regex
              7  with 7
                implicit output

PHP, 36 ไบต์

preg_replace('/6*7(6|89)*/','7',$a);

โซลูชัน regex รับ $ string และแทนที่ด้วย expression

Clojure, 71 ไบต์

Clojure น้อยกว่าที่เหมาะสำหรับการเล่นกอล์ฟเนื่องจากธรรมชาติ verbose - แต่อย่างไรก็ตามมันเป็นออกกำลังกายที่น่าสนใจ:

รุ่น Golfed โดยใช้ Java interop:

(defn f[s](let[x(.replaceAll s "67|76|789" "7")](if(= s x)s(recur x))))

รุ่นที่ไม่ตีกอล์ฟโดยใช้ Java interop:

(defn six-fears-seven [s]
  (let [x (.replaceAll s "67|76|789" "7")]
    (if (= s x)
      s
      (recur x))))

รุ่น "Pure Clojure" ที่ไม่ตีกอล์ฟ:

(defn six-fears-seven [s]
  (let [x (clojure.string/replace s #"67|76|789" "7")]
    (if (= s x)
      s
      (recur x))))

/// , 19 ไบต์ (ไม่แข่งขัน)

/67/7//76/7//789/7/

คุณไม่สามารถป้อนข้อมูลเป็นภาษานี้ได้ดังนั้นข้อมูลที่ป้อนควรไปทางด้านขวาของรหัส

Python 3, 46 ไบต์

import re
lambda s:re.sub(r'6*7(6|89)*','7',s)

Japt v2.0a0, 12 ไบต์

e/6?7(6|89/7

ลองออนไลน์!

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

String.eฟังก์ชั่นแทนที่ซ้ำ Japt 2 มีไวยากรณ์ใหม่ของ regex และการเติมวงเล็บอัตโนมัติภายใน regex ซึ่งบันทึกหนึ่งไบต์ที่นี่ (ใน Japt 1.x เราต้องผ่านสายแทนที่ regexes ซึ่งเป็น clunky kinda.)

Dyalog APLขนาด 17 ไบต์

'6*7(6|89)*'⎕R'7'

'6*จำนวนใด ๆ ที่แตกต่างกัน
7 ตามด้วยเจ็ด
(... )*' ตามด้วยศูนย์หรือมากกว่านั้นลำดับของ ...
 6|89 หกหรือแปดเก้า

⎕R R eplace ว่า

'7' เจ็ด

05AB1E , 12 ไบต์

Δ67‚7:789¬:

ลองมันออนไลน์หรือตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย:

Δ               # Continue doing the following until it no longer changes:
 67             #  Push 67 to the stack
   Â            #  Bifurcate (short for Duplicate & Reverse); which pushes 76 to the stack
    ‚           #  Pair them up
     7:         #  Replace all occurrences of 67 or 76 with 7 in the (implicit) input
                #   i.e. 17893762 → 1789372
       789      #  Push 789 to the stack
          ¬     #  Take the head (without popping); which pushes 7 to the stack
           :    #  Replace all 789 with 7
                #   i.e. 1789372 → 17372
                # (And implicitly output the result after the loop)