Ваша власна інструкція "за"

Припустимо, що у вас є наступний вклад: a, b, c, d

Введення може бути в одному рядку, використовуючи будь-який формат "a / b / c / d" або "a, b, c, d" тощо.

Ви також можете мати 4 входи.

Ви повинні кодувати таку поведінку (псевдокод тут):

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

Ось кілька тестів:

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

Ще один :

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

• aце ціле число , початкове значення i.

• bце рядок або char , це не може бути чимось іншим, порівняльником, що використовується в кінцевому стані forциклу.

  bможе бути і має бути однією з таких рядків:

  - ">"
  - "<"
  

• cявляє собою ціле число , число, яке використовується в кінцевому стані for циклу.

• dце ціле число, яке додається до i в кожному циклі.

Це код-гольф, найкоротша відповідь виграє!

JavaScript (ES6),  44  43 56 байт

Збережено 1 байт завдяки редакції ETHproductions
: виправлено відповідно до вимог виводу

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

Тест

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 байт

Хотів зробити для версії, але хтось був швидшим, тож ось рекурсивна версія.

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

Потрібно додати f=раніше і назвати його так f(b,c,d)(a).

Велике спасибі Арнольду за приголомшливий гольф.

alertзмінено на console.logспецифікацію виходу

Чистий баш, 35

Я припускаю його добре просто підключити параметри до стандарту для циклу:

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

Спробуйте в Інтернеті .

Желе , 12 байт

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

Спробуйте в Інтернеті!

У Jelly є багато способів, щоб поступово зробити ітерацію, створити діапазони тощо. Однак, дзеркальне відображення поведінки C ++ є досить важким, оскільки особливі випадки, такі як приріст 0, цикл закінчується перед його початком (через нерівність, яка повертається назад ), і приріст йде в неправильному напрямку (значить, умова виходу циклу не може бути виконана природно). Таким чином, це рішення є в основному прямим перекладом C ++, хоча це робить його більш низьким рівнем, ніж це звичайно програма Jelly. На щастя, у C ++ є невизначена поведінка щодо підписаного цілого переповнення (питання використовується int), це означає, що програма може робити що завгодно в цьому випадку, і тому немає необхідності намагатися імітувати поведінку переповнення.

Пояснення

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

Збій програми - це найкоротший спосіб вимкнути неявний вихід Jelly (інакше він виведе остаточне значення лічильника); це створює купу помилок помилок на stderr, але ми зазвичай вважаємо це дозволеним.

До речі, лічильник циклу ініціалізується з поточним значенням до початку циклу. Коли цикл з'явиться на початку програми, це буде першим входом.

Python 2 , 50 байт

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

Спробуйте в Інтернеті!

R, 63 байти

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

Java, 58 байт

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

05AB1E , 22 20 байт

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

Спробуйте в Інтернеті!

Пояснення

[                       # 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 байти

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

Пояснення:

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

Для цього використовується той факт, що X<Yте саме, що-X>-Y

Складено , 34 байти

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

Спробуйте в Інтернеті! (Тестування включено.) Це функція, яка очікує, що стек виглядатиме так:

a b c d

Наприклад:

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

Пояснення

@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

Ну, це C++не так C. Трохи розгубився питання.

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 байт

-1 байт завдяки H Walters

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

Спробуйте в Інтернеті!

Python 3, 52 байти

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

repl.it

Піп , 14 байт

W Va.b.ca:d+Pa

Бере чотири аргументи командного рядка. Підтримує від’ємні та числа з плаваючою комою та оператори порівняння < > = <= >= !=. Спробуйте в Інтернеті!

                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

Желе , 8 байт

ḢṄ+⁹;µV¿

Це діадичне посилання, яке вважає аргумент a, b, c як лівий аргумент, а d - як праве. Вихід може бути нескінченним і переходить до STDOUT.

Спробуйте в Інтернеті!

Як це працює

ḢṄ+⁹;µ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 байт

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

Спробуйте в Інтернеті!

Дуже буквальна реалізація специфікації. Бере шаблон коду, замінює на входах за допомогою форматування рядків і виконує його.

Простий TeX, 88 байт

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

Команда \forзабезпечує запитувану функцію. Збережіть це як, for.texа потім запустіть його та введіть значення змінних у командному рядку: pdftex '\input for \for 1 < 5 1 \bye'Значення змінної повинні бути розділені пробілами.

Python 3, 61 байт

Один вкладиш:

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

Haskell , 66 64 байт

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

Спробуйте в Інтернеті! Використання:

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

Bash (+ інструменти Unix), 29 байт

Гольф

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

Тест

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

Рубі, 43 41 байт

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

Якщо ви bможете вважати символом Ruby замість рядка, ви отримуєте 38 байт :

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

Спробуйте будь-яке рішення в Інтернеті!

Лисп звичайний, 82 80 79 73 64 байти

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

Тест

(f 1 < 10 1)

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

-9 байт завдяки PrzemysławP.

PHP, 69 65 байт

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

Виконати з '-r'; надати аргументи командного рядка як вхідні дані.

Для одного байта більше більше 4 байта, я можу взяти кожен оператор:

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

Так, злий евал. Чи знали ви, що це може щось повернути?

Швидке руйнування знизило [,$i,$b,$c,$d]=$argv;б ще 4 байти;
але PHP 7.1 після вирішення проблеми.

Perl 6 , 44 байти

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

Як це працює

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

Якщо нормально повернути (потенційно нескінченну) послідовність чисел як значення типу Seq, замість того, щоб друкувати числа в stdout, .say forчастину можна було видалити, зменшивши її до 35 байт.

Clojure, 66 63 байт

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

-3 байти шляхом відрахування значення loop . Я "зловживаю" параметром init, щоб діяти як працюючий акумулятор.

Рекурсивний розчин (з ТСО). Дивіться коментарі в попередньо гольф-коді. Я спробував рекурсивне рішення, що не містить TCO, і воно склало 67 байт.

Я хотів би бачити цей ритм у Clojure! Я думаю, що це найменше, що я можу отримати.

(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 байт

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

Це неназване закриття. Спробуйте в Інтернеті!

Увага! Якщо ви хочете перевірити це groovy console, переконайтеся, що ви знищили весь процес, коли введення викликає нескінченний цикл. Я помітив це після того, як він спожив ~ 5 гігів оперативної пам'яті.

QBIC , 51 40 байт

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

І через три хвилини після публікації я зрозумів, що можу спростити логіку термінатора ...

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

Пакетна, 94 байти

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

Якби не поведінка другого параметра, це можна зробити в 53 байтах:

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

Це просто нічого не робить, якщо крок має неправильний знак. Додатковий тест полягає в тому, що forцикл Батха дозволяє змінній циклу дорівнювати кінцевому значенню.

Clojure, 66 байт

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

Це могло бути 55 байт як <і >є функціями в Clojure:

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

TI-Basic, 41 34 байт

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