6 জন কেন ভয় পেয়েছিল?

61

6 জন কেন ভয় পেয়েছিল? কারণ 7 8 9!

একটি স্ট্রিং দেওয়া হয়েছে নিম্নলিখিত রূপান্তরগুলি প্রয়োগ করুন:

  • যদি 7 এর পাশের 6 টি থাকে তবে 6 টি সরান (6 7 দ্বারা ভয় পাচ্ছে)
  • ক্রম "789" প্রদর্শিত হলে 8 এবং 9 (7 খেয়েছে 9) সরান

(যদি আমি ভুল না হয়ে থাকি তবে আপনি কোনও অর্ডারটি কীভাবে রূপান্তর করছেন তা বিবেচনা করে না)

যতক্ষণ না আপনি আর না পারছেন ততক্ষণ এই রূপান্তরগুলি প্রয়োগ করতে থাকুন।

উদাহরণ:

78966

প্রথমে আমরা "789" দেখতে পাই, সুতরাং স্ট্রিংটি "766" হয়ে যায়। তারপরে আমরা "76" দেখতে পাই, সুতরাং আমরা 6টি বের করি এবং স্ট্রিংটি "76" হয়ে যায়। তারপরে আমরা আবার "76" দেখতে পাচ্ছি, সুতরাং আমাদের "7" রেখে যায়।

পরীক্ষার কেস:

  • 987=> 987(সঠিক ক্রমে নয়। কিছু করে না))
  • 6 7=> 6 7(সাদা স্থানটি 6 থেকে 7 এর মধ্যে বাফার হিসাবে কাজ করে N কিছুই হয় না)
  • 676 => 7
  • 7896789 => 77
  • 7689 => 7
  • abcd => abcd
code-golf  string 
— geokavel
সূত্র
130
কেন ভিস্তার ভয় ছিলো 7? কারণ 7 8 10.
— lirtosiast
2
আরেকটি পরীক্ষার কেস 68978966897896=>68977
— ব্র্যাড গিলবার্ট বি ২ গিল
19
@ থমাসকওয়া ওহ, আমি এটি পেয়েছি: মাইক্রোসফ্ট উইন্ডোজ 9 এড়িয়ে গেছে কারণ তারা ধাঁধার সাথে চলছিল। ;)
— ইটিএইচ প্রোডাকশনগুলি
43
পাঁচটা কেন ভয় পেয়েছিল? কারণ ছয় সাত আট।
— জাকুজে
2
ছয়টি সাতটি ভয় পেয়েছিল কারণ সাতটি শীত, মরা চোখ ছিল।
— কনর ও'ব্রায়ান

উত্তর:

12

জাভাস্ক্রিপ্ট 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])
— Qwertiy
সূত্র
12
দুর্দান্ত, এবং যেহেতু 9 টি খাওয়া হচ্ছে, আপনার কাছে কেবল 2 বাইট রয়েছে এবং এই উত্তরটি দিয়ে
— জিতেছেন
12

জাভা, 126 81 66 58 বাইট

এই কোডটির ল্যাম্বডা সংস্করণ সরবরাহ করার জন্য @ গ্যামার কর্পসকে ধন্যবাদ!

অটোবক্সিং ট্রিকটি নির্দেশ করার জন্য @ ব্যবহারকারী 902383 কে ধন্যবাদ!

...হা.

এটি আমার প্রত্যাশার চেয়ে প্রকৃতপক্ষে লম্বা - জাভা replaceAll()প্রতি ম্যাচে একবারে স্ট্রিংগুলিতে আইটেমগুলি প্রতিস্থাপন করে , যতক্ষণ না এটি পরিবর্তন করা বন্ধ করে দেয় repeatedly তাই আমাকে লুপের জন্য অভিনব ব্যবহার করতে হয়েছিল।

লাম্বদা ফর্ম:

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

