C vs Perl

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

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

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

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

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

SH Script

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

개행문자 패치

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

php 두번째-_-

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

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

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

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

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

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

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

그냥 재미로..
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이어야..

:shock:

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

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

:evil:

다른건 예상을 했는데..

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

정말 멋지고, 강력합니다

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

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

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

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

메모장에 띄우기...

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

Cobol

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

없길래.. :)

일반적인 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;

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

nML

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

이거 혹시...

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

:lol:

http://squeak.org/

Using Squeak (Smalltalk-80 implementation)

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

악플러 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))

전에 나온 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;

pre-ansi C:

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

재미로....

어디 까지 갈까요 ㅡㅡa

I will not throw paper airplanes in class\n

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

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

리눅스는

블럭지정후 shift + insert ㅡㅡa

원츄~!

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 문제는 그냥 넘어가주시길

010011110100111100111101010010000011111100010100010010100100010100010100010011110100000101001010001111010100100001001011010011100100010100111101000101000101010001001011010011100100010001010000000101000101000001010000010010110100101000010100010010000100100001000101010100110001010001000101
다른분들께서 다 하셔서 저는 기계어로 해 볼라고 했는데 ㅡ.ㅡ;; 프린트 명령어를 못찾겠네요
ㅋㅋㅋ 저건 ㅡ.ㅡ;; 바이너리 코드로 i will not throw paper airplanes in class 입니다요 8bit 버전입니다요.ㅡㅡ

것보다 이렇게 하는건 어떨지..;;

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

PHP :)

<?php for ($i = 0; $i < 500; $i++) { ?>
I will not throw paper airplanes in class.<br />
<?php } ?>

오랜 글에 어느분이 리플을 다셨는지 위로 올라와서 또 봤습니다.
젬있네요..

아무래도 function을 call하려면.. .그래야겠지요..

문제를 잘못 썼군요.. 에구 죄송...

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

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

암튼 ML에 관심이 있으신가봐요? 혹시 학생이신지... 저도 학생입니다만...