:D 만화 내용을 이해 못했었는데 짜여진 코드를 보고 이해를 했습니다. :)
반성문을 저런식으로 처리해버리니... 대단한 유머감각이 아닐 수 없겠네요...
그나저나 저정도 어린아이가 저렇게 어려운(?) 코드를 작성한다는 것 자체가 두려울
따름입니다. 아~~~ 내자리가 위태로워보이는군요... :oops:

P.S. : 언어논쟁은 저도 싫어합니다. 웃을 수 있는 그림을 올려주셔서 고맙네요...

ㅋㅋㅋ

애교 * 500 ^^

<어떠한 역경에도 굴하지 않는 '하양 지훈'>

첫번째 C 코드에는 \n 이 빠져있네요.
실행해 보면 버그를 발견하려나.. :)

print "good job -_-)=b \n"x500;

#!/usr/bin/perl 이 빠진거 아닌가요?

(절대 꼬투리 잡는거 아닙니다.
혹시 제가 모르는 #!/usr/bin/perl 을 안쓰고 사용할 수 있는 방법이 있나 해서요?)

<어떠한 역경에도 굴하지 않는 '하양 지훈'>

Using Java

public class Main {
	public static void main(String[] args) {
		for ( int i = 0; i<500; i++)
			System.out.println("I will not throw paper airplanes in class");
	}
}

Standard Python Statement

for i in range(1,10):
	print "I will not throw paper airplanes in class" 

Python one-liner
print "I will not throw paper airplanes in class\n" * 500

Using Tcl

for{set i 0}{$i < 500}{incr i} {
  puts "I will not throw paper airplanes in class\n"
}

oneliner 이니까 전체 구문을 다 살리면.... 이렇게 했겠지요.

perl -e 'print "...snip..."x500';

혹시나 했는데 역시나..

언어별로 하나둘 올라오기 시작하는 군요 ^^;

저도 이렇게 리플리 달리길 바랫답니다. -.-..
[이럼 않올라올라나 :twisted: ]

누가 C++ 버전 리플을 달았네요. -.- 대단하다..

 #include <iostream>
  struct C {
     C() { std::cout << "I will not throw paper airplanes in class\n"; }
  } c[500];
  int main() { return 0; }

ruby

500.times {
    puts "I will not throw paper airplanes in class\n"
}

아.. 저 그림에 나오는 꼬마,,
과연 몇살일까나..
난 저나이때 믈 했는지..
부러버,, 우엉~

흔히 perl 을 말할 때

SH Script

for i in `seq 500`; do echo "I will not throw paper airplanes in class"; done

php

$ php -r 'while ($i++ <= 500) echo "I will not throw paper airplanes in class\n";'

개행문자 패치

--- for_3.c.orig        Fri Dec  5 15:20:06 2003
+++ for_3.c     Fri Dec  5 15:23:12 2003
@@ -5,7 +5,7 @@
        int count;

        for(count=1;count<=500;count++)
-               printf("I will not...");
+               printf("I will not...\n");

        return 0;
 }

echo ":PERL:E::pl::/usr/bin/perl:" > /proc/sys/fs/binfmt_misc/register 하심 되겠죠.. 물론 mount -t binfmt_misc none /proc/sys/fs/binfmt_misc 해 주시고..

php 두번째-_-

#!/usr/local/php/bin/php -q
<? echo str_repeat("I will not throw paper airplanes in class\n",500); ?>

$ yes "I will not throw paper airplanes in class"

이렇게 고치면 되죠. :)

yes "I will not throw paper airplanes in class" | head -500

yOU wIN!
-_-;;;;;;;

머찌다는 말 이외에 더 좋은 말이 안떠오르네요.. -_-

ㅋㅋㅋ
반항한다구 선생님한테 맞을거에요

아... yes는 이렇게 쓰는 거군요. 오늘 첨 알았다는.. -_-;;

yes............ 무섭군요......
직접 해보고 나서야 이해했다는......;;
암생각없이 yes 만 달랑 쳤더니만 =_=;;;;;;