টেস্টেবল আনগল্ফড কোড:

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;}
}
— অ্যাডিসন ক্রম্প
সূত্র
2
লাম্বদা নিয়ে যাবেন না কেন? কমপক্ষে 15 বাইট সংরক্ষণ করবে
— GamrCorps
@ গ্যামারকর্পস কীভাবে এই শব্দটি বানাতে হয় তা জানেন না - কখনই ফাংশন ব্যবহার করবেন না।
— অ্যাডিসন ক্রম্প
1
ইন্টারফেসের বিন্দুটি কি শ্রেণি নয়?
— eis
3
@ আইস ইন্টারফেস প্রধানটিকে জনসাধারণ হিসাবে ঘোষণা করার প্রয়োজনীয়তা সরিয়ে দেয়, যা সামান্যতম সুবিধা দেয়। দেখুন: কোডগল্ফ.স্ট্যাকেক্সেঞ্জিং.com
— অ্যাডিসন
1
@ user902383 আপনি যে হ্রাস করছেন তা পরিবর্তন .equalsকরে !=যা একই জিনিসটি করে না । ==(বা !=) বস্তু হেক্স অবস্থানের সাথে তুলনা করে মান দ্বারা নয়। অন্যথায় এটি একই দৈর্ঘ্য। while()7 বাইট হয়, for(;;)7 বাইট হয়।
— অ্যাডিসন ক্রম্প
9

জিএনইউ শেড, 17

স্কোর -rবিকল্পের জন্য +1 অন্তর্ভুক্ত ।

s/6*7(6|89)*/7/g
— ডিজিটাল ট্রমা
সূত্র
67789ফিরে আসার জন্য কাজ করে না 77তবে এটি পরিবর্তে ফিরে আসে677
— ব্র্যাড গিলবার্ট
1
আপনি এর s/67|7(6|89)/7/পরিবর্তে ব্যবহার করতে পারেন s/6?7(6|89)/7/
— ব্র্যাড গিলবার্ট বি
1
জি, আমি ভাবছি ল্যারি কোথায় এসেছিল s///g?
— ব্র্যাড গিলবার্ট
8

পার্ল 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)<[6|89]>[6|89]

ব্যবহার: 

$ 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
— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র
আমি পার্ল 6 জানি না, তবে আমি ধরে নিই এটি একটি পুনরাবৃত্তি প্রতিস্থাপন। যদি 6*এবং কোনওটির সাথে [6|89]*মেলে না, তবে বিজ্ঞাপনের 7জন্য প্রতিস্থাপন করা কী থামবে 7?
— ডিজিটাল ট্রমা
2
@ ডিজিটালট্রামা এটার সাথে অদলবদল 7হয় 7আবার শেষ অবস্থানে আবার শুরু হয়, শেষ অবধি তার পথে কাজ করে। :gএর সংক্ষিপ্ত রূপ :globalনা repeat until it doesn't match anymore।
— ব্র্যাড গিলবার্ট 19
1
@ ডিজিটালট্রামা s/67|76|789/7/কাজ করার জন্য 667আমাকে এটিকে কিছুটা লেখার মতো লিখতে হবে: while s/67|76|789/7/ {}যা while s/6*7[6|89]*/7/ {}আপনি প্রত্যাশা মতো লিখেছেন তা কখনই থামবে না। এছাড়াও, পূর্ববর্তী মন্তব্যের
— শেষটি উত্সাহ
1
[]পরিবর্তন করা উচিত নয় ()? আপনি পাইপ বা মেলাতে চান না 79999।
— jwodder
1
@ জজোদার নং []পার্ল l নন-ক্যাপচারিং সংস্করণ (), আপনি যা ভাবছেন তা <[6|89]>পার্ল
— in-এর
4

গণিত, 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.
— LegionMammal978
সূত্র
8
গল্ফযুক্ত কোডটি ব্যাখ্যা কোডের চেয়ে পরিষ্কার :) .. :)
— রব
@ রব প্রথমে একটি পদ্ধতিগত পদ্ধতির জন্য অনেক ব্যাখ্যা ব্যাখ্যা করেনি।
— LegionMammal978
আমি কেবল জ্বালাতন করছি, সাথী :)
— রব
3

মরিচা, 96 বাইট

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

আশাহীনভাবে দীর্ঘ, মরচে জন্য যথারীতি ...

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
}
— ডোরকনব
সূত্র
কমপক্ষে এটি জাভা নয়
3

ইমাস লিস্প, 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))
— লর্ড ইউয়ুমা
সূত্র
3

রুবি, 27 বাইট

এই সমাধানটি মন্তব্যগুলি থেকে, ব্র্যাড গিলবার্ট বি 2 গিলের কাছে জমা ।

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

রুবি, 37 বাইট

(পুরানো সমাধান)

এই সমাধানটি সত্যটি ব্যবহার করে যে আপনার কখনই স্ট্রিংয়ের অক্ষরের চেয়ে বেশি বার প্রতিস্থাপনের প্রয়োজন হবে না।

