แรงบันดาลใจจากคู่มือเก่า ...

ความท้าทาย

ฉันกำหนด^THต่อท้ายเวกเตอร์ของขเป็นรายการบูลของความยาวกับขท้ายค่า truthy

เขียนโปรแกรมหรือฟังก์ชั่นที่ได้รับและขโดยวิธีใด ๆ กลับ^THต่อท้ายเวกเตอร์ของขโดยวิธีใด ๆ

ตอนนี้อาจดูเหมือนเล็กน้อย แต่นี่คือการจับ: คะแนนของคุณคือการนับไบต์บวกปีแรกของการแก้ปัญหาของคุณจะได้ทำงาน

กฎระเบียบ

อาจใช้กฎมาตรฐานทั้งหมดยกเว้นภาษาและเวอร์ชันภาษาที่เผยแพร่หลังจากการท้าทายนี้

เอาต์พุตโดยใช้การแทนค่าบูลีนที่ภาษาของคุณใช้เช่น1/ 0, True/ False, TRUE/ FALSE, "True"/ "False", ฯลฯ

การส่งออกโดยใช้สิ่งที่เป็นตัวแทนของรายการที่คุณใช้ภาษาเช่น0 0 1, [False,False,True], (FALSE;FALSE;TRUE), {"False","False","True"}ฯลฯ

คุณอาจจะคิดว่า≥ ขเป็นจริงเสมอและที่พวกเขามีชนิดข้อมูลที่เหมาะสม

กรณีทดสอบ

ได้รับ= 7 และข = 3 ผลตอบแทน0 0 0 0 1 1 1

ได้รับ= 4 และข = 4 ผลตอบแทน[True,True,True,True]

ได้รับ= 2 และข = 0 ผลตอบแทน(FALSE;FALSE)

ได้รับ= 0 และB = 0 ผลตอบแทน{}

ตัวอย่างการแก้ปัญหาและการให้คะแนน

ฉันอาจต้องการส่งโซลูชัน{⌽⍺↑⍵⍴1}โดยใช้ Dyalog APL นั่นคือผลคูณของ 8 นี่คือฟังก์ชั่นแบบไดนามิกซึ่งทำงานได้จากเวอร์ชัน 8.1 ของ Dyalog APL ซึ่งเปิดตัวในปี 2541 ดังนั้นคะแนนรวมของฉันคือ 2549 คำตอบที่ส่งมาของฉันควรมีลักษณะดังนี้:

# Dyalog APL 8.1, 1998 + 8 = 2006
    {⌽⍺↑⍵⍴1}

Optional explanation...
Recommended: Link to documentation showing when the features you used were released.

คะแนนต่ำสุดชนะ!

APL \ 360, 1968 + 3 ไบต์ = 1971

⎕⍵⎕

builtin จากtutorial @NBZ เชื่อมโยงกับ ฉันไม่รู้ว่าทำไม @NBZ บอกว่าจะให้คะแนน 1970 เพราะ APL \ 360 ไม่ได้ใช้จนถึงปี 1968 และ APL ก่อนหน้าเช่น APL \ 1130 ไม่มีฟังก์ชันเวกเตอร์ต่อท้าย (ดูหน้า 208 จากที่นี่ )

Forth, 1970 + 38 = 2008

:s tuck +do 0 . loop 0 +do -1 . loop ;

การใช้งาน: 7 3 sพิมพ์ "0 0 0 0 -1 -1 -1"

APL, 1968 + 5 = 1973

ลงไปที่ 5 ตัวอักษร:

⌽⎕≥⍳⎕

รุ่นเก่ากว่า:

⌽⎕↑⎕⍴1

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

http://www.softwarepreservation.org/projects/apl/Books/APL360ReferenceManual

SAS, 1966 + 45 = 2011

data;a=;b=;do i=1to a;c=a-i<b;put c@;end;run; 

ถึงเวลาที่ SAS จะเปล่งประกาย!

SAS ไม่ได้เผยแพร่ครั้งแรกจนถึงปี 1972 แต่ขั้นตอนข้อมูลนี้ใช้เพียงคุณสมบัติขั้นพื้นฐานที่ฉันมั่นใจค่อนข้างมากว่าจะสามารถใช้งานได้แม้กระทั่งในเวอร์ชันพรีรีลีสที่เก่าที่สุดตั้งแต่ปีพ. ศ. 2509 เป็นต้นไปดังนั้นฉันเชื่อว่า อินพุตไปหลังจากa=และb=และเอาต์พุตถูกพิมพ์ไปที่บันทึก

