Instruksi "untuk" Anda sendiri

Asumsikan Anda memiliki input berikut: a, b, c, d

Input bisa dalam satu baris menggunakan format apa saja "a / b / c / d" atau "a, b, c, d" dll.

Anda juga dapat memiliki 4 input.

Anda harus memberi kode perilaku berikut (pseudo-code di sini):

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

Berikut ini beberapa kasus tes:

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

Satu lagi :

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

• aadalah bilangan bulat , nilai awal dari i.

• badalah string atau char , itu tidak bisa menjadi sesuatu yang lain, pembanding yang digunakan dalam kondisi akhir dari forloop.

  bdapat dan harus menjadi salah satu dari string berikut:

  - ">"
  - "<"
  

• cadalah bilangan bulat , angka yang digunakan dalam kondisi akhir for loop.

• dadalah bilangan bulat yang ditambahkan ke i di setiap loop.

Ini adalah kode-golf, jawaban terpendek menang!

JavaScript (ES6),  44  43 56 byte

Disimpan 1 byte berkat Edit Produk ETH
: diperbaiki untuk memenuhi persyaratan output

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

Uji

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 Bytes

Ingin membuat versi untuk tetapi seseorang lebih cepat, jadi inilah versi rekursif.

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

Anda perlu menambahkan f=sebelumnya dan menyebutnya seperti f(b,c,d)(a).

Banyak terima kasih kepada Arnauld untuk golf yang luar biasa ini.

alertdiubah menjadi console.logkarena spesifikasi keluaran

Bash murni, 35

Saya berasumsi OK untuk menyambungkan parameter ke dalam standar untuk loop:

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

Cobalah online .

Jelly , 12 byte

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

Cobalah online!

Jelly memiliki banyak cara untuk melakukan iterasi, membuat rentang, dan lain-lain. Namun, perilaku mirroring C ++ sebenarnya cukup sulit, karena kasus-kasus khusus seperti kenaikan menjadi 0, loop berakhir sebelum mulai (karena ketidaksetaraan menjadi mundur ), dan kenaikan terjadi ke arah yang salah (dengan demikian berarti kondisi keluar dari loop tidak dapat dipenuhi secara alami). Dengan demikian, solusi ini pada dasarnya adalah terjemahan langsung dari C ++, meskipun itu membuatnya lebih rendah daripada program Jelly biasanya. Untungnya, C ++ memiliki perilaku yang tidak jelas pada ditandatangani integer overflow (pertanyaan menggunakan int), yang berarti bahwa suatu program dapat melakukan apa saja dalam kasus itu, dan dengan demikian tidak perlu mencoba untuk meniru perilaku overflow.

Penjelasan

Ṅ+⁶µ⁴;⁵¹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)

Menghancurkan program adalah cara tersest untuk mematikan output implisit Jelly (jika tidak, itu akan menampilkan nilai akhir dari penghitung); itu menghasilkan banyak galat kesalahan pada stderr, tetapi kami biasanya menganggap itu diizinkan.

Secara kebetulan, penghitung loop diinisialisasi dengan nilai saat ini sebelum loop dimulai. Ketika loop muncul di awal program, itu akan menjadi input pertama.

Python 2 , 50 byte

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

Cobalah online!

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,³+

Cobalah online!

Penjelasan

[                       # 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

Penjelasan:

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

Ini menggunakan fakta yang X<Ysama dengan-X>-Y

Ditumpuk , 34 byte

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

Cobalah online! (Termasuk pengujian.) Ini adalah fungsi yang mengharapkan tumpukan terlihat seperti:

a b c d

Sebagai contoh:

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

Penjelasan

@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

Aduh, ini C++bukan C. Agak bingung dengan pertanyaan itu.

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 terima kasih kepada H Walters

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

Cobalah online!

Python 3, 52 byte

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

repl.it

Pip , 14 byte

W Va.b.ca:d+Pa

Membawa empat argumen baris perintah. Mendukung angka negatif & floating point dan operator pembanding < > = <= >= !=. Cobalah online!

                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

Jelly , 8 byte

ḢṄ+⁹;µV¿

Ini adalah tautan diadik yang menggunakan a, b, c sebagai argumen kirinya dan d sebagai yang kanan. Output mungkin tidak terbatas dan menuju ke STDOUT.

Cobalah online!

Bagaimana itu bekerja

ḢṄ+⁹;µ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()

Cobalah online!

Implementasi spec yang sangat literal. Mengambil templat kode, menggantikan input melalui pemformatan string, dan menjalankannya.

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

Perintah \formenyediakan fungsi yang diminta. Simpan ini sebagai for.texdan kemudian jalankan dan masukkan nilai variabel di baris perintah: pdftex '\input for \for 1 < 5 1 \bye'Nilai variabel harus dipisahkan oleh spasi.

Python 3, 61 byte

Satu liner:

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()

Cobalah online! Pemakaian:

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

Bash (+ Unix Tools), 29 byte

Golf

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

Uji

./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]}

Jika bdapat diambil sebagai simbol Ruby alih-alih string, Anda mendapatkan 38 byte :

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

Coba salah satu solusi online!

Gangguan umum, 82 80 79 73 64 byte

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

Uji

(f 1 < 10 1)

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

-9 byte terima kasih kepada PrzemysławP.

PHP, 69 65 byte

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

Jalankan dengan '-r'; memberikan argumen baris perintah sebagai input.

Untuk satu byte lagi 4 byte lebih, saya dapat mengambil setiap operator:

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

Ya, eval jahat. Tahukah Anda bahwa itu dapat mengembalikan sesuatu?

Destrukturisasi singkatan [,$i,$b,$c,$d]=$argv;akan menghemat 4 byte lebih;
tetapi PHP 7.1 memposting tantangannya.

Perl 6 , 44 byte

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

Bagaimana itu bekerja

{                                          }  # 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.

Jika boleh mengembalikan urutan angka (yang berpotensi tak terbatas) sebagai nilai tipe Seq, alih-alih mencetak angka ke stdout, .say forbagian tersebut dapat dihapus, sehingga menjadi 35 byte.

Clojure, 66 63 byte

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

-3 byte dengan memfaktorkan keluar loop. Saya "menyalahgunakan" parameter init untuk bertindak sebagai akumulator yang berjalan.

Solusi rekursif (dengan TCO). Lihat komentar dalam kode pregolfed. Saya mencoba solusi rekursif non-TCO, dan akhirnya menjadi 67 byte.

Saya ingin melihat beat ini di Clojure! Saya pikir ini adalah yang terkecil yang bisa saya dapatkan.

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

Ini adalah penutupan tanpa nama. Cobalah secara Online!

Perhatian - Jika Anda ingin menguji ini dengan groovy console, pastikan Anda membunuh seluruh proses ketika input menyebabkan loop tak terbatas. Saya perhatikan ini setelah mengkonsumsi ~ 5 gigs RAM.

QBIC , 51 40 byte

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

Dan tiga menit setelah posting saya menyadari saya bisa menyederhanakan logika 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

Batch, 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

Jika bukan karena perilaku parameter kedua, itu bisa dilakukan dalam 53 byte:

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

Ini tidak melakukan apa-apa jika langkah memiliki tanda yang salah. Tes tambahan adalah karena Batch's forloop memungkinkan variabel loop sama dengan nilai akhir.

Clojure, 66 byte

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

Ini bisa jadi 55 byte <dan >berfungsi di 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