->s{s.chars{s.sub! /67|76|789/,?7};s}
— MegaTom
সূত্র
আপনি কয়েকটি বাইট সংরক্ষণ করার charsপরিবর্তে ব্যবহার করতে পারেন size.times।
— ডুরকনব
রিজেক্সের প্রতিস্থাপনের জন্য কি রুবির বিশ্ব পতাকা নেই, বা এটি সক্ষম করতে আরও বাইট লাগবে?
— ব্র্যাড গিলবার্ট বিডিজিল
@ ব্র্যাডগিলবার্টবিলগিলস, রুবিতেও ওউকের মতো: প্রথম বা সমস্ত স্থান প্রতিস্থাপনের জন্য আলাদা sub()এবং gsub()পদ্ধতি রয়েছে। সুতরাং গ্লোবাল কেবল একটি চরিত্র দীর্ঘ।
— manatwork
1
@ মান্যাটওয়ার্ক তারপর আমি এই জাতীয় কিছু লিখতাম: ->s{s.gsub /6*7(6|89)*/,'7'}এবং gsubসমস্ত লুপিংয়ের কাজটি করি।
— ব্র্যাড গিলবার্ট
যদি আমি কমান্ড লাইন পতাকাগুলির নিয়মগুলি সঠিকভাবে বুঝতে পারি তবে আপনি -p কমান্ড লাইন পতাকা (+1) gsub /6*7(6|89)*/,?7ব্যবহার করে ruby -pe "gsub /6*7(6|89)*/,?7"মোট 20 + 1 বাইট ব্যবহারের মাধ্যমে এটি 16 টি বাইট সংরক্ষণ করতে পারবেন
— অ্যালেক্সিস অ্যান্ডারসেন
2

পাওয়ারশেল, 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

এর ব্যবহার করা:

  • অন্য কারোর রেজেক্স প্যাটার্ন
  • উপায় -replaceপাওয়ারশেলের ডিফল্টরূপে বৈশ্বিক প্রতিস্থাপন করে
  • লুপ আনরোলিং, যেখানে এটি আলাদা আলাদাভাবে সমস্ত উপাদানগুলিতে প্রয়োগ -regexকরে অ্যারেটিতে অপারেটর $argsপ্রয়োগ করবে এবং এখানে কেবল একটি উপাদান রয়েছে কারণ এখানে কেবলমাত্র একটি স্ক্রিপ্টের প্যারামিটার রয়েছে, তাই এটি ঠিক আছে এবং আমরা সূচি উপাদানটি এড়াতে পারি [0]।

বৈশ্বিক প্রতিস্থাপন উপলব্ধি করার আগে অভিনবত্বের আগের চেষ্টা এটি করবে; স্ট্রিংয়ের বহুগুণ হিসাবে স্ট্রিংয়ের বহুগুণ ব্যবহার করে "-reprerererererererere" একটি চেইন তৈরির 74 বাইট, তারপরে এটি স্পষ্ট করুন ()

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

(প্রতিস্থাপনের সংখ্যা সংক্ষিপ্ত করার জন্য স্ট্রিং প্রতিস্থাপনের কিছুটা দিয়ে)।

— TessellatingHeckler
সূত্র
2

সিজেম, 70 64 বাইট

