For 루프 재창조 [폐쇄]


23

For 루프는 많은 언어에서 광범위하게 사용되지만 언어를 지원하지 않는 경우 어떻게 하시겠습니까?

기본 실행 방법 작성 for(모든 반복 구조를 사용하지 않고 루프를 for, foreach, while, do, 등).

복제해야하는 기본 for 루프는 다음과 같이 설정됩니다.

for(i=0;i<1000;i++)

반복 구조를 사용하지 않고이를 복제 할 수 있어야합니다. 또한 루프 본문에있는 언어로 코드를 실행해야합니다. 자체적으로 루프를 eval실행할 수는 없지만 모든 형태 가 허용 for됩니다.

i공백으로 100 번 인쇄하여 코드를 테스트하고이 테스트 사례를 답변 끝에 추가하여 다른 사람과 코드를 확인할 수 있습니다.

정확히 무엇을 해야하는지에 대한 제한은 없으며 for루프를 복제하기 만하면됩니다.

당첨자는 선정 시점에 상향 투표에 따라 결정됩니다.


100 번 또는 1000? 아니면 10 만 번?
사용자가 알 수 없음

10
문제가 너무 정의되어 있지 않습니다. “반복 구조를 사용하지 않고”라고 말하고 그러한 금지 된 구조의 (단, 광범위한 목록은 아님) 만 제공하십시오 . 대답은 지금까지 모두 재귀 또는 고토 사용하여 제공된 나는 "반복 구조"로 분류 할을하지만, 논의 할 수있다. 허용되는 것과 그렇지 않은 것에 대한 적절한 정의가 없다면이 질문은 흥미롭지 않습니다.
Timwi

gotos, 재귀 ...
Mateen Ulhaq

모든 과제에 대해 객관적인 유효성 기준이 필요하기 때문에이 주제를 주제 외로 마무리하기로 결정했습니다. 제출의 유효성을 판단 할 수있는 명확한 방법은 없습니다. 또한 유효한 제출 동작에 대한 사양이 없습니다.
Mego

답변:


23

C, goto가없는 45 자

가장 작은 해결책은 아니지만 C 에서이 방법을 매우 흥미롭게 만듭니다. :)

사용하지 않는 goto, if, for, 또는 제어 구조의 다른 종류.

기능 자체 (45 자) :

m(){int (*a[])()={m,exit};i++;(*a[i>999])();}

컴파일 가능한 작업 프로그램 :

#include <stdio.h>
#include <stdlib.h>

int i=0;
m(){int (*a[])()={m,exit};i++;printf("%i ",i);(*a[i>999])();}

int main()
{
  m();
}

2
함수 호출은 "제어 구조"입니다. 권리?
EfForEffort

@Denis 부에노 : 아니, 제어 구조 같은 물건입니다 while, do, for, if...
houbysoft

1
설명을 포함시켜 주시겠습니까? 나는 조금 길을 잃었다.
Rees

1
이것은 약간 늦었지만 @Rees : int (*a[])()={m,exit}는 함수 포인터의 배열입니다. m는 증가하고 인쇄하는 i(1, 2, 3, ...로 설정) 호출되고 함수 포인터 배열에서 함수를 호출합니다. 통화 (*a[i>999])();가 확장됩니다(*a[0])();(*a[1])();C i>999가 true인지 false (1 또는 0)인지에 따라 정수로 값을 사용하므로 되거나 . true가 m될 때까지 호출 i>999한 다음 exit를 호출합니다. 함수 포인터를 잘 사용합니다.
aglasser

15

하스켈, 33 자

Haskell : P에는 그러한 의미가 없으므로 for 루프를 발명 하는 것과 비슷 합니다.

mapM_(putStr.(' ':).show)[0..999]

1
forM_mapM_논쟁이 뒤집혀서 그냥 속이는 것일 수도 있습니다. ;)
Dan Burton

12

GCC- 106 95 자

