Twoja własna instrukcja „za”

Zakładając, że masz następujące dane wejściowe: a, b, c, d

Dane wejściowe mogą być w jednym wierszu przy użyciu dowolnego formatu „a / b / c / d” lub „a, b, c, d” itp.

Możesz także mieć 4 wejścia.

Musisz zakodować następujące zachowanie (tutaj pseudo-kod):

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

Oto kilka przypadków testowych:

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

Jeszcze jeden :

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

• ajest liczbą całkowitą , początkową wartością jest i.

• bJest to ciąg znaków lub char , to nie może być coś innego, komparator stosowany w kończącym warunku forpętli.

  bmoże i musi być jednym z następujących ciągów:

  - ">"
  - "<"
  

• cjest liczbą całkowitą , liczbą używaną w warunku końcowym for pętli.

• djest liczbą całkowitą dodawaną do i w każdej pętli.

To jest golf golfowy, wygrywa najkrótsza odpowiedź!

JavaScript (ES6),  44  43 56 bajtów

Zaoszczędzono 1 bajt dzięki ETHproductions
Edycja: naprawiono, aby spełnić wymagania wyjściowe

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

Test

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 bajtów

Chciałem zrobić wersję dla, ale ktoś był szybszy, więc oto wersja rekurencyjna.

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

Musisz dodać f=wcześniej i nazwać tak f(b,c,d)(a).

Ogromne podziękowania dla Arnaulda za wspaniały golf.

alertzmieniono na z console.logpowodu specyfikacji wyjściowej

Pure Bash, 35

Zakładam, że OK jest po prostu podłączyć parametry do standardowej pętli for:

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

Wypróbuj online .

Galaretka , 12 bajtów

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

Wypróbuj online!

Galaretka ma wiele sposobów na zwięzłe wykonywanie iteracji, tworzenie zakresów itp. Jednak dokładnie odwzorowanie zachowania C ++ jest dość trudne, ze względu na specjalne przypadki, takie jak przyrost równy 0, pętla kończy się przed rozpoczęciem (z powodu nierówności wstecznej ), a przyrost zmierza w złym kierunku (co oznacza, że ​​warunek wyjścia z pętli nie może być spełniony w sposób naturalny). Jako takie, to rozwiązanie jest w zasadzie bezpośrednim tłumaczeniem C ++, mimo że sprawia, że ​​jest to raczej poziom niższy niż zwykle program Jelly. Na szczęście C ++ zachowuje się niezdefiniowane w przypadku przepełnienia liczb całkowitych ze znakiem (używa pytania int), co oznacza, że ​​program może w tym przypadku zrobić wszystko, a zatem nie trzeba próbować naśladować tego zachowania.

Wyjaśnienie

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

Awaria programu to najkrótszy sposób na wyłączenie niejawnego wyjścia Jelly (w przeciwnym razie wyświetliłaby się końcowa wartość licznika); generuje kilka komunikatów o błędach na stderr, ale zwykle uważamy, że jest to dozwolone.

Nawiasem mówiąc, licznik pętli jest inicjowany bieżącą wartością przed rozpoczęciem pętli. Gdy pętla pojawi się na początku programu, będzie to pierwsze wejście.

Python 2 , 50 bajtów

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

Wypróbuj online!

R, 63 bajty

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

Java, 58 bajtów

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

05AB1E , 22 20 bajtów

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

Wypróbuj online!

Wyjaśnienie

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

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

Wyjaśnienie:

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

Wykorzystuje to fakt, który X<Yjest taki sam jak-X>-Y

Skumulowane , 34 bajty

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

Wypróbuj online! (Testy włączone.) Jest to funkcja, która oczekuje, że stos będzie wyglądał następująco:

a b c d

Na przykład:

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

Wyjaśnienie

@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

Ups, to C++nie jest C. Pytanie było nieco zdezorientowane.

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 bajtów

-1 bajt dzięki H Walters

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

Wypróbuj online!

Python 3, 52 bajty

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

repl.it

Pip , 14 bajtów

W Va.b.ca:d+Pa