কেটে {"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

আমি জানি এটি সম্ভবত আরও কিছুটা গল্ফ করা যেতে পারে এবং আপনার সাহায্যের ব্যাপক প্রশংসা হবে, তবে সত্যই আমি খুশী আমি উত্তর পেতে পেরেছি। সিজেএম লেখার ক্ষেত্রে এটি আমার প্রথম প্রচেষ্টা ছিল।

ব্যাখ্যা:

"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
— কনরাড ক্রেটস
সূত্র
আমি নিজেই এই প্রশ্নটির চেষ্টা করি নি, সুতরাং এটি সর্বোত্তম পন্থা কিনা তা আমি নিশ্চিত নই, তবে আপনি যদি বিভাজন এবং যোগদান করতে চান তবে একবার দেখুন /এবং দেখুন *। এছাড়াও মনে রাখবেন যে আপনি যখন সি-এর মতো ভাষা ব্যবহার করতে চান তখন স্ট্যাকের ক্ষেত্রে চিন্তাভাবনা কিছুটা অভিযোজন গ্রহণ করে। উদাহরণস্বরূপ {"789":I}{"76":I}?অ্যাসাইনমেন্টটি "789""76"?:Iটানতে পারে যা আরও গল্ফ করা যেতে পারে 78976`3/?:I।
— পিটার টেলর
ধন্যবাদ! তবে আপনার দ্বিতীয় পরামর্শটি কীভাবে ব্যবহার করবেন তা আমি বেশ বুঝতে পারি নি।
— কনরাড ক্রেটস
দুঃখিত আমার ভুল. 78976`3/একটি অ্যারে দেয় ["789" "76"]; তারপরে ?আপনার ব্যবহারের =পরিবর্তে সূচকে ব্যবহার করতে হবে ; তবে এটি পিছনে-সামনের দিকে, সুতরাং এটির সূচকটি উল্টানো উচিত, সুবিধাটি হারাতে হবে।
— পিটার টেলর
2

এমএটিএল , 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

মূল স্ট্রিংয়ের অক্ষর যতবার আছে তার জন্য নিয়মিত এক্সপ্রেসন রিপ্লেসমেন্ট প্রয়োগ করে এটি কাজ করে । এটি যথেষ্ট, যেহেতু প্রতিটি প্রতিস্থাপন অক্ষরের সংখ্যা হ্রাস করে।

— লুইস মেন্ডো
সূত্র
1

গম্ভীরভাবে, 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"
— ঐ মেগো
সূত্র
1

থু , 26 বাইট

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

একটি ট্রেলিং নিউলাইন সহ।

ইনপুটটি প্রোগ্রামটি শুরু করার আগে সংযুক্ত করা হয়।
আউটপুট প্রোগ্রামের অবস্থাটি বন্ধ হয়ে যায় যখন একইভাবে টুরিং মেশিনের সমাপ্ত হয়।
(Thue করে একটি আউটপুট প্রবাহ আছে, কিন্তু এটি সঠিকভাবে ব্যবহার করতে কঠিন, তাই আমি নিশ্চিত এই একটি গ্রহণযোগ্য আউটপুট পদ্ধতি কিনা নই)

— user253751
সূত্র
আমি তাই মনে করি না. আপনার যদি স্টডআউটে যাওয়ার কোনও উপায় থাকে তবে আপনাকে তা করতে হবে। দুঃখিত!
হ্যাঁ, এটি মেটা পোস্ট অনুসারে অনুমোদিত।
— জিওকাভেল
1

বাশ, 102 82 67 (+7)? বাইট

এক্সট্লোব সংস্করণ

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

এটি একটি ফাইলের মধ্যে রাখা এবং যেমন কল সঙ্গে বোঝানো হয় bash -O extglob 789.sh 6567678989689789656। (+7)? বাইটগুলি হ'ল এক্সট্লগব বিকল্পটি বাইটগুলির দিকে গুনে।

এক্সট্র্লোব বৈশিষ্ট্যগুলি নির্দেশ করার জন্য @ বাইনারিজেব্রাকে ধন্যবাদ!

অ-এক্সগ্লোব সংস্করণ (৮২ বাইট)

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।

এটি লুপ অনুসন্ধান এবং প্রতিস্থাপনের জন্য প্যারামিটার বিস্তারের ব্যবহার করে। আমি আরও কার্যকরভাবে চেইন বিস্তারের কোনও উপায় সম্পর্কে সচেতন না হওয়ায় আমি প্রতিস্থাপনটি করতে বেশ কয়েকটি বিস্তৃত জড়িত ছিল।

— হাগু
সূত্র
পিপিসিজিতে আপনাকে স্বাগতম!
— মেগো
@ বাইনারিজেব্রা আহ, @()সিনট্যাক্সের জন্য ধন্যবাদ । আমি জানতাম যে তাদের একত্রিত করার উপায় আছে। এবং @ মেগো, স্বাগত জানার জন্য ধন্যবাদ!
— হাগু
1

আর, 35 বাইট

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

আমি জানতাম না যে আমি gsubএইভাবে ব্যবহার করতে পারি , এখানে প্রতিটি উত্তরের জন্য একটি বড় ধন্যবাদ আপনাকে নতুন কিছু শিখিয়েছে।

— Mutador
সূত্র
0

পিএইচপি 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;

এটি স্ট্রিং তুলনা করে এবং স্ট্রিং উভয় অবস্থাতেই প্রতিস্থাপন করে। শর্ত পূরণ করার সময়, এটি ফলাফলের সাথে তুলনা করার বাম হাত আপডেট করে। আমাকে কোন উন্নতি সম্পর্কে জানাতে দিন।

— হংসী
সূত্র
0

পিএইচপি, 36 বাইট

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

রেজেক্স সলিউশন, একটি স্ট্রিং নেয় এবং এক্সপ্রেশনটির মাধ্যমে প্রতিস্থাপন করে।

— daraeman
সূত্র
পিএইচপি-তে কোনও ইনপুট পদ্ধতি হিসাবে GET পরামিতি গ্রহণযোগ্য নয় । আপনাকে হয় $argvএটির একটি ফাংশন তৈরি করতে হবে এবং ফাংশন প্যারামিটার হিসাবে ইনপুটটি পাস করতে হবে, বা এসডিডিএন থেকে ইনপুট নেওয়া হবে।
— মেগো
@ মেগো আপনার লিঙ্ক করা পোস্টটিতে কোনও sensক্যমত্য বলে মনে হচ্ছে না।
— ব্যবহারকারী 253751
@ মিমিবিস সঠিক আই / ও পদ্ধতি গ্রহণযোগ্য করার জন্য conকমত্যের প্রয়োজন is একটির অভাব এটি গ্রহণযোগ্য নয়।
— মেগো
টিএল; ডিআর যদি আপনি কোডগল্ফের জন্য পিএইচপি ব্যবহার করেন তবে আপনার গুরুতর অসুবিধা রয়েছে।
— হামজা
0

ক্লোজার, 71 বাইট

ক্লোজার তার ভার্চুজের প্রকৃতির কারণে গল্ফিংয়ের জন্য আদর্শের চেয়ে কম আদর্শ - তবে তা এটি একটি আকর্ষণীয় অনুশীলন:

গল্ফযুক্ত সংস্করণ, জাভা ইন্টারপ ব্যবহার করে:

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

জাভা ইন্টারপ ব্যবহার করে আন-গল্ফ করা সংস্করণ:

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

আন-গল্ফড "খাঁটি ক্লোজার" সংস্করণ:

(defn six-fears-seven [s]
  (let [x (clojure.string/replace s #"67|76|789" "7")]
    (if (= s x)
      s
      (recur x))))
— বব জার্ভিস
সূত্র
0

/// , 19 বাইট (প্রতিযোগী নয়)

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

আপনি আসলে এই ভাষায় ইনপুট সরবরাহ করতে পারবেন না, সুতরাং অনুমিত ইনপুট কোডের ডানদিকে যায়।

— এরিক দ্য আউটগল্ফার
সূত্র
নোট করুন যে Itflabtijtslwi স্ল্যাশ কিন্তু ইনপুট সহ।
— FryAmTheEggman
@ ফ্রাইআম দ্য এজিগম্যান যদিও এটি একটি অক্ষরকে ইনপুট করে , তারে স্ট্রিং নয় ।
— এরিক আউটগলফার
আপনার লিঙ্কটি একটি স্ল্যাশ অনুপস্থিত বলে মনে হচ্ছে।
— বিতরণ করুন
0

জাপট v2.0a0, 12 বাইট

e/6?7(6|89/7

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

String.eপুনরাবৃত্তির কাজ প্রতিস্থাপন হয়। জাপট ২-এ নতুন রেজেেক্স সিনট্যাক্স এবং রেজেক্সের অভ্যন্তরে প্রথম বন্ধনীর স্বয়ংক্রিয়ভাবে সমাপ্তি রয়েছে, যা এখানে একটি বাইট সংরক্ষণ করে। (জাপট ১. এক্সে, আমাদের রেইগেক্সের জায়গায় স্ট্রিংগুলি পাস করতে হয়েছিল, এটি ছিল দুরন্ত আকিদা)

— Bubbler
সূত্র
0

ডায়ালগ এপিএল , 17 বাইট

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

'6*ছক্কা যে কোন সংখ্যার
7 সাত দ্বারা অনুসরণ
(... )*' এর শূন্য বা তার বেশি সিকোয়েন্স ... দ্বারা অনুসরণ
 6|89 একটি ছয় বা আট নয়টি

⎕R আর যে eplace

'7' একটি সাত

— আদম
সূত্র
0

05 এ বি 1 ই , 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)
— কেভিন ক্রুইজসেন
সূত্র
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.