#define FOR(i,l,h)auto F();L(F,l,h);int F(i)
L(int f(int),int l,int h){l<=h?f(l),L(f,l+1,h):0;}

콜백을 선언해야하는 다른 C 솔루션과 달리이 솔루션은 자동으로 수행합니다.

FOR(i, 1, 10) {
    printf("%d\n", i);
}

GCC의 중첩 함수 확장 을 사용하여 작동 합니다. 즉, 중첩 함수 F를 전달 선언하고 이를 루프 함수 L에 전달한 다음의 정의를 시작 F하여 사용자가 추가 할 중괄호를 남겨 둡니다.

GCC의 중첩 함수에 대한 한 가지 아름다운 점은 하향 기능을 지원한다는 것입니다. 이는 환상이 거의 완벽하다는 것을 의미합니다.

long n = 1;
FOR(i, 1, 10) {
    n *= i;
}
printf("%ld\n", n); // 3628800

한 가지 중요한 경고가 있습니다. FOR같은 범위에서 두 번 사용 하면 충돌이 발생합니다 (즉, 컴파일되지만 모든 FOR루프는 하나의 루프 본문을 공유 함). 같은 범위에서 여러 개의 FOR 루프를 허용하려면 69 65 문자가 더 필요 합니다.

175160 자 :

#define FOR(i,l,h)F(i,l,h,__COUNTER__)
#define F(i,l,h,f)auto N(f)();L(N(f),l,h);int N(f)(i)
#define N(n)F##n
L(int f(int),int l,int h){l<=h?f(l),L(f,l+1,h):0;}

11

C, 21 자

f(){if(c++<999)f();}

예를 들면 다음과 같습니다.

#include <stdio.h>
int c = 0;
f()
{
    printf("%d ", c);
    if (c++<999) f();
}
int main(void)
{
    f();
}

출력 :

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ... 998 999

없이 main()첫 번째 블록은, 코드가 연결되지 않습니다. 따라서 항목에 포함되어야한다고 생각합니다.
Nathan Osman 2019

4
@George : main()이 문제는 다른 문제처럼 "완전한 프로그램 만들기"가 아니라 "실행 방법 만들기"라는 질문이 있기 때문에 생략하는 것이 공정하다고 생각합니다 .
Eelvex

1
제거 void 하면 26문자 만됩니다.
프린스 존 웨슬리

8

C # — 재귀 없음, 이동 없음

(람다 미적분학의 Y 결합기를 사용)

class Program
{
    delegate Func<TInput, TResult> Lambda<TInput, TResult>(Lambda<TInput, TResult> f);

    static Func<TInput, TResult> Y<TInput, TResult>(Func<Func<TInput, TResult>, Func<TInput, TResult>> f)
    {
        Lambda<TInput, TResult> y = r => n => f(r(r))(n);
        return y(y);
    }

    static void Main()
    {
        Func<int, int> fibonacci = Y<int, int>(f => n => n > 1 ? f(n - 1) + f(n - 2) : n);
        Func<int, int> factorial = Y<int, int>(f => n => n == 0 ? 1 : n * f(n - 1));

        // Executes “fibonacci” 10 times, yielding 55
        Console.WriteLine(fibonacci(10));
        // Executes “factorial” 5 times, yielding 120
        Console.WriteLine(factorial(5));
    }
}

Y 연산자가 재귀를 구현한다고 주장 할 수도있다.
Bergi

7

x86 어셈블리, 12 11 바이트의 명령어

66 31 c0                xor    %ax,%ax
<body>                ; involving %ax
66 40                   inc    %ax
66 3d  e8 03            cmp    $1000,%ax
75 ??                   jne    <body>

그들이 오름차순으로 요청한 것이 유감입니다 ... 내림차순이 더 짧을 것이라고 확신합니다.
JB

@JB : 예-내림차순으로 일반적으로 다음 loop명령을 사용합니다 .mov cx, 1000\nx: ... loop x
Jerry Coffin

6