역시 hacker 레벨이 되면 이런 멋진 코드가 나오는 군요.

나를 감동시킨 코드에 등록하겠습니다. ^^

저는 실은 크론에다 echo걸어놓고 500일 기다릴라구 했습니다만, 그랬다간 선생님한테 혼나겠군요. 다른 이유로 .... ^^
(하긴 꼭 하루에 한번 돌게 하지 않아도 되겠습니다만 ^^)

뒤의 \n 은 빼야하지 않을까요? ^^

패치 만드신 분, 원츄 -_-)b

정말 웃겼습니다.

이 쓰레드는 KLDP 명예의 전당 같은 곳에 올려야 하지 않을까 생각되네요 ㅋㅋ

반성문이니까.. 콘솔보다는.. 웹 페이지에 띠우는게 보기 좋을 듯 싶네요.. ^^

CGI

#include <stdio.h>

int main()
{
  int i;

  printf("Content-Type: text/html\r\n\r\n");

  for (i = 0; i < 500; i++)
    printf("I will not throw paper airplanes in class<BR>");

  return 0;
}

JavaScript:

<SCRIPT type="text/javascript" language="JavaScript">
<!--
for (var i=0; i < 500; i++)
    alert("I will not throw paper airplanes in class.");
//-->
</SCRIPT>

이렇게 하면 엔터를 500번 눌러야 하므로
반성문 검사 하시는 분을 골탕먹이는 게 될 수도 있겠네요.

전혀 반성하는 자의 자세라고 볼 수 없는...

그냥 재미로..
Makefile and echo:

all:
        @echo "I will not throw paper airplanes in class." 1>&2
        @if test $$MAKELEVEL -lt 500; then make 1>/dev/null; fi

Makefile인관계로 두번째 세번째 줄은 맨 앞이 tab이어야..

<script>
for(var i=0; i<500; i++)
  document.write("I will not throw paper airplanes in class.\n");
</script>

:shock:

올려 보존하심이 좋을 줄로 아뢰오.

@echo off
for /l %i in (1,1,500) do echo I will not throw paper airplanes in class
@echo on

앞뒤에 @echo 를 안 넣는 방법은 없을지... :twisted:

500iI will not throw paper airplanes in class
<ESC>

:evil:

#include <windows.h>

int main( void )
{
  int i ;
  for ( i = 0 ; i < 500 ; i ++ )
    MessageBox( 0, "I will not throw paper airplanes in class", "", MB_OK ) ;
  return 0 ;
}

이정도면 선생님이 용서해주실지도 모르겠는데...

#include <windows.h>
#include <processs.h>

void thread_proc( void *ptr )
{
  MessageBox( 0, "I will not throw paper airplanes in class", "", MB_OK ) ;
}

int main( void )
{
  int i ;
  for ( i = 0 ; i < 500 ; i ++ )
    _beignthread( thread_proc, 0, 0 ) ;
  return 0 ;
}

컴파일 될라나... -.-;;
[/code]

다른건 예상을 했는데..

yes 를 이용한건 전혀 예상못했습니다 :o

정말 멋지고, 강력합니다

XP에서 테스트 했습니다. 그 이전버전은 어떻게 될지 모르겠네요. :)

아시는 분은, 아래 언어 버전을 만들어 보심이..

(n)ML, Haskel, c#, FORTRAN, COBOL,
LISP, Prolog, Pascal, Smalltalk, Scheme ...

fortran90 버전;;
히힛~ :D

program sorry
	implicit none
	integer :: i
	
	do i=1,500
		write(*,*) "I will not throw paper airplanes in class"
	end do
end program sorry

str db "I will not throw paper airplanes in class",0ah, 0ch, 0

les esi, str
mov al, 02h
mov ecx, sizeof str

LABEL
push eax
mov dl, [esi]
int 21h
pop eax
loop LABEL

아.. 역시 어셈은 아무리 해도 폼이 안나요... cry
도스 인터럽트를 썼다고 뭐라하기 없기에요~ oops

str db "I will not throw paper airplanes in class",0ah, 0ch, 0

