Hướng dẫn "cho" rất riêng của bạn

Giả sử bạn có đầu vào sau: a, b, c, d

Đầu vào có thể ở một dòng sử dụng bất kỳ định dạng "a / b / c / d" hoặc "a, b, c, d", v.v.

Bạn cũng có thể có 4 đầu vào.

Bạn phải mã hóa các hành vi sau (mã giả ở đây):

var i = <a>
while (i <b> <c>)
    print i
    i = i + <d>
    print "\n"

Dưới đây là một số trường hợp thử nghiệm:

input : 1,<,10,1
output :
1
2
3
4
5
6
7
8
9

Một lần nữa :

input : 20,>,10,1
output :
20
21
22
23
24
25
26
27
...
infinite loop / program crashes

• alà một số nguyên , giá trị ban đầu của i.

• blà một chuỗi hoặc một char , nó không thể là một cái gì đó khác, bộ so sánh được sử dụng trong điều kiện kết thúc của forvòng lặp.

  bcó thể và phải là một trong các chuỗi sau:

  - ">"
  - "<"
  

• clà một số nguyên , số được sử dụng trong điều kiện kết thúc của for vòng lặp.

• dlà một số nguyên được thêm vào i ở mỗi vòng lặp.

Đây là môn đánh gôn, câu trả lời ngắn nhất sẽ thắng!

JavaScript (ES6),  44  43 56 byte

Đã lưu 1 byte nhờ vào ETHproductions
Chỉnh sửa: đã sửa để tuân thủ các yêu cầu đầu ra

(a,b,c,d)=>{for(s='';eval(a+b+c);a+=d)s+=a+`
`;alert(s)}

Kiểm tra

let f =

(a,b,c,d)=>{for(s='';eval(a+b+c);a+=d)s+=a+`
`;alert(s)}

f(1,'<',7,2)

Javascript (ES6), 47 42 48 byte

Muốn tạo phiên bản cho nhưng ai đó đã nhanh hơn, vì vậy đây là phiên bản đệ quy.

(b,c,d)=>F=a=>eval(a+b+c)&&console.log(a)|F(a+d)

Bạn cần thêm f=trước và gọi nó như thế nào f(b,c,d)(a).

Rất cám ơn Arnauld cho golf tuyệt vời.

alertđổi thành console.logvì đặc điểm kỹ thuật đầu ra

Bash tinh khiết, 35

Tôi giả sử OK chỉ cần cắm các tham số vào vòng lặp tiêu chuẩn:

for((i=$1;i$2$3;i+=$4));{ echo $i;}

Hãy thử trực tuyến .

Thạch , 12 byte

Ṅ+⁶µ⁴;⁵¹vµ¿t

Hãy thử trực tuyến!

Jelly có rất nhiều cách để lặp đi lặp lại, tạo phạm vi, v.v. Tuy nhiên, việc phản ánh chính xác hành vi của C ++ khá khó khăn, do các trường hợp đặc biệt như gia tăng là 0, vòng lặp kết thúc trước khi nó bắt đầu (do sự bất bình đẳng bị ngược ) và gia số đi sai hướng (có nghĩa là điều kiện thoát của vòng lặp không thể được đáp ứng một cách tự nhiên). Như vậy, giải pháp này về cơ bản là một bản dịch trực tiếp của C ++, mặc dù điều đó làm cho nó ở mức độ thấp hơn so với chương trình Jelly thông thường. May mắn thay, C ++ có hành vi không xác định đối với tràn số nguyên đã ký (câu hỏi sử dụng int), có nghĩa là một chương trình có thể làm bất cứ điều gì trong trường hợp đó, và do đó không cần phải cố gắng bắt chước hành vi tràn.

Giải trình

Ṅ+⁶µ⁴;⁵¹vµ¿t
   µ     µ¿   While loop; while ((⁴;⁵¹v) counter) do (counter = (Ṅ+⁶)counter).
    ⁴;⁵       Second input (b) appended to third input (c), e.g. "<10"
        v     Evaluate, e.g. if the counter is 5, "<10" of the counter is true
       ¹      No-op, resolves a parser ambiguity
