บทนำ

เมื่อวันที่ 24 มีนาคม 2015 @isaacgแข็งแรงเล่นกอล์ฟคำตอบของเขา Pyth 44-42 ไบต์ เนื่องจากเครื่องหมายขีดฆ่า 44 ( 44 ) ดูเหมือนว่าปกติ 44 มาก@Optimizerจึงแสดงความคิดเห็นต่อไปนี้:

ถูกขีดฆ่าออก 44 ยังคงเป็นเรื่องปกติ 44 :(

หลังจากนั้นในวันที่ 21 ตุลาคม 2015 @ Doorknob ♦ golfed คำตอบ Ruby ของเขาจาก 44 ถึง 40 (และ 38 ต่อมา) ไบต์และเพิ่มส่วนต่อไปนี้ในคำตอบของเขาพร้อมลิงก์ไปยังความคิดเห็นดั้งเดิมของ@Optimizer :

^{ขีดฆ่า 44 ยังเป็นปกติ 44; (}

นี่คือจุดเริ่มต้นของmeme คำตอบ - การผูกมัดซึ่งทุกคนใน 44 (และในบางโอกาส 4 หรือ 444) เชื่อมโยงกลับไปก่อนหน้านี้

จากนั้นในวันที่ 8 เมษายน 2017 (ฉันไม่แน่ใจว่านี่เป็นคำตอบแรกที่ทำเช่นนั้นหรือไม่ แต่มันเป็นคำตอบที่เร็วที่สุดที่ฉันสามารถหาได้) @JonathanAllan golfed คำตอบของ Pythonจาก 44 ถึง 39 แต่เขาก็ใช้<s>&nbsp;44&nbsp;</s>44 มีลักษณะเช่นนี้ 44 และเพิ่มคำตอบของเขาต่อไปนี้:

ข้ามไป & nbsp; 44 & nbsp; ไม่ใช่ 44 อีกต่อไป :)

และนั่นคือจุดเริ่มต้นของมส์ (จุดเริ่มต้น)

ท้าทาย

สำหรับความท้าทายนี้: ให้รายการของจำนวนเต็มบวกและวันที่ออกรายการคั่นด้วยเครื่องหมายจุลภาคและช่องว่างที่ทุกหมายเลขยกเว้นสำหรับคนสุดท้ายวางไว้ระหว่าง<s>...</s>แท็ก

นอกจากนี้หากหมายเลขที่ขีดฆ่าอยู่ในลำดับ[4, 44, 444, 4444, ...]( A00278 บน oeis.org ):

• หากวันที่อยู่ก่อนวันที่ 8 เมษายน 2017: ส่งออกข้อความ (ตัวพิมพ์เล็กและสัญลักษณ์อัฒภาค) เช่นกันcrossed out N is still regular N ;(( Nเป็นตัวเลขที่ถูกขีดฆ่าออกจากลำดับ) ในบรรทัดที่สอง
• หากวันที่คือ 8 เมษายน 2017 หรือใหม่กว่า: หมายเลขขีดฆ่าNจากลำดับควรมีการนำหน้าและต่อท้าย เพิ่ม ไม่จำเป็นต้องมีบรรทัดเอาต์พุตเพิ่มเติมใด ๆ

ตัวอย่าง:

อินพุต: 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

กฏท้าทาย:

• คุณสามารถสมมติว่า input-list เป็นรายการที่เรียงลำดับจากมากที่สุดไปหาน้อยที่สุดเท่านั้นที่มีจำนวนเต็มบวก ในความเป็นจริงจำนวนไบต์สามารถเพิ่มขึ้นได้เนื่องจากการแก้ไขข้อผิดพลาด แต่เพื่อความท้าทายนี้เราจึงทำเป็นว่ามันจะลงไปเท่านั้น
• คุณสามารถสมมติได้ว่ามีเพียงตัวเลขเดียวจากลำดับที่[4, 44, 444, 4444, ...]ปรากฏในรายการอินพุต (ถ้ามี)
• รูปแบบเอาต์พุตถูกพิมพ์ไปที่ STDOUT หรือส่งคืนเป็นสตริง (หรืออาร์เรย์อักขระ / รายการ / 2D-array หากเหมาะสม) ขึ้นบรรทัดใหม่ตามท้ายหลักสูตรเป็นตัวเลือก
• รูปแบบผลลัพธ์มีความเข้มงวด <s>...</s>เป็นข้อบังคับ;  ... เป็นข้อบังคับ; ", "(จุลภาคและพื้นที่) เป็นข้อบังคับ; และ\ncrossed out ... is still regular ... ;(เป็นสิ่งที่จำเป็น (ในบรรทัดแยก)
• คุณอาจใช้วันที่เข้าเป็นวัตถุวันที่; timestamps; จำนวนเต็มแบบหลวมสำหรับปีเดือนและวัน หมายเลขเดียวในรูปแบบyyyyMMdd; จำนวนเต็มตั้งแต่วันที่ 31 ธันวาคม 1899 (ซึ่งจะเป็น42832วันที่ 8 เมษายน 2017) หรือรูปแบบอินพุตที่เหมาะสมอื่น ๆ วันที่ที่คำแถลงไม่ใช่ส่วนสำคัญของการท้าทายนี้
• รายการจำนวนเต็มอินพุตยังสามารถเป็นรายการสตริงได้หากคุณต้องการ
• คุณไม่จำเป็นต้องเพิ่ม<sup>...</sup>แท็กในcrossed out ... is still regular ... ;(บรรทัดตามปกติโดยใช้คำตอบ meme จริง
• คุณสามารถสมมติว่ารายการอินพุตจะไม่นับจำนวนไบต์นอก[1, 50000]ช่วง (ดังนั้นคุณจะมีเพียงห้าข้อเท่านั้น{4, 44, 444, 4444, 44444}ที่ต้องกังวล)

กฎทั่วไป:

• นี่คือcode-golfดังนั้นคำตอบที่สั้นที่สุดในจำนวนไบต์ชนะ
  อย่าปล่อยให้ภาษาที่ใช้รหัสกอล์ฟกีดกันคุณจากการโพสต์คำตอบด้วยภาษาที่ไม่ codegolfing พยายามหาคำตอบสั้น ๆ ที่เป็นไปได้สำหรับภาษาโปรแกรม 'ใด ๆ '
• กฎมาตรฐานจะใช้สำหรับคำตอบของคุณดังนั้นคุณจึงได้รับอนุญาตให้ใช้ 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

เยลลี่ ,  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

Python 2 , 208 204  203 201 197 ไบต์

รับอินพุตเป็นรายการของสตริงและ int ของ yyyymmDD

def f(l,d):
 A=a=d>20170407;r=[]
 for n in l[:-1]:x=set(n)=={'4'};S='&nbsp;'*x*a;r+=['<s>'+S+n+S+'</s>'];A=x*n or A
 print', '.join(r+l[-1:])+'\ncrossed out %s is still regular %s ;('%(A,A)*(a*A<A)

ลองออนไลน์!

Excel VBA ขนาด 217 ไบต์

ฟังก์ชันหน้าต่าง VBE ทันทีที่รับอาร์เรย์อินพุตจากช่วง[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 &" ;(","");

Ungolfed และแสดงความคิดเห็น

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," ","")          ''  If after 7 Aug 2017, and All 4s, let `s` be " "
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

-1 ไบต์สำหรับการเปรียบเทียบกับ42832(ค่า int สำหรับ07 Apr 2017) ขอบคุณ@Neil

-2 ไบต์สำหรับการลบออก1,จากInStrคำสั่งขอบคุณ@ SeaDoggie01

เรติน่า 0.8.2 , 130 ไบต์

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

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

ลองออนไลน์! ลิงค์มีกรณีทดสอบ ใช้การประทับวันที่ของ Excel (วันตั้งแต่ 1899-12-31 แต่รวมถึง 1900-02-49) 141 ไบต์สำหรับเวอร์ชันที่มีวันที่ ISO:

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

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

ลองออนไลน์! ลิงค์มีกรณีทดสอบ คำอธิบาย:

$
;2017-04-08

ผนวกวันที่ตัดออกไปยังอินพุต

O`;.{10}

เรียงลำดับวันที่ หากวันที่กำหนดเป็นวันที่หรือหลังจากวันที่ตัดออกวันที่แรกจะเป็นวันที่ตัดออก

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

ในกรณีนั้นให้ตัดคำ4+ใน (ใช้สองขั้นตอนในขณะที่บันทึกเป็นไบต์)

.{22}$

ลบวันที่ที่พวกเขาทำงานของพวกเขา

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

หากไม่มีการเว้นว่างไว้4+ให้ผนวก meme

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

ขีดฆ่าจำนวนไบต์ที่ล้าสมัยทั้งหมด

ทับทิม, 208 184 180 ไบต์

ติ้วทดสอบ

ขอบคุณ @KevinCruijssen สำหรับการบันทึก 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มันเป็นฟังก์ชั่นแลมบ์ดาที่จะนำรายชื่อของตัวเลขและจำนวนเต็มเป็นวันที่ในรูปแบบของ

JavaScript, 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;<`)

f=
(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;<`)


const date = s => Date.parse(s) / 1000
for(const output of [
	f([50, 48, 44, 41], date('January 1, 2017')),
	f([500, 475, 444, 301, 248], date('June 2, 2018')),
	f([8, 6, 4], date('December 5, 2017')),
	f([8, 6, 4, 3, 2], date('September 15, 2015')),
	f([119, 99, 84, 82, 74, 60, 51, 44, 36, 34], date('February 29, 2016')),
	f([404, 123, 44], date('March 4, 2016')),
	f([4, 3], date('April 8, 2017')),
	f([44], date('October 22, 2017')),
	f([50000, 44444, 1500], date('August 1, 2018')),
	f([50, 38, 23], date('September 8, 2001')),
]) console.log(output)

Haskell , 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 d42832 เป็นวันที่เปลี่ยนแปลง

JavaScript (Node.js) , 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)