les esi, str

mov ecx, 500
LABEL
push esi
call printf
pop eax
loop LABEL

리눅스 시스템 콜을 써보니까 좀더 간단해 지네요..

(loop for I from 1 to 500 by 1 do 
 (format t "I will not throw paper airplanes in class~%"))

10분 공부한 ALGOL

BEGIN
INTEGER i;
FILE F (KIND=REMOTE);
EBCDIC ARRAY E [0:41];
REPLACE E BY "I will not throw paper airplanes in class";
FOR i:=1 STEP 1 UNTIL 500 DO
  BEGIN
  WHILE TRUE DO
    BEGIN
    WRITE (F, *, E);
    END;
  END;
END.

BASIC

10 FOR i = 1 TO 500 
20 PRINT "I will not throw paper airplanes in class" 
30 NEXT i

Clipper(DBASE 류)

FOR i := 1 TO 500 
? "I will not throw paper airplanes in class" 
NEXT 

메모장에 띄우기...

WSH Version

Set WshShell=WScript.CreateObject("Wscript.Shell")
WshShell.Run "notepad"
WScript.sleep 500

For i=0 To 499
    WshShell.SendKeys "I will not throw paper airplanes in class"
    WScript.sleep 20
    WshShell.SendKeys "{Enter}"
    WScript.sleep 20
Next

WScript.sleep 3000
WshShell.SendKeys "%{F4}"
WScript.sleep 100
WshShell.SendKeys "N"
WScript.sleep 100
Set WshShell = Nothing

Pascal:

하도 오래되서 맞는지 모르겟지만 -.-

Unit PrintBlackborad;

var I:Integer;

begin
    for I := 1 to 500 do  writeln("I will not throw paper airplanes in class");

end.

Cobol

PERFORM VARYING II FROM 1 BY 1 UNTIL II > 500
  DISPLAY "I will not throw paper airplanes in class"
END-PERFORM

없길래.. :)

$ wget -qO - "http://some.host.org/tmp/test.php"

일반적인 C++ 소스는 앞에 나와 있어서,
저는 템플릿 메타프로그래밍을 사용하는 버전을 만들었습니다.
쓸데 없이(?) 복잡하지만, 이런 것도 가능하다는 것도 알아두시길... 8)

#include <iostream>

template<int i>
struct loop{
    static void body(){
      loop<i-1>::body();
      loop<0>::body();
    }
};

struct loop<0>{
    static void body(){
      std::cout << "I will not throw paper airplanes in class\n";
    }
};

int main()
{
    loop<500>::body();
    return 0;
}

Clean
간단히 Start함수식의 평가를 이용해서