또 다른 스칼라 변형

스칼라는 ASCII가 아닌 문자를 사용할 수 있기 때문에 real :)을 구현할 수 있습니다 ( o키릴).

def fоr(s:Unit,c: ⇒Boolean,e: ⇒Unit)(b: ⇒Unit):Unit=if(c){b;e;fоr(0,c,e)(b)}

테스트:

var i:Int = _

fоr (i = 0, i < 1000, i += 1) {
  print(i + " ")
}

6

자바 스크립트, 34 자

이것은 실제 인쇄 기능이 루프의 일부 가 아니라고 가정합니다 for.

매개 변수화 된 재귀 (43) :

function f(i,m,c){if (i<m){c();f(++i,m,c)}}

function f(i, max, callback)
{
  if (i<max)
  {
    callback();
    f(++i,max,callback);
  }
}

역 재귀 (36) :
가정max >= 0

function f(m,c){if(m){c()
f(--m,c)}}

function f(max,callback)
{
  if(max)
  {
    callback();
    f(--max,callback);
  }
}

삼항 연산자 (34)

function f(m,c)
{m?c()&f(--m,c):0}

3
function f(m,c){m&&c()&f(--m,c)}-32 바이트를 만들 수 있습니다 :)
pimvdb

5

루비 1.9 ~ 51 자

def f a,b,c,&d
a[]
k=->{d[];c[];redo if b[]}
k[]end

이것은 다른 항목보다 훨씬 크지 만 질문의 본질을 더 잘 포착한다고 생각합니다. 실제로 이것은 예제와 거의 같은 코드를 작성할 수있게합니다.

def f a,b,c,&d
a[]
k=->{d[];c[];redo if b[]}
k[]end


i = 0 # Have to pre-declare i to have the closures work properly
f(proc{ i = 0 }, proc{ i < 1000 }, proc{ i += 1}) do
  p i
end

# Been a long time since I've actually used for's so took a long
# time to think of a non-trivial use.

j, sum = 0, 0 # Pre-declare variables for the closures

goal = 1000

f(proc{ j = 1; sum = 1 }, proc{ sum < goal }, proc{ j += 1 }) do
  sum = sum * j
end

puts "The next largest factorial after #{goal} is #{j-1}! at #{sum}"

5

C #, 70 57 자

C #은 코드 골프를위한 선택의 무기는 아니지만 시도해 볼 것이라고 생각했습니다.

void f(int i,Func<int,bool>j,int k){if(j(i)) f(i+k,j,k);}

이것은 1000까지 계산하는 작업 만 수행하는 것이 아닙니다. 오히려 실제로 복제를 시도합니다for 모든 작업에 대해 루프 동작을 . 그것은 도전의 의도에 다소 가까워 보였지만 어쩌면 그것은 저뿐 일 것입니다.

넓히는:

void f(int i, Func<int, bool> j, int k)
{
    if (j(i))
    {
        f(i + k, j, k);
    }
}

사용법은 for-loop 구문에 매우 가깝습니다.

f(0, i => i < 1000, 1);  

4

파이썬

구체적인 경우 :

exec("print i,"+";")*1000

그리고 일반적으로 :

exec("f"+";")*1000

여기서 'f'는 코드입니다. 모든 경우에 해당되는 것은 아닙니다.


NameError : 이름 'i'가 정의되지 않았습니다
JB

나는 그것을 고쳤습니다. 또한 사전 정의 된 것으로 가정했습니다.

2
미리 정의되어 있으면 반복으로 변경되지 않습니다. for루프가 작동 하는 방식이 아닙니다 .
JB

페어 포인트. ;i=+1쉼표 뒤에 필요하다고 생각합니다 . 나는 모든 경우에 작동하지 않을 것이라고 말했다.

exec 'i=0;'+1000*'print i;i+=1;'일을 할 것입니다.
flonk

4

C : 기본 for 루프의 경우 33 자 (goto가 허용된다고 가정)