ฉันจะประหลาดใจถ้าใครยังมีIBM System / 360กับรุ่นที่เหมาะสมของ SAS เพื่อตรวจสอบสิ่งนี้จริง ๆ !

Mouse-1979 , 1979 + 19 = 1998

??&TUCK (0.a)0(1-.)

แปลของ: Forth

สเป็คนั้นเป็นความลับจริงๆสำหรับฉัน แต่ฉันคิดว่ามันทำในสิ่งที่ถูกต้อง

TI-Basic, 1990 + 21 = 2011

เครื่องคิดเลข TI ตัวแรกที่โปรแกรมนี้ใช้งานคือ TI-81 ซึ่งเปิดตัวในปี 1990

Prompt A,B:"{}
seq(I>A-B,I,1,A

แก้ไข:สังเกตเห็นว่าฉันต้องสนับสนุนรายการว่างเปล่า ... เพิ่มรหัส 4 ไบต์

กรณีทดสอบ

A=?7
B=?3
{0 0 0 0 1 1 1}

A=?4
B=?4
{1 1 1 1}

A=?2
B=?0
{0 0}

A=?0
B=?0
{}   * throws an error but still returns successfully

Mathematica 1.0, 1988 +22 bytes = 2010

Array[#>m&/.m->#-#2,#]&

ฉันไม่แน่ใจว่ามันใช้งานได้หรือไม่เพียงแค่อ่านเอกสารในวันที่ 10.3 และมองหาสิ่งต่าง ๆ ที่กล่าวถึงแนะนำในปี 1988 (1.0)

68k TI-Basic, 1995 + 25 = 2020

เครื่องคิดเลข TI ตัวแรกที่โปรแกรมนี้ใช้งานคือ TI-92 ซึ่งเปิดตัวในปี 1995

define f(a,b)=seq(x>a-b,x,1,a)

ซึ่งแตกต่างจากชุด TI-83, 68k TI-Basic รองรับรายการที่ว่างเปล่า

Python 1.0, 1994 + 26 = 2020

บันทึก 2 ไบต์ด้วย DSM

แลมบ์ดาได้รับการแนะนำให้รู้จักกับรุ่นใหญ่ครั้งแรก 1.0

lambda a,b:[0]*(a-b)+[1]*b

MATL , 2015 + 1 + 4 = 2020

:P<~

ใช้งานได้ตั้งแต่รีลีส 6.0.0ของภาษา (ใช้การป้อนข้อมูลโดยนัยซึ่งถูกนำมาใช้ในรีลีสนั้น) ลงวันที่ 31 ธันวาคม 2015

ฉันได้เพิ่ม 1คะแนนตามความคิดเห็น @drolex ในสถานที่ที่อาจแตกต่างกัน

ลองออนไลน์!

คำอธิบาย

:    % take first input implicitly. Generate inclusive range from 1 to that
P    % flip that array
<~   % take second input implicitly. True for elements of flipped array that
     % exceed second number. Display implicitly

J, 1990 + 8 = 1998

|.a{.b#1

โอ๊ะ กำลังค้นคว้าคำตอบนี้และมีคนมาที่ APL ก่อนที่ฉันจะสามารถเข้าใจภาษาได้ นี่คือโซลูชัน J ของฉันแทน

อารัมภบท, 1972 + 57 = 2029

a(0,_,[]).
a(A,B,[H|L]):-Z is A-1,a(Z,B,L),(Z<B,H=1;H=0).

การใช้งาน: a(7,3,L).จะรวมเข้าLกับ[0,0,0,0,1,1,1]กับ

ฉันไม่ค่อยแน่ใจว่าเมื่อใดที่isมีการใช้งานภาษาและฉันสงสัยว่าคุณสามารถหาวันที่แน่นอนได้จริง มันเป็นพื้นฐานในตัว แต่ฉันคิดว่ามันมีอยู่แล้วเมื่อภาษาปรากฏตัวครั้งแรกในปี 1972 1972

ไม่ใช่ว่ามันจะสำคัญ แต่ฉันก็ยังห่างไกลจากการชนะด้วยคำตอบนี้

SMP , 1983 + 28 bytes = 2011

Map[S[$1>x,x->$1-$2],Ar[$1]]

ฉันคิดว่าฉันมีสิทธิ์ ... S: 2.10, หน้า 48 Ar: 7.1, หน้า 102 Map: 7.2, หน้า 106 $1 : 7.1, หน้า 104

และถ้าคุณคุ้นเคยกับ Mathematica ไม่มีArไม่ทำงานเช่นว่า มากขึ้นเช่น+RangeSelect

Vim, 1991 +21 = 2012

"adwj<c-x>"bdw@ai0<esc>v@bhr1

ข้อมูลที่ป้อนมีลักษณะดังนี้:

7
3

และผลลัพธ์จะเป็นดังนี้:

0000111

คำอธิบาย:

"adw                            'Delete a word into register a
    j<c-x>                      'Go down a line, and decrement the next number to occur
          "bdw                  'Delete a word into register b
              @ai0<esc>         'Insert a '0' "a" times
                       v        'Enter visual mode
                        @bh     'Move "b" characters left
                           r1   'Replace the whole selection with the character '1'

B , 1971 + 54 = 2025

s(l,t){while(t<l--)printn(0,8);while(t--)printn(1,8);}

ดู " การอ้างอิงของผู้ใช้ถึง B " สำหรับคู่มือสำหรับสารตั้งต้น C ที่ไม่มีตัวพิมพ์นี้

Pyth 2015 + 9 4 = 2024 2019

ขอบคุณ @FryAmTheEggman สำหรับความช่วยเหลือของเขา!

gRQE

ลองที่นี่!

คำอธิบาย

gRQE # Q = จำนวนของค่าความจริงต่อท้าย
        # E = ความยาวของเวกเตอร์
 RE # แผนที่ในช่วง (E)
g Q # d> = Q

> <> , 2009 +14 + 3 สำหรับ -v = 2026

b and a should be provided directly on the stack with -v, in reverse order.

The output isn't space separated as in the examples, but that does not seem to go against any stated rule. It uses 0 and 1 to represent false and true, as used by the language.

:?!;{:0(n1-}1-

It doesn't work with the current version since ? now pops its test value from the stack.

I'm not confident every feature was implemented from day 1, -v for example could have been provided later as a commodity. I'll try to make sure my answer is correct this weekend.

05AB1E, 2016 + 9 = 2025

This can definitely be golfed further, but here's a start :p. Code:

-0s×1¹×«S

Try it online! The input is given as b, a.

Also 9 bytes: 0×1I×0ñRS.

PowerShell v1, 2006 + 28 = 2034

param($a,$b),0*($a-$b)+,1*$b

Uses the comma operator to construct the array(s), which has been in PowerShell since the beginning.

Mathcad, 1998 + 42 = 2040

"bytes" are interpreted as number of distinct keyboard characters (eg, 'for' operator (including one programming line) is a single character ctl-shft-#, or a click on the Programming toolbar)).

The above byte count assumes that the a and b definitions don't count towards the total; add 4 bytes for definitions if this assumption is invalid.

The function version shown below adds 5 bytes for the definition and a further 3 bytes for each use (assuming the a and b values are directly typed in).

As my Mathcad solution should clearly be playing off the red tees and not the competition ones, I've added a table of solutions. Note that as Mathcad has no empty array, I've used an empty string ("") instead; I've used 0 to indicate where I haven't calculated the b>a pairs.

PHP, 1995 + 56 bytes = 2051

function s($a,$b){while($i++<$a)$v[]=$i>$a-$b;return$v;}

function s($a,$b) {
  while ($i++ < $a) $v[] = $i > $a - $b;
  return $v;
}

Javascript ES6, 2015 + 46 = 2061

Returns array of 0 and 1

(a,b)=>Array(a-b).fill(0).concat(Array(b).fill(1))

Javascript ES6, 2015 + 50 = 2065

Returns a string of 0 and 1 chars

(a,b)=>Array(a-b+1).join(0)+Array(b+1).join(1)

Javascript, 1995 + 61 = 2056

Returns a string of 0 and 1 chars

function(a,b){return Array(a-b+1).join(0)+Array(b+1).join(1)}

k (kona), 1993 + 15 = 2008

((a-b)#0b),b#1b

Creates list of b True values, and concatenates it to a list of (a-b) False values.

R, 20 bytes + 1993 = 2013

function(a,b)1:a>a-b

Try it online!

Possibly this might work in S, which would drop the score to 2008, but I haven't been able to verify it.

SmileBASIC 3, 2014 + 25 = 2039

The first publicly available version of SmileBASIC 3 launched in Japan with the SmileBASIC app for Nintendo 3DS in November 2014.

Prints a string where 0 is false and 1 is true (as they are in the language itself.)

INPUT A,B?"0"*(A-B)+"1"*B