অতিক্রম করা 44 এখনও নিয়মিত 44; (


18

ভূমিকা

২৪ শে মার্চ, ২০১৫ এ @ আইস্যাকগ তার পাইথ উত্তরটি 44 থেকে 42 বাইটে গল্ফ করেছে । যেহেতু ক্রস আউট 44 ( 44 ) দেখতে অনেকটা নিয়মিত 44 এর মতো লাগে, তাই অপ্টিমাইজার নীচের মন্তব্যটি করেছেন:

স্ট্রাইক আউট 44 এখনও স্বাভাবিক 44 :(

এর পরে, ২১ শে অক্টোবর, ২০১৫, @ ডুরকনব গল্ফ করেছে তার রুবি উত্তর 44 থেকে 40 (এবং পরে 38) বাইট এবং আসল মন্তব্যের একটি লিঙ্ক সহ তার উত্তর করার জন্য নিম্নলিখিত অংশ যোগ, এর @Optimizer :

অতিক্রম করা 44 এখনও নিয়মিত 44; (

এটি একটি উত্তর-শৃঙ্খলাবদ্ধ মেমের শুরু ছিল , যেখানে প্রতিটি পার হয়ে যায় 44 (এবং কিছু ক্ষেত্রে 4 বা 444) আগেরটির সাথে ফিরে যুক্ত।

তারপর 8 এপ্রিল, 2017 (আমি নিশ্চিত এই তা করার প্রথম উত্তর ছিল নই, কিন্তু এটা নিকটতম আমি খুঁজে পাইনি থাকবে) উপর, @JonathanAllan golfed তার পাইথন উত্তর 44 থেকে 39. করতে তবে ব্যবহৃত <s>&nbsp;44&nbsp;</s>তাই 44 would এর মতো দেখতে:  44  , এবং তার উত্তরে নিম্নলিখিতগুলি যুক্ত করুন:

ক্রস আউট & nbsp; 44 & nbsp; এখন আর 44 নেই :)

এবং এটি মেমের মূলত (শুরুতে) শেষ ছিল।

চ্যালেঞ্জ

এই চ্যালেঞ্জ হিসাবে: ইতিবাচক পূর্ণসংখ্যার একটি তালিকা এবং একটি তারিখ দেওয়া হয়েছে, তালিকাটি কমা-ও-স্পেসকে আলাদা করে আউটপুট করুন যেখানে শেষের ব্যতীত প্রতিটি সংখ্যা <s>...</s>ট্যাগের মধ্যে রাখা হয় ।

তদ্ব্যতীত, অতিক্রমকৃত সংখ্যার কোনওটি যদি ক্রমানুসারে থাকে [4, 44, 444, 4444, ...]( oeis.org এ A00278 ):

  • তারিখটি যদি এপ্রিল 8, 2017 এর আগে হয়: সঠিকটি (সমস্ত ছোট হাতের সাথে এবং সেমিকোলন ইমোটিকন সহ) পাঠ্যও আউটপুট করুন crossed out N is still regular N ;( (N ক্রম থেকে ক্রস আউট সংখ্যা হওয়া ।
  • যদি তারিখটি 8 ই এপ্রিল, 2017 বা তার পরের হয়: Nসিকোয়েন্স থেকে ক্রস আউট সংখ্যাটিতে অগ্রণী এবং অনুবর্তন &nbsp;যুক্ত হওয়া উচিত । আউটপুট কোনও অতিরিক্ত লাইন প্রয়োজন।

উদাহরণ:

ইনপুট: list = [50, 48, 44, 41], date = January 1st, 2017
আউটপুট:

<s>50</s>, <s>48</s>, <s>44</s>, 41
crossed out 44 is still regular 44 ;(

ইনপুট: list = [500, 475, 444, 301, 248], date = June 2nd, 2018
আউটপুট:

<s>500</s>, <s>475</s>, <s>&nbsp;444&nbsp;</s>, <s>301</s>, 248

চ্যালেঞ্জ বিধি:

  • আপনি ধরে নিতে পারেন ইনপুট-তালিকাটি একটি বৃহত্তম থেকে ক্ষুদ্রতম পর্যন্ত বাছাই করা তালিকা, কেবল ধনাত্মক পূর্ণসংখ্যা থাকে। বাস্তবে বাগ-ফিক্সগুলির কারণে একটি বাইট-কাউন্টও বাড়তে পারে তবে এই চ্যালেঞ্জের জন্য আমরা ভান করি এটি কেবল নেমে যায়।
  • ক্রম থেকে আপনি কেবল একটি একক সংখ্যা ধরে নিতে পারেন [4, 44, 444, 4444, ...] ইনপুট-তালিকার উপস্থিত (যদি থাকে) উপস্থিত থাকে।
  • আউটপুট ফর্ম্যাটটি হয় STDOUT এ মুদ্রিত হয়, বা স্ট্রিং হিসাবে ফিরে আসে (বা চরিত্রের অ্যারে / তালিকা / 2 ডি-অ্যারে যদি এটি পছন্দসই হয়)। একটি ট্রেলিং নিউলাইন অবশ্যই optionচ্ছিক।
  • আউটপুট ফর্ম্যাট কঠোর। <s>...</s>আবশ্যক; &nbsp;...&nbsp;আবশ্যক; ", "(কমা এবং স্থান) বাধ্যতামূলক; এবং \ncrossed out ... is still regular ... ;(ঠিক বাধ্যতামূলক (পৃথক লাইনে)।
  • আপনি ইনপুট-তারিখটিকে তারিখ-অবজেক্ট হিসাবে নিতে পারেন; টাইমস্ট্যাম্প; বছর, মাস এবং দিনের জন্য আলগা পূর্ণসংখ্যা; বিন্যাসে একটি সংখ্যা yyyyMMdd; 1899 সালের 31 শে ডিসেম্বর থেকে পূর্ণসংখ্যার দিনগুলি (যা 42832এপ্রিল 8 ই, 2017 এর জন্য হবে); বা অন্য কোনও যুক্তিসঙ্গত ইনপুট-ফর্ম্যাট। তারিখ যদি বিবৃতি এই চ্যালেঞ্জের প্রধান অংশ নয়।
  • আপনি চাইলে ইনপুট পূর্ণসংখ্যা-তালিকা স্ট্রিংগুলির তালিকাও হতে পারে।
  • আপনাকে <sup>...</sup>ট্যাগগুলিতে যুক্ত করতে হবে নাcrossed out ... is still regular ... ;( লাইনে যেমন সাধারণত আসল মেম উত্তরের সাথে করা হয়।
  • আপনি ধরে নিতে পারেন ইনপুট-তালিকায় কখনই [1, 50000]সীমার বাইরে বাইট-গণনা থাকবে না (যাতে আপনার কেবল এই পাঁচটিই {4, 44, 444, 4444, 44444}উদ্বিগ্ন হবেন)।

সাধারণ নিয়ম:

  • এটি , তাই বাইট জেতে সংক্ষিপ্ত উত্তর।
    কোড-গল্ফ ভাষাগুলি আপনাকে নন-কোডগলফিং ভাষার সাথে উত্তর পোস্ট করতে নিরুৎসাহিত করবেন না। 'যে কোনও' প্রোগ্রামিং ভাষার পক্ষে যতটা সম্ভব সংক্ষিপ্ত উত্তর নিয়ে আসার চেষ্টা করুন।
  • স্ট্যান্ডার্ড নিয়মগুলি আপনার উত্তরের জন্য প্রযোজ্য , সুতরাং আপনাকে সঠিক পরামিতি এবং রিটার্ন-টাইপ, সম্পূর্ণ প্রোগ্রাম সহ STDIN / STDOUT, ফাংশন / পদ্ধতি ব্যবহারের অনুমতি দেওয়া হবে। আপনার কল
  • ডিফল্ট লুফোলগুলি নিষিদ্ধ।
  • যদি সম্ভব হয় তবে আপনার কোডের জন্য একটি পরীক্ষার সাথে একটি লিঙ্ক যুক্ত করুন।
  • এছাড়াও, আপনার উত্তরের জন্য একটি ব্যাখ্যা যুক্ত করা অত্যন্ত প্রস্তাবিত।

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

Input: [50, 48, 44, 41] and January 1st, 2017 
Output:
<s>50</s>, <s>48</s>, <s>44</s>, 41
crossed out 44 is still regular 44 ;(

Input: [500, 475, 444, 301, 248] and  June 2nd, 2018
Output:
<s>500</s>, <s>475</s>, <s>&nbsp;444&nbsp;</s>, <s>301</s>, 248

Input: [8, 6, 4] and December 5th, 2017
Output:
<s>8</s>, <s>6</s>, 4

Input: [8, 6, 4, 3, 2] and September 15th, 2015
Output:
<s>8</s>, <s>6</s>, <s>4</s>, <s>3</s>, 2
crossed out 4 is still regular 4 ;(

Input: [119, 99, 84, 82, 74, 60, 51, 44, 36, 34] and February 29th, 2016
Output:
<s>119</s>, <s>99</s>, <s>84</s>, <s>82</s>, <s>74</s>, <s>60</s>, <s>51</s>, <s>44</s>, <s>36</s>, 34
crossed out 44 is still regular 44 ;(

Input: [404, 123, 44] and March 4th, 2016
Output:
<s>404</s>, <s>123</s>, 44

Input: [4, 3] and April 8th, 2017
Output:
<s>&nbsp;4&nbsp;</s>, 3

Input: [44] and October 22nd, 2017
Output:
44

Input: [50000, 44444, 1500] and August 1st, 2018
Output:
<s>50000</s>, <s>&nbsp;44444&nbsp;</s>, 1500

Input: 50, 38, 23 and September 8th, 2001
Output:
<s>50</s>, <s>38</s>, 23

আপনার শেষ পরীক্ষার কেসটি তার তারিখটি হারিয়েছে?
নীল

1
@ নীল আহ উফ .. স্থির। তারিখটি তার জন্য আসলেই কিছু যায় আসে না, তবে নির্বিশেষে একটি যুক্ত করে। লক্ষ্য করার জন্য ধন্যবাদ।
কেভিন ক্রুইজসেন

1
আমি নিশ্চিত করতে পারি যে আমি এই নির্দিষ্ট উদ্দেশ্যে কেউ অ-ব্রেকিং স্পেস ব্যবহার করার বিষয়টি লক্ষ্য করেছি না এবং এজন্য আমি "আর নেই" লেখাটি লিখেছি।
জনাথন অ্যালান

(আমি এটিও নিশ্চিত করতে পারি যে 44 এর সাথে এটি ব্যবহার করার আগে আমি এটি ব্যবহার করেছিলাম - আমি বিশ্বাস করি যে এটি যখন আমি প্রথম তাদের ব্যবহার করেছি)
জনাথন অ্যালান

যেহেতু আমরা ইনপুটটিকে দিন হিসাবে গ্রহণ 1889-12-31করতে পারি, আমরা কি সেই থেকে দিন নিতে পারি 2017-04-08?
টিফিল্ড

উত্তর:


6

জেলি ,  444  , 94 , 93 বাইট

Ñȧ$“&nbsp;”,¤j$€io.ɗ¦@Ṗj@€“<s>“</s>”oj⁾, 
⁴>⁽A€
“¢⁻$gẆẠ⁷Ṭ]ḳṁṛż?=çỊI×V»Ỵjṭ⁷ẋǬȧẠƲ
ṖḟÐḟ”4Ḣµñ³,Ç

একটি সম্পূর্ণ প্রোগ্রাম। ইনপুটগুলি স্ট্রিংগুলির একটি তালিকা এবং প্রথম জানুয়ারী প্রথম 1970 হিসাবে পূর্ণ দিন হিসাবে গৃহীত তারিখ (17264 এপ্রিল অষ্টম 2017 তৈরি করে)

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

কিভাবে?

Ñȧ$“&nbsp;”,¤j$€io.ɗ¦@Ṗj@€“<s>“</s>”oj⁾,  - Link 1: L = list of characters ("4...4") OR integer (0),
                                          -         R = list of lists of characters (the strings provided to the program)
  $                                       - last 2 links as a monad:
Ñ                                         -   call next Link (2) as a monad
                                          -   ...gets: is date input to program greater than 2017-04-07?
 ȧ                                        -   AND (if so gets the value of L, else 0), say X
                    ¦@                    - sparse application (with swa@pped @rguments)...
                      Ṗ                   - ...with right argument = popped R (without it's rightmost entry)
                   ɗ                      - ...to: last 3 links as a dyad
                i                         -          first index of X in popped R (0 if no found, so 0->0)
                  .                       -          literal 0.5
                 o                        -          OR (change any 0 to 0.5)
                                          -        ...i.e. index of "4...4" if L was one or 0.5, an invalid index
              $€                          - ...do: for €ach... last 2 links as a monad:
            ¤                             -          nilad followed by link(s) as a nilad:
   “&nbsp;”                               -            literal list of characters = "&nbsp;"
           ,                              -            pair (with itself) = ["&nbsp;", "&nbsp;"]
             j                            -            join (with the item) e.g.: "&nbsp;444&nbsp;" or ["&nbsp;", 0, "&nbsp;"]
                          “<s>“</s>”      - literal list of lists of characters = ["<s>", "</s>"]
                       j@€                - for €ach... join (with swa@pped @rguments)
                                    o     - OR with R (vectorises, so adds the popped entry back onto the right-side)
                                      ⁾,  - literal list of characters = ", "
                                     j    - join

⁴>⁽A€ - Link 2: greater than 2017-04-07?
⁴     - program's 4th argument (2nd input)
  ⁽A€ - literal 17263 (days(2017-04-07 - 1970-01-01))
 >    - greater than?

“¢⁻$gẆẠ⁷Ṭ]ḳṁṛż?=çỊI×V»Ỵjṭ⁷ẋǬȧẠƲ - Link 3: L = list of characters ("4...4") OR integer (0)
“¢⁻$gẆẠ⁷Ṭ]ḳṁṛż?=çỊI×V»           - compressed list of characters = "crossed out \n is still regular \n ;("
                     Ỵ           - split at newlines = ["crossed out ", " is still regular ", " ;("]
                      j          - join with L
                        ⁷        - literal newline character
                       ṭ         - tack (add to the front)
                              Ʋ  - last 4 links as a monad:
                          Ç      -   call last Link (2) as a monad
                           ¬     -   NOT
                             Ạ   -   All (1 if L is "4...4", 0 if L is 0)
                            ȧ    -   AND
                         ẋ       - repeat (i.e. get the list of characters to print or an empty list)

ṖḟÐḟ”4Ḣµñ³,Ç - Main Link: list of strings, integer (days since 1970-01-01)
Ṗ            - pop (list of strings without it's rightmost entry)
  Ðḟ         - filter discard if:
 ḟ           -   filter discard any which are in...
    ”4       -   ...literal character '4'
      Ḣ      - head (yields 0 if list is now empty)
       µ     - new monadic chain, call that X
         ³   - program's 3rd argument (1st input) - call that Y)
        ñ    - call next Link (1) as a dyad (i.e. f1(X, Y))
           Ç - call last Link (3) as a monad (ie. f3(X))
          ,  - pair
             - implicit (smashing) print

1
আপনি আপনার টিআইওর অন্য চ্যালেঞ্জ থেকে ইনপুট সরিয়ে দিতে ভুলে গেছেন। ;) নির্বিশেষে দুর্দান্ত উত্তর। আপনি একটি ব্যাখ্যা যোগ করতে আপত্তি হবে? এবং এই 444-বাইট গণনায় rofl। আপনি মন্তব্য যোগ না করা পর্যন্ত আপনি এটি দিয়ে শুরু করেছিলেন তা আমি কিছুটা বিশ্বাস করি না। ; পি
কেভিন ক্রুজসেন

ওপস, ধন্যবাদ। আমি শীঘ্রই একটি ব্যাখ্যা যুক্ত করব।
জোনাথন অ্যালান

1
সংক্ষেপিত স্ট্রিংয়ের চেয়ে 444 সংস্করণে কোনও মন্তব্য, সংখ্যা নেই
জোনাথন অ্যালান

... আহ 444 সংস্করণটিতে একটি বাগ রয়েছে - এটি 1969-12-111 সাল থেকে 1970-01-01-এর পরে ব্যবহারের দিনগুলি যেমন গল্ফযুক্ত সংস্করণে হয় না _ _ <(নিষ্পাপ ফিক্স এখনও 444)
জোনাথন অ্যালান


3

এক্সেল ভিবিএ, 217 বাইট

ভিবিই তাত্ক্ষণিক উইন্ডো ফাংশন যা পরিসীমা থেকে ইনপুট অ্যারে নেয় [A:A]এবং [B1]কনসোলে পরিসীমা এবং আউটপুটগুলি থেকে তারিখ নেয় ।

c=[Count(A:A)]:d=[B1]>42832:For i=1To c-1:n=Cells(i,1):l=InStr(44444,n):s=IIf(d*l,"&nbsp;",""):v=IIf((d=0)*l,n,v):?"<s>"s;""&n;s"</s>, ";:Next:?""&Cells(i,1):?IIf(v,"crossed out "&v &" is still regular "&v &" ;(","");

অবহেলিত এবং মন্তব্য করা হয়েছে

c=[Count(A:A)]                  ''  Get numer of elements
d=[B1]>42832                    ''  Check if date is after 7 Apr 2017,
For i=1To c-1                   ''  Iterate over index
n=Cells(i,1)                    ''  Get array val at index
l=InStr(44444,n)                ''  Check if val is all 4s
s=IIf(d*l,"&nbsp;","")          ''  If after 7 Aug 2017, and All 4s, let `s` be "&nbsp;"
v=IIf((d=0)*l,n,v)              ''  If all 4s, and not after date, let v hold n, else hold v
?"<s>"s;""&n;s"</s>, ";         ''  Print striked vales, with "&nbsp;", if applicable
Next                            ''  Loop
?""&Cells(i,1)                  ''  Print last value in array
                                ''  (below) Print meme, if needed
?IIf(v,"crossed out "&v &" is still regular "&v &" ;(","");

তারিখের ফর্ম্যাটটিতে পরিবর্তনের জন্য -2 বাইট YYYYMMDD

42832(1 মান এর জন্য মান 07 Apr 2017) তুলনা করার জন্য -1 বাইট , ধন্যবাদ @ নীল

বিবৃতি 1,থেকে অপসারণের জন্য -2 বাইটস InStr, ধন্যবাদ @ সিডোগজি01


আমি অনুমান করি এর For i=1To~-cপরিবর্তে For i=1To c-1এক্সেল ভিবিএতে সম্ভব নয়? যদি আমি সঠিকভাবে মনে করি তবে বিটওয়াইসের Notপরিবর্তে নয় ~, বা উভয়ই সম্ভব? (নোট আমি এক্সেল VBA কিছুই পাশে জানি, তাই আমি সম্ভবত কিছু এখানে মূঢ় বলছি যে; পি।)
কেভিন Cruijssen

@ কেভিন ক্রুজসেন হ্যাঁ, ঠিক তেমন দিক নেই Not , তাই না ~:(
টেলর স্কট

1
আমি মনে করি আপনি তারিখের ফর্ম্যাটটি 42832তারিখটিতে পরিবর্তন করে এবং (2017-04-07 এর পূর্ণসংখ্যার মান) তুলনা করে আরও বাইটগুলি সঞ্চয় করতে পারেন ।
নীল

আমি মনে করি আপনি ইনস্ট্র্যাক্ট থেকে "1" মুছে ফেলার মাধ্যমে 2 টি বাইট সংরক্ষণ করতে পারবেন (এটি
alচ্ছিক

2

রেটিনা 0.8.2 , 130 বাইট

$
;42833
O`;.{5}
\b(4+),(?=.*;42833;)
&$1&,
&
&nbsp;
.{12}$

\b(4+),.*
$&¶crossed out $1 is still regular $1 ;(
(.+?),
<s>$1</s>, 

এটি অনলাইন চেষ্টা করুন! লিঙ্কে পরীক্ষার কেস অন্তর্ভুক্ত রয়েছে। এক্সেলের তারিখ স্ট্যাম্পগুলি ব্যবহার করে (1899-12-31 সালের পরে তবে 1900-02-49 সহ)। আইএসও তারিখগুলি গ্রহণ করে এমন সংস্করণের জন্য 141 বাইট:

$
;2017-04-08
O`;.{10}
\b(4+),(?=.*;2017-04-08;)
&$1&,
&
&nbsp;
.{22}$

\b(4+),.*
$&¶crossed out $1 is still regular $1 ;(
(.+?),
<s>$1</s>, 

এটি অনলাইন চেষ্টা করুন! লিঙ্কে পরীক্ষার কেস অন্তর্ভুক্ত রয়েছে। ব্যাখ্যা:

$
;2017-04-08

ইনপুটটিতে কাট-অফ তারিখ যুক্ত করুন।

O`;.{10}

তারিখগুলি বাছাই করুন। প্রদত্ত তারিখটি যদি কাট-অফ তারিখের বা তার পরে থাকে তবে প্রথম তারিখটি কাট-অফ তারিখ হবে।

\b(4+),(?=.*;2017-04-08;)
&$1&,
&
&nbsp;

সেক্ষেত্রে, মোড়ানো 4+মধ্যে &nbsp;(দুই পর্যায়ে ব্যবহার এটি একটি বাইট সংরক্ষণ)।

.{22}$

তারিখগুলি তাদের কাজটি সেরে ফেলুন।

\b(4+),.*
$&¶crossed out $1 is still regular $1 ;(

যদি কোনও অপ্রয়োজনীয় হয় 4+, তবে মেম সংযুক্ত করুন।

(.+?),
<s>$1</s>, 

অপ্রচলিত বাইট গণনাগুলির সমস্তটি স্ট্রাইক করুন।


আপনি তারিখ বিন্যাস ছাড়াই 5 বাইট সংরক্ষণ করতে পারেন -
কেভিন ক্রুইজসেন

@ কেভিন ক্রুইজসেন আমি এটির এক্সেল তারিখ (1899-12-31 সালের দিন) হিসাবে জিজ্ঞাসা করে আরও বেশি বাইট সংরক্ষণ করতে পারি। এর সাথে আমি কতদূর যেতে পারি?
নীল

হুম .. তুমি কি জানো, এটা আমার দ্বারাও ঠিক আছে। তারিখের April 8th, 2017জন্য if- বিবৃতি কীভাবে করা হয় তা আমি সত্যিই চিন্তা করি না। এটি এই চ্যালেঞ্জের প্রধান অংশ নয়।
কেভিন ক্রুইজসেন

42832আমি কি ধরে নিই যে এপ্রিল 8, 2017 এর জন্য হবে ?
কেভিন ক্রুইজসেন

@ কেভিন ক্রুজসেন আমার এক্সেল বলেছেন যে এটি 7 তম।
নীল

1

রুবি, 208 184 180 বাইট

Tio পরীক্ষার

2 কেট বাঁচানোর জন্য কেভিন ক্রুইজসেনকে ধন্যবাদ!

->n,d{*h,t=n;i=20170408>d;f=?\n;h.map{|u|o=u.digits|[]==[4];f=o&&i ?f+"crossed out #{u} is still regular #{u} ;(":f;o&&!i ?"<s>&nbsp;#{u}&nbsp;</s>":"<s>#{u}</s>"}*", "+", #{t}"+f}

এটা একটা ল্যামডা ফাংশন যা সংখ্যার একটি তালিকা এবং এর ফর্ম্যাটে একটি তারিখ হিসাবে একটি পূর্ণসংখ্যা লাগে YYYYmmdd


পরীক্ষার কোডের সাথে টিআইও-লিঙ্ক যুক্ত করা কি সম্ভব হবে ? এবং ফর্ম্যাটগুলি স্যুইচ করা যাতে এটি একটি পূর্ণসংখ্যার ইনপুট প্রকৃতপক্ষে কিছু বাইট সংরক্ষণ করতে পারে। :)
কেভিন ক্রুজসেন

@ কেভিন ক্রুজসেন যোগ করা লিঙ্ক;)
পিটার লেনকিফি

ধন্যবাদ! আমার কাছ থেকে +1 এর পরে স্পেসগুলি সরিয়ে আপনি 2 বাইট সংরক্ষণ করতে পারেন ?। এছাড়াও, আপনার Tio, আপনি আপনার প্রকৃত জমা কোড এবং পরীক্ষা কোড হেডার / ফুটার সঙ্গে বিভক্ত করতে পারেন, এই মত । :)
কেভিন ক্রুজসেন

1

জাভাস্ক্রিপ্ট, 194 বাইট

(a,d,l=a.pop(),n=a.find(x=>/^4+$/.exec(x)),s=a.map(n=>`<s>${n}</s>, `).join``+l)=>d<1491609600?n?s+`
crossed out ${n} is still regular ${n} ;(`:s:s.replace(/>(4+)</g,(_,m)=>`>&nbsp;${m}&nbsp;<`)


1

হাস্কেল , 227 বাইট

i[]=1>0;i('4':s)=i s;i(_:_)=0>1
f l d=m l++c where a=head$filter i l;t d|d<42832=("","\ncrossed out "++a++" is still regular "++a++" ;(")|1>0=("&nbsp;","");(b,c)=t d;w n|i n=b++n++b|1>0=n;m[n]=n;m(x:s)="<s>"++w x++"</s>, "++m s

এটি অনলাইন চেষ্টা করুন! fতালিকা lএবং তারিখ দিয়ে চালান d। 42832 পরিবর্তনশীল তারিখ।


পরীক্ষার কোডের সাথে টিআইও-লিঙ্ক যুক্ত করা কি সম্ভব হবে ?
কেভিন ক্রুজসেন

রাশিয়া মধ্যে @KevinCruijssen এটা নিষিদ্ধ হচ্ছে
Евгений Новиков

ওহ, এটি জানতেন না। ঠিক আছে, আমি হাস্কেলকে খুব ভাল জানি না, নাহলে আমি নিজেই এটি পরীক্ষা করতাম। কোডটি নিজেই যৌক্তিক বলে মনে হচ্ছে, তবে আমার কাছ থেকে তবেই +1।
কেভিন ক্রুইজসেন

@ কেভিন ক্রুজসেন আপনি টিআইও-তে কোডটি অনুলিপি করতে, লিঙ্ক তৈরি করতে এবং পোস্টে এটি যুক্ত করতে পারেন
Новиков

@ কেভিন ক্রুজসেন টিআইও ভুল করে নিষেধাজ্ঞা জারি করা হয়েছে, তবে আমি এ সম্পর্কে প্রক্সি / যোগাযোগের জন্য যোগাযোগ করতে খুব অলস
Новиков

1

জাভাস্ক্রিপ্ট (নোড.জেএস) , 173 বাইট

a=>d=>a.map(x=>--i<1?x:`<s>${(b=/^4+$/.exec(x)?(c=x,d)<14915808e5?n=[]:"&nbsp;":"")+x+b}</s>`,n="",c=0,i=a.length).join`, `+(n&&`
crossed out ${c} is still regular ${c} ;(`)

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

কারি সিনট্যাক্স ব্যবহার করা হচ্ছে f(array)(js_timestamp)

আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.