int i=0;s:if(i<1000){/`*code inside for loop here`*/i++;goto s;}


int i=0;s:if(i<1000){printf("%d ",i);i++;goto s;}



2

JavaScript-테스트 케이스에서 39 자

Chrome, Opera 및 IE : eval(s="i<1e3&&eval(s,print(i++))",i=0) . Safari에서 "호출 스택 크기 초과"및 Firefox에서 "너무 많은 재귀"로 인해 실패합니다.

Firefox : (function f()i<1e3&&f(print(i++)))(i=0) . 이것은 Mozilla의 비표준 "표현식 폐쇄"기능을 사용하여 한 쌍의 중괄호를 제거합니다.

참고 : 변경 print(i++)에를 alert(i++)당신이 필요합니다. 당신은 변경할 수 있습니다 1e3100사파리에 대한 반복 횟수를 줄일 수 있습니다.


퍼팅 print내부 전화를 eval호출하는 것은 정말 영리하다.
Justin Morgan

2

Q 기본 (24 자)

1?i:i=i+1:IF i<1E3THEN 1

로 확장 :

1 PRINT i: i = i + 1: IF i < 1000! THEN 1

참고 : 이것은 i여전히 원래 값이 0 이라고 가정합니다 .


2

J,? <10 자

f^:1000

J에는 루프가 거의 없다. 대신 일반적으로 배열과 암시 적 루프를 사용합니다. 예를 들어 정수 1..100을 합산하려면 "/" "+"를 배열 1..100 (i.101)에 적용합니다.

+/i.101
5050

숫자 0..99를 표시하려면 배열을 구성하면됩니다.

i.100
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 ...

^:"힘"동사입니다. 파이썬 f^:1000과 같은 것 exec()*1000입니다.


2

C #, 58 자

업데이트 : D' oh ... 이것은 Eelvex 와 거의 동일한 답변 이라고 생각합니다.

매우 영리하지는 않습니다. .NET의 단순한 재귀입니다.

void f(int c,int m){Console.Write(c+" ");if(c++<m)f(c,m);}

또는 "for loop"의 본문을 꺼내십시오 (35 자).

void f(int c,int m)if(c++<m)f(c,m);

초기 값과 최대 값을 시드 할 수 있습니다.


2

스칼라

Nemo157의 답변 에서 영감을 얻었습니다 .

def myfor(test: =>Boolean, inc: =>Unit)(stmts: =>Unit) : Unit =
        if (test) {
                stmts
                inc
                myfor(test, inc)(stmts)
        }

그리고 이것은 다음과 같이 사용될 수 있습니다 :

var i = 0
myfor(i<1000, i+=1) {
        print(i+" ")
}

골프 (62) :

def f(t: =>Boolean,i: =>Unit)(s: =>Unit){if(t){s;i;f(t,i)(s)}}

또는:

def myfor[A](init: A, test: (A)=>Boolean, inc: (A)=>(A))(stmts: =>Unit) : Unit = 
        if (test(init)) {
                stmts
                myfor(inc(init), test, inc)(stmts)
        }

myfor[Int](0, _<10, _+1) {
        println("loop")
}

2

PowerShell 18

filter p{$i=$_;$i}

1-10

PS C:\> (1..100 | p)-join' '
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 6
4 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 

예, 완전히 쓸모가 없으며 유용한 기능을 수행하려면 함수를 다시 작성해야합니다. 그러나 그런 종류의 요점이 아닌가? :)


줄 바꿈 문자를 구분 기호로 인쇄합니까? ... 공백으로 i를 인쇄하십시오 ...- 실격. :)
사용자가 알 수 없음

1
필터 P { "$ _"} --- :
타이 Auvil

파이프 라인을 기술적으로 (ab) 마치 것처럼 사용하고 있기 때문에 이것이 자격을 박탈 해야하는지 잘 모르겠습니다 foreach.
Iszi

2