Start :: {#Char}
Start = abort (fun 1) // 인용부호의 출력을 막기위해  abort ^^;
where
	fun :: Int -> {#Char}
	fun n
		| n <= 500	= "I will not throw paper airplanes in class.\n" +++ fun (n+1)
				       = ""

Ada95

with Ada.Text_IO; use Ada.Text_IO;
procedure Fun is
begin
    for I in 1..500 loop
        Put_Line("I will not throw paper airplanes in class.");
    end loop;
end Fun;

//---------------------------------------------------------------------------
#include <iostream>
#include <string>
#include <vector>
#include <iterator>
#include <algorithm>
//---------------------------------------------------------------------------
using namespace std;

int main()
{
	vector<string> messages(500, "I will not throw paper airplanes in class.");
	copy(messages.begin(), messages.end(), ostream_iterator<string>(cout, "\n"));
	return 0;
}
//---------------------------------------------------------------------------

emacs lisp

(defun reflection ()
  (let ((i 0))
    (while (< i 500)
      (princ "I will not throw paper airplanes in class.\n")
      (setq i (1+ i)))))

(reflection)

실행은

emacs -batch -l 파일이름.el

또는

*scratch* buffer에서 (defun ...) 입력후 C-j, (reflection) 입력 후 C-j

Scheme (for guile)

#!/usr/bin/guile
!#
(define reflection
  (lambda ()
    (let ((i 0))
      (while (< (i 500)
        (display "I will not throw paper airplanes in class.\n")
        (set! i (1+ i))))))
(reflection)

nML

fun 반성문(0) = print_string ""
  | 반성문(n) = print_string "I will not throw paper airplanes in class\n"; 반성문(n-1)

반성문을 엄청 많이(한.. 수십억정도??) 적으라고 한다면 저는 asm 버전으로 작성하겠습니다. 그래야 일찍 집에 갈것 아니겠어요? ^^;

이거 혹시...

여러가지 언어로 반성문 쓰는게 idlock님과 ktaekin님의 숙제 아니었을까요?

:lol:

오메~.. 이런 실수가..
가끔 Tcl로 프로그래밍시.. C에서 하던 버릇댐시.. 넣곤합니다..
안넣어도 newline 자동으로 되는데.. ^^

http://squeak.org/

Using Squeak (Smalltalk-80 implementation)

500 timesRepeat: 
	[Transcript show:'I will not throw paper airplanes in class';cr]

Using 국회의원
김비서 'I will not throw paper airplanes in class' 500줄 찍어오게.

ps.
Using 일부 국회의원
김비서 청와대 가서 'I will not throw paper airplanes in class' 500줄 찍어오게. 안그럼 단식이야.

악플러 or 도배맨:
I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class............ (중략) ............... I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class. I will not throw paper airplanes in class.

또다른 Scheme 버전입니다. 재귀적으로 구현해야 아무래도 scheme 분위기가... :)

(letrec ((reflection 
          (lambda (msg n)
            (if (> n 0)
                (begin (display msg)
                       (reflection msg (- n 1)))))))
  (reflection "I will not throw paper airplanes in class.\n" 500))

writeln('I will not throw paper airplanes in class');
가 되어야 하지 않을까요. 파스칼에서는 작은 따옴표로 스트링을 나타내는 것 같았던.... ;; ( 가물가물 )

전에 나온 C++ 버전들에게서 영감을 얻어 하나..

#include <iostream>
int main() { return 0; }

template<int i>
struct C : C<i-1> {
    C() { std::cout << "I will not throw paper airplanes in class\n"; }
};
template<> struct C<0> {};
C<500> c;

아직도 안나온거 같애서...

awk:

$ awk 'BEGIN { for( i=0; i<500; i++ ) print "I will not throw paper airplanes in class" }'

pre-ansi C:

main(_)
{
        _ <= 500 && 
        printf("I will not throw paper airplanes in class\n", _ ) && 
        main (_+1);
}

재미로....

ML코드를 보니 반갑네요...
예전에 시험문제에..

fun reverse(x) = nil
  | reverse(x::xs) = reverse(xs)@[x];

fun reverse(x) = if x=nill then nill else tl(x)@[hd(x)];

둘 사이의 차이점에 대해 쓰라던 기억이... ㅎㅎ

어디 까지 갈까요 ㅡㅡa

I will not throw paper airplanes in class\n

블럭지정후 ctrl+c -> ctrl+v

다음은 선생이 되따거 할때까지? ㅡㅡa

리눅스는

블럭지정후 shift + insert ㅡㅡa

원츄~!

맞네요 헉.. 그리고 Unit 이나고 program인데 -.-;.. 자꾸 보니깐 조금씩 생각이 나는군요.

program PrintBlackborad;

var I:Integer;

begin
    for I := 1 to 500 do  writeln('I will not throw paper airplanes in class');

end.

KLDP 아이디가 없는 제 동생이 먼 땅에서 prolog 코드를 제보해주었습니다. :D

sorry :- sorry(500).
sorry(0).
sorry(N) :-
write('I will not throw paper airplanes in class'), nl,
N2 is N-1,
sorry(N2).

Haskell로는 대략 이렇게...

sorry :: Int -> IO()
sorry count = if count >=0
then do putStrLn "I will not throw paper airplanes in class"
let count2 = count -1;
int do sorry count2

앗 indentation 문제는 그냥 넘어가주시길