Ṅ             Output the counter, plus a newline
 +⁶           Add the fourth input (d)
           t  Crashes the program (because the counter is not a list)

Phá vỡ chương trình là cách chặt chẽ nhất để tắt đầu ra ngầm của Jelly (nếu không, nó sẽ xuất giá trị cuối cùng của bộ đếm); nó tạo ra một loạt các lỗi sai trên stderr, nhưng chúng ta thường coi điều đó là được phép.

Ngẫu nhiên, bộ đếm vòng lặp được khởi tạo với giá trị hiện tại trước khi vòng lặp bắt đầu. Khi vòng lặp xuất hiện khi bắt đầu chương trình, đó sẽ là đầu vào đầu tiên.

Python 2 , 50 byte

a,b,c,d=input()
while eval(`a`+b+`c`):print a;a+=d

Hãy thử trực tuyến!

R, 63 byte

function(a,b,c,d)while(do.call(b,list(a,c))){cat(a,"\n");a=a+d}

Java, 58 byte

(a,b,c,d)->{for(;b>61?a>c:a<c;a+=d)System.out.println(a);}

05AB1E , 22 20 byte

[D²`'>Q"‹›"è.V_#D,³+

Hãy thử trực tuyến!

Giải trình

[                       # start loop
 D                      # copy top of stack (current value of a)
  ²`                    # push b,c to stack
    '>Q                 # compare b to ">" for equality
       "‹›"             # push this string
           è            # index into the string with this result of the equality check
            .V          # execute this command comparing a with c
              _#        # if the condition is false, exit loop (and program)
                D,      # print a copy of the top of the stack (current value of a)
                  ³+    # increment top of stack (a) by d

SmileBASIC, 53 byte

INPUT A,B$,C,D
S=ASC(B$)-61WHILE S*A>S*C?A
A=A+D
WEND

Giải trình:

INPUT A,B$,C,D
IF B$=="<" THEN S=-1 ELSE S=1 'get comparison direction
I=A
WHILE S*I>S*C 'loop while I is less than/greater than the end
 PRINT I
 INC I,D
WEND

Điều này sử dụng thực tế X<Ylà giống như-X>-Y

Xếp chồng , 34 byte

@d@c@b[show d+][:c b tofunc!]while

Hãy thử trực tuyến! (Bao gồm kiểm tra.) Đây là một chức năng hy vọng ngăn xếp trông giống như:

a b c d

Ví dụ:

1 '<' 10 2
@d@c@b[show d+][:c b tofunc!]while

Giải trình

@d@c@b[show d+][:c b tofunc!]while
@d@c@b                               assign variables
               [............]while   while:
                :c                   duplicate "i" and push c
                   b tofunc!         convert b to a function and execute it
      [.......]                      do:
       show                          output "i" without popping
            d+                       and add the step to it

C ++, 80

Rất tiếc, đây C++không phải là C. Có một chút bối rối bởi câu hỏi.

void f(int a,char b,int c,int d){for(;b==62?a>c:a<c;a+=d)cout<<a<<endl;}

C, 52 51 byte

-1 byte nhờ H Walters

f(a,b,c,d){for(;b&2?a>c:a<c;a+=d)printf("%d\n",a);}

Hãy thử trực tuyến!

Python 3, 52 byte

def f(a,b,c,d):
 while[a>c,a<c][b<'>']:print(a);a+=d

thay thế

Pip , 14 byte

W Va.b.ca:d+Pa

Có bốn đối số dòng lệnh. Hỗ trợ số âm và dấu phẩy động và toán tử so sánh < > = <= >= !=. Hãy thử trực tuyến!

                a,b,c,d are cmdline args
W               While loop with the following condition:
  Va.b.c          Concatenate a,b,c and eval
            Pa  Print a with newline (expression also returns value of a)
        a:d+    Add d to that and assign back to a

Thạch , 8 byte

ḢṄ+⁹;µV¿

Đây là một liên kết dyadic lấy a, b, c làm đối số bên trái của nó và d là bên phải của nó. Đầu ra có thể là vô hạn và đi đến STDOUT.

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

ḢṄ+⁹;µV¿  Dyadic link.
          Left argument:  a,b,c (integer, character, integer)
          Right argument: d     (integer)

       ¿  While...
      V     the eval atom applied to a,b,c returns 1:
     µ       Combine the links to the left into a chain and apply it to a,b,c.
Ḣ              Head; pop and yield a from a,b,c.
 Ṅ             Print a, followed by a linefeed.
  +⁹           Add a and the right argument (d) of the dyadic link.
    ;          Concatenate the result and the popped argument of the chain,
               yielding a+d,b,c.

Python 2 , 45 byte

exec"i=%d\nwhile i%c%d:print i;i+=%d"%input()

Hãy thử trực tuyến!

Một thực hiện rất đúng theo nghĩa đen của spec. Lấy mẫu mã, thay thế trong các đầu vào thông qua định dạng chuỗi và thực thi nó.

Đồng bằng TeX, 88 byte

\newcount\i\def\for#1 #2 #3 #4 {\i#1\loop\the\i\endgraf\advance\i#4\ifnum\i#2#3\repeat} 

Lệnh \forcung cấp chức năng được yêu cầu. Lưu cái này for.texvà sau đó chạy nó và nhập các giá trị biến trong dòng lệnh: pdftex '\input for \for 1 < 5 1 \bye'Các giá trị biến phải được phân tách bằng dấu cách.

Python 3, 61 byte

Lót:

e=input;exec(f'i={e()}\nwhile i{e()}{e()}:print(i);i+={e()}')

Haskell , 66 64 byte

f a b c d|last$(a<c):[a>c|b>"<"]=print a>>f(a+d)b c d|1<3=pure()

Hãy thử trực tuyến! Sử dụng:

Prelude> f 0 "<" 9 2
0
2
4
6
8

Bash (+ Công cụ Unix), 29 byte

Chơi gôn

bc<<<"for(x=$1;x$2$3;x+=$4)x"

Kiểm tra

./forloop 1 '<' 10 1
1
2
3
4
5
6
7
8
9

Ruby, 43 41 byte

->a,*i,d{a=d+p(a)while eval"%s"*3%[a,*i]}

Nếu bcó thể được lấy dưới dạng biểu tượng Ruby thay vì chuỗi, bạn nhận được 38 byte :

->a,b,c,d{a=d+p(a)while[a,c].reduce b}

Hãy thử một trong hai giải pháp trực tuyến!

Lisp thường gặp 82 80 79 73 64 byte

(defmacro f(a b c d)`(do((i,a(+ i,d)))((not(,b i,c)))(print i)))

Kiểm tra

(f 1 < 10 1)

1 
2 
3 
4 
5 
6 
7 
8 
9 
NIL
CL-USER> 

-9 byte nhờ vào PrzemysławP.

PHP, 69 65 byte

for(list(,$i,$b,$c,$d)=$argv);$b<"="?$i<$c:$i>$c;$i+=$d)echo"$i
";

Chạy với '-r'; cung cấp các đối số dòng lệnh làm đầu vào.

Đối với chỉ một byte hơn hơn 4 byte, tôi có thể tận dụng mọi điều hành:

for(list(,$i,$b,$c,$d)=$argv;eval("return $i$b$c;");$i+=$d)echo"$i
";

Yeah, ác eval. Bạn có biết rằng nó có thể trả lại một cái gì đó?

Việc phá hủy tốc ký [,$i,$b,$c,$d]=$argv;sẽ tiết kiệm thêm 4 byte;
nhưng PHP 7.1 hoãn lại thách thức.

Perl 6 , 44 byte

{.say for $^a,*+$^d...^*cmp$^c!= $^b.ord-61}

Làm thế nào nó hoạt động

{                                          }  # A lambda.
          $^a                                 # Argument a.
             ,*+$^d                           # Iteratively add d,
                   ...^                       # until (but not including the endpoint)
                       *cmp$^c                # the current value compared to c
                                              # (less=-1, same=0, more=1)
                              != $^b.ord-61.  # isn't the codepoint of the b minus 61.
 .say for                                     # Print each number followed by a newline.

Nếu bạn có thể trả về một chuỗi số (có khả năng vô hạn) dưới dạng giá trị của loại Seq, thay vì in các số thành thiết bị xuất chuẩn, .say forphần đó có thể bị xóa, đưa nó xuống 35 byte.

Clojure, 66 63 byte

#(when((if(= %2"<")< >)% %3)(println %)(recur(+ % %4)%2 %3 %4))

-3 byte bằng cách bao thanh toán ra loop. Tôi đang "lạm dụng" tham số init để hoạt động như bộ tích lũy đang chạy.

Giải pháp đệ quy (với TCO). Xem ý kiến ​​trong mã pregolfed. Tôi đã thử một giải pháp đệ quy không TCO và kết quả là 67 byte.

Tôi rất muốn thấy nhịp này trong Clojure! Tôi nghĩ rằng đây là nhỏ nhất tôi có thể nhận được nó.

(defn my-for [init-num com-str com-num inc-num]
  (let [op (if (= com-str "<") < >)] ; Figure out which operator to use
    (when (op init-num com-num) ; When the condition is true, print and recur
      (println init-num)
      (recur (+ init-num inc-num) com-str com-num inc-num))))
    ; Else, terminate (implicit) 

Groovy, 51 byte

{a,b,c,d->while(Eval.me("$a$b$c")){println a;a+=d}}

Đây là một đóng cửa không tên. Hãy thử trực tuyến!

Thận trọng - Nếu bạn muốn kiểm tra điều này với groovy console, hãy đảm bảo bạn tiêu diệt toàn bộ quá trình khi đầu vào gây ra một vòng lặp vô hạn. Tôi nhận thấy điều này sau khi nó tiêu thụ ~ 5 hợp đồng RAM.

QBIC , 51 40 byte

:;::{?a┘a=a+c~A=@<`|~a>=b|_X]\~a<=b|_X

Và ba phút sau khi đăng tôi nhận ra rằng tôi có thể đơn giản hóa logic terminator ...

:;::      Consecutively read a, A$, b and c from the command line
{?a┘      Start an infinite loop; print a, add a newline to the source
a=a+c     increment a
~A=@<`|   If we are in LESS THAN mode
  ~a>=b   and IF we are no longer LESS
    |_X]  THEN QUIT, end if.
  \       ELSE (we're in GREATER THAN mode)
    ~a<=b IF we are no longer GREATER
    |_X   THEN QUIT
          The last IF and the loop are auto-closed

Hàng loạt, 94 byte

@set i=%1
@set o=gtr
@if "%~2"=="<" set o=lss
:g
@if %i% %o% %3 echo %i%&set/ai+=%4&goto g

Nếu không có hành vi tham số thứ hai, nó có thể được thực hiện trong 53 byte:

@for /l %%i in (%1,%4,%n%)do @if not %%i==%3 echo %%i

Điều này chỉ đơn giản là không làm gì nếu bước có dấu hiệu sai. Thử nghiệm thêm là do forvòng lặp của Batch cho phép biến vòng lặp bằng giá trị cuối.

Clojure, 66 byte

#(loop[i %](if(({">">"<"<}%2)i %3)(do(println i)(recur(+ i %4)))))

Đây có thể là 55 byte <và >là các hàm trong Clojure:

(def f #(loop[i %](if(%2 i %3)(do(println i)(recur(+ i %4))))))
(f 1 < 10 1)

TI-Basic, 41 34 byte

Prompt A,Str2,Str3,D
While expr("A"+Str2+Str3
Disp A
A+D->A
End