클로저
(map #(print (str % " ")) (range 1 (inc 100)))

인쇄 할 기능으로 인쇄를 교체하십시오.
마지막 값으로 (inc 100) 또는 101을 사용하십시오.


2

펄, 21 자

map{print"$_ "}0..999

매핑은 루핑 유형입니다. 속이지 마십시오! :-P
Chris Jester-Young

우리는 for-loop와 동등한 것을 작성해야하기 때문에이 주석은 말이되지 않습니다. 우리가 기준을 충족한다면, 그것은 항상 부정 행위가되거나, 무엇이 차이를 만들까요? 명백한 고 토스? 재귀?
사용자가 알 수 없음

@Chris 잘 나는 그 질문에 대답하기 전에 채팅에서 OP에게 명시 적으로 물었다.
JB

2

펄 가장 간단한-18 문자 (확인, 부정 행위)

print"@{[0..999]}"

출력 : 012 3 ... 998999

그러나:

Perl 정규식 / 염소 연산 (실제 의사 루프)-39 (16) 자

()="@{[0..999]}"=~/\d+(?{print"$& "})/g

16 자 이상의 '기본 루프'

()=             =~/\d+(?{          })/g

출력 : 012 3 ... 998999

문안 인사

rbo


2

자바 스크립트-86 자

e=eval,n=function(j,k,c){if(e(j))e(k),c(),n(j,k,c)},f=function(i,j,k,c){e(i),n(j,k,c)}

아마도 가장 짧은 자바 스크립트 솔루션은 아니지만 반복자 선언, 반복자 조작 및 반복 조건을 복제합니다.

사용 사례 예 :

f('a = 0', 'a < 9', 'a++', function() {
    console.log(a);
});

2

C (재귀 없음, 고토 없음)

#include <stdio.h>

int main()
{
    puts("0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999");
    return 0;
}

정의에 따라 완전히 그렇지 않습니까?


출력을 복제하지만 실제로 for 루프의 사양과 일치하지 않습니다. 그러나, 나는 그것의 좋은 생각 :). 그러나 당신은 이것을 골프해야합니다.
Twometer

죄송합니다, 이것은 코드 골프가 아닙니다. 어제 이것을 보지 못했습니다 ...
Twometer

1
;; for (int index=1, result=1; !cmp(result, max); index=incr(index)) result=body(index,result);
((lambda (index result cmp max body incr)
   ((lambda (f n i)
      (if (cmp i max) n
          (f f (body i n) (incr i))))
    (lambda (f n i)
      (if (cmp i max) n
          (f f (body i n) (incr i)))) result index)) 1 1 > 1000 (lambda (i n) (printf "i:~a~nn:~a~n" i n) (* n i)) (lambda (x) (+ x 1)))

4
이 답변에 사용 된 언어를 표시하십시오.
Nathan Osman 2019

1

LISP, 91 자

(defun m(x)(if(= 1000(length x))x(m(append x(list(1+(car(last x))))))))
(mapcar #'f(m'(0)))

레이블이 더 짧을 수 있습니다.

사용법 예 :

(defun f(x) (format t "~a " x))
(mapcar #'f (m '(0)))
0 1 2 3 4 5 6 7 8 9 10 11 12 ...  997 998 999


1

Python3-27 자

any(map(print,range(1000)))

시원한. 좋은 결과를 위해 :print(" ".join(map(str,range(1000))))
Wok

1

윈도우 배치 파일, 65

set I=%S%
:l
if %I% GEQ %E% goto :eof
call %C%
set /a I+=1
goto l

테스트 파일 :

@echo off
set S=0
set E=100
set "C=<nul set /p X=%%I%% "
call for.cmd

루프가 항상 0에서 시작하면 2 바이트를 절약 할 수 있습니다.

당사 사이트를 사용함과 동시에 당사의 쿠키 정책개인정보 보호정책을 읽고 이해하였음을 인정하는 것으로 간주합니다.
Licensed under cc by-sa 3.0 with attribution required.