Bierze cztery argumenty wiersza poleceń. Obsługuje liczby ujemne i zmiennoprzecinkowe oraz operatory porównania < > = <= >= !=. Wypróbuj 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

Galaretka , 8 bajtów

ḢṄ+⁹;µV¿

Jest to ogniwo diademowe, które przyjmuje lewy argument , b, c, a prawy jako argument d . Wyjście może być nieskończone i przechodzi do STDOUT.

Wypróbuj online!

Jak to działa

ḢṄ+⁹;µ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 bajtów

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

Wypróbuj online!

Bardzo dosłowne wdrożenie specyfikacji. Pobiera szablon kodu, zastępuje dane wejściowe poprzez formatowanie łańcucha i wykonuje go.

Zwykły TeX, 88 bajtów

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

Polecenie \forzapewnia żądaną funkcję. Zapisz to jako, for.texa następnie uruchom i wprowadź wartości zmiennych w wierszu poleceń: pdftex '\input for \for 1 < 5 1 \bye'Wartości zmiennych muszą być oddzielone spacjami.

Python 3, 61 bajtów

Jedna wkładka:

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

Haskell , 66 64 bajtów

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

Wypróbuj online! Stosowanie:

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

Bash (+ narzędzia Unix), 29 bajtów

Grał w golfa

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

Test

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

Rubin, 43 41 bajtów

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

Jeśli bmożna traktować jako symbol Ruby zamiast ciągu, otrzymujesz 38 bajtów :

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

Wypróbuj jedno z rozwiązań online!

Common Lisp, 82 80 79 73 64 bajty

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

Test

(f 1 < 10 1)

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

-9 bajtów dzięki PrzemysławP.

PHP, 69 65 bajtów

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

Uruchom z „-r”; podaj argumenty wiersza poleceń jako dane wejściowe.

Dla jednego bajta więcej 4 kolejne bajty, mogę wziąć każdy operator:

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

Tak, zło ewaluacji. Czy wiesz, że może coś zwrócić?

Krótkotrwała restrukturyzacja [,$i,$b,$c,$d]=$argv;pozwoliłaby zaoszczędzić 4 bajty;
ale PHP 7.1 dodaje wyzwanie.

Perl 6 , 44 bajtów

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

Jak to działa

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

Jeśli w porządku jest zwrócenie (potencjalnie nieskończonej) sekwencji liczb jako wartości typu Seq, zamiast drukowania liczb na standardowe wyjście, .say forczęść można usunąć, zmniejszając ją do 35 bajtów.

Clojure, 66 63 bajtów

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

-3 bajty przez wyodrębnienie loop. „Nadużywam” parametr init, aby działał jako działający akumulator.

Rozwiązanie rekurencyjne (z TCO). Zobacz komentarze w kodzie wstępnie golfowym. Wypróbowałem rozwiązanie rekurencyjne inne niż TCO i ostatecznie skończyło się na 67 bajtach.

Bardzo chciałbym zobaczyć ten rytm w Clojure! Myślę, że to najmniejsze, jakie mogę dostać.

(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 bajtów

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

To jest nienazwane zamknięcie. Wypróbuj online!

Uwaga - jeśli chcesz to przetestować groovy console, upewnij się, że zabiłeś cały proces, gdy dane wejściowe powodują nieskończoną pętlę. Zauważyłem to po zużyciu ~ 5 koncertów pamięci RAM.

QBIC , 51 40 bajtów

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

Trzy minuty po opublikowaniu zdałem sobie sprawę, że mogę uprościć logikę terminatora ...

:;::      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

Partia, 94 bajty

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

Gdyby nie zachowanie drugiego parametru, można by to zrobić w 53 bajtach:

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

To po prostu nic nie robi, jeśli krok ma zły znak. Dodatkowy test polega na tym, że forpętla Batcha pozwala, aby zmienna pętli była równa wartości końcowej.

Clojure, 66 bajtów

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

Może to być 55 bajtów jako <i >są funkcjami w Clojure:

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

TI-Basic, 41 34 bajtów

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