C vs Perl

idlock의 이미지

Original Fox Trot Comic using C code.

Standard Perl Statement

Perl one-liner

http://perl.hacker.freeservers.com/
* 언어 논쟁이야기가 절대~!!! 아님니다. 그냥 웃자고요 ^^

댓글

codebank의 이미지

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

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

------------------------------
좋은 하루 되세요.

서지훈의 이미지

ㅋㅋㅋ

애교 * 500 ^^

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

#include <com.h> <C2H5OH.h> <woman.h>
do { if (com) hacking(); if (money) drinking(); if (women) loving(); } while (1);

익명 사용자의 이미지

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

majesty21의 이미지

K.J.Lee

公無渡河

opt의 이미지

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

----
LUX ET VERITAS | Just for Fun!

santana의 이미지

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

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

제발 좀 긍정적인 마음가짐으로...

서지훈의 이미지

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

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


뭐 잘 아시겠지만...
혹시나 해서 적습니다.
$ perl test.perl

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

#include <com.h> <C2H5OH.h> <woman.h>
do { if (com) hacking(); if (money) drinking(); if (women) loving(); } while (1);

neocoin의 이미지

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

DarKMinD의 이미지

수많은 소스들에서 마침표 '.'가 빠져 있네요~

h2h1995의 이미지

Using Tcl

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

----------------
http://tcltk.co.kr

opt의 이미지

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

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

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

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

----
LUX ET VERITAS | Just for Fun!

kall의 이미지

혹시나 했는데 역시나..

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

----
자신을 이길 수 있는자는
무슨짓이든 할수있다..
즉..무서운 넘이란 말이지 ^-_-^
나? 아직 멀었지 ㅠㅠ

idlock의 이미지

nohmad의 이미지

ruby

500.times {
    puts "I will not throw paper airplanes in class\n"
}
bh의 이미지

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

--
이 아이디는 이제 쓰이지 않습니다.

ai의 이미지

흔히 perl 을 말할 때

Quote:
TMTOWTDI, or `theres more than one way to do it'

이라고 하는데, 가끔은 이런 생각이 들 때도 있습니다.
Quote:
CIALAMAYW, or `cram in a line as much as you want'

아. 물론 CIALAMAYW 이건 없는 말이지만요. :)

War doesnt determine whos right, just whos left.

alfalf의 이미지

SH Script

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

sh.의 이미지

php

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

bh의 이미지

seearomi wrote:
첫번째 C 코드에는 \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;
 }

썰렁~

--
이 아이디는 이제 쓰이지 않습니다.

hanbak의 이미지

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

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

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

mackie의 이미지

php 두번째-_-

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

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

이건 좀 너무하죠...

Programmers never die: They just GOSUB without RETURN.

angpang27의 이미지

CTRL + C 만 잘누르면..

고통이 지천에 있다한들 어이해 멈출수있더냐

cdpark의 이미지

yamainu wrote:
$ yes "I will not throw paper airplanes in class"

이건 좀 너무하죠...

이렇게 고치면 되죠. :)

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

bh의 이미지

yamainu wrote:
$ yes "I will not throw paper airplanes in class"

이건 좀 너무하죠...

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

--
이 아이디는 이제 쓰이지 않습니다.

bh의 이미지

cdpark wrote:
yamainu wrote:
$ yes "I will not throw paper airplanes in class"

이건 좀 너무하죠...

이렇게 고치면 되죠. :)

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

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

--
이 아이디는 이제 쓰이지 않습니다.

sh.의 이미지

yamainu wrote:
$ yes "I will not throw paper airplanes in class"

이건 좀 너무하죠...

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

gilchris의 이미지

yamainu wrote:
$ yes "I will not throw paper airplanes in class"

이건 좀 너무하죠...

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


--------------------------------------------------------------------------------
새로운 세상으로...

whitelazy의 이미지

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

galien의 이미지

cdpark wrote:
yamainu wrote:
$ yes "I will not throw paper airplanes in class"

이건 좀 너무하죠...

이렇게 고치면 되죠. :)

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

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

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

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

최종호의 이미지

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

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

dakiller6의 이미지

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

정말 웃겼습니다.

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

alwaysrainy의 이미지

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

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

---------------------------------------
세계는 넓고, 할일은 많다.

nohmad의 이미지

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번 눌러야 하므로
반성문 검사 하시는 분을 골탕먹이는 게 될 수도 있겠네요.

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

pynoos의 이미지

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

세벌의 이미지

nohmad wrote:
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번 눌러야 하므로
반성문 검사 하시는 분을 골탕먹이는 게 될 수도 있겠네요.

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

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

이렇게 하면 안 혼나려나?
exilan의 이미지

:shock:

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

동지여, 우리가 있다!

M.W.Park의 이미지

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

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

-----
오늘 의 취미는 끝없는, 끝없는 인내다. 1973 法頂

cdpark의 이미지

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

:evil:

antibug의 이미지

#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]

--------------------------------------
재미없는 일은 하지 말자는 인간 쓰레기.
-.-;

maylinux의 이미지

다른건 예상을 했는데..

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

정말 멋지고, 강력합니다

아바타 제작기간~~ 무려 5초!!!

BL의 이미지

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

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

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

juicy의 이미지

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

(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

gurugio의 이미지

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

gurugio의 이미지

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

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

ageldama의 이미지

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

----
The future is here. It's just not widely distributed yet.
- William Gibson

alfalf의 이미지

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 
tae100의 이미지

메모장에 띄우기...

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

Urban Daydreams~~

idlock의 이미지

dsh의 이미지

Cobol

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

없길래.. :)

dk의 이미지

cedar의 이미지

일반적인 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;
}
익명 사용자의 이미지

loop<1>이 2번 출력하기 때문에...

Bini의 이미지

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;
cedar의 이미지

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

metaprogramming 버전보다는 확실히 느리군요.
위의 메타프로그래밍을 사용한 버전은 스크롤 속도를 느낄 수 없을 정도로
순간적으로 표시됩니다.
cinsk의 이미지

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

cinsk의 이미지

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)
yui의 이미지

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

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

nML

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

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

alfalf의 이미지

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

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

이거 혹시...

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

:lol:

h2h1995의 이미지

최종호 wrote:
h2h1995 wrote:
Using Tcl
for{set i 0}{$i < 500}{incr i} {
  puts "I will not throw paper airplanes in class\n"
}

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

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

----------------
http://tcltk.co.kr

neocoin의 이미지

http://squeak.org/

Using Squeak (Smalltalk-80 implementation)

500 timesRepeat: 
	[Transcript show:'I will not throw paper airplanes in class';cr]
neocoin의 이미지

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

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

nohmad의 이미지

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

맹고이의 이미지

Quote:
★(광고)반성문을 무료로 써드립니다★

반성문 쓰느라 많이 힘드시죠?
저희 사이트에 가입만 하시면
반성문을 무료로 써드립니다.
지금 당장 아무일이 없으시더라도 사람 일은 모르는 일...
가입해 두시면 유용하게 쓰일 날이 있을지도 모르죠.
이미 많은 분들이 너무 편하고 그럴 듯 하다고 만족감을 표시하셨습니다.
오셔서 직접 확인해 주세요~

마지막으로 싸이트 성격에 맞지 않는 글을 올렸다면 죄송하게 생각합니다.
넓은 아량으로 이해해 주시기 바라며, 삭제 시 암호는 0000 입니다.
게시판에 글이 등록되는 것을 원치 않으신다면 위 메일 주소로 싸이트의 주소를 보내 주세요.

monpetit의 이미지

또다른 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))
deisys의 이미지

idlock wrote:
Pascal:

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

Unit PrintBlackborad;

var I:Integer;

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

end.

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

B00m의 이미지

전에 나온 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;
pynoos의 이미지

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

awk:

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

pynoos의 이미지

pre-ansi C:

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

재미로....

이한길의 이미지

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

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

nML

fun 반성문(0) = print_string ""
  | 반성문(n) = print_string "I will not throw paper airplanes in class\n"; 반성문(n-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)];

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

----
먼저 알게 된 것을 알려주는 것은 즐거운 일이다!
http://hangulee.springnote.com
http://hangulee.egloos.com

liongo의 이미지

어디 까지 갈까요 ㅡㅡa

I will not throw paper airplanes in class\n

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

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

리눅스는

블럭지정후 shift + insert ㅡㅡa

원츄~!

' 형식이 내용을 규정한다. '

idlock의 이미지

deisys wrote:
idlock wrote:
Pascal:

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

Unit PrintBlackborad;

var I:Integer;

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

end.

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

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

program PrintBlackborad;

var I:Integer;

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

end.
likesam의 이미지

pacal 정확하게는 Delphi에서 실행가능한 형태입니다.^^;

program Project1;
{$APPTYPE CONSOLE}
var i : integer;
begin
  for i := 1 to 500 do
    writeln ('I will not throw paper airplanes in class')
end.

위에서 {$APPTYPE CONSOLE}을 빼시면 에러가 나죠 ^^;
dakiller6의 이미지

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).

eggboy의 이미지

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

semmal의 이미지

let m=("I will not throw paper airplanes in class":m) in take 500 m

------------------------------
How many legs does a dog have?

------------------------------
How many legs does a dog have?

khqwer의 이미지

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

하늘을 한번 보니 내가 너무 불평만을 하고 산 것은 아닐지 하는 생각이 든다...Lovelysky

훌륭한녀석의 이미지

in vi

iI will not throw paper airplanes in class[esc]yy499p

:lol:

barami97의 이미지

500aI will not throw paper airplanes in class CR ESC
꺽쇠는 어떻게 쓰죠?

netj의 이미지

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

그 뒤에

val _ = 반성문 500

을 해야 찍지 않을까요..

hangulee wrote:
예전에 시험문제에..

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

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

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

전자의 첫번째 패턴은 reverse(nil) = nil,
후자에는 tl(x) 대신 reverse(tl(x))로 나오지 않았을까요?

그렇게 바꿔도 함수 패턴과 tl의 구조 때문에 결국 둘은 같을텐데요..
혹시 후자가 틀린 reverse라는 것이 답이었나.. -_-a

shyxu의 이미지

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

이렇게 하면 안 혼나려나?

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

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

Since 2003.
지금은 맥유저...
---
http://jtjoo.com

siabard의 이미지

500 0 do ." I will not throw paper airplanes in class." cr loop

새로움을 느끼기에 삶은 즐겁다..
모험가 아돌 크리스틴을 꿈꾸며..
Sia..

차리서의 이미지

PHP :)

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

혹은
<?php echo str_repeat("I will not throw paper airplanes in class.<br />\n", 500); ?>

--
자본주의, 자유민주주의 사회에서는 결국 자유마저 돈으로 사야하나보다.
사줄테니 제발 팔기나 해다오. 아직 내가 "사겠다"고 말하는 동안에 말이다!

박영선의 이미지

M$ batch

for /L %a in (1,1,500) do @echo I will not throw paper airplanes in class.

M$ qbasic

for i=1 to 500
print "I will not throw paper airplanes in class."
next i

^^;;

이한길의 이미지

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

netj wrote:

그 뒤에
val _ = 반성문 500

을 해야 찍지 않을까요..

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

netj wrote:

전자의 첫번째 패턴은 reverse(nil) = nil,
후자에는 tl(x) 대신 reverse(tl(x))로 나오지 않았을까요?

그렇게 바꿔도 함수 패턴과 tl의 구조 때문에 결국 둘은 같을텐데요..
혹시 후자가 틀린 reverse라는 것이 답이었나.. -_-a

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

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에 관심이 있으신가봐요? 혹시 학생이신지... 저도 학생입니다만...

----
먼저 알게 된 것을 알려주는 것은 즐거운 일이다!
http://hangulee.springnote.com
http://hangulee.egloos.com

revival의 이미지

:idea:

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

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

이거 보구 정말 되는지 한번 해봤는데, 정말 되는군요.
처음보는코드라 신기할 따름.
템플릿을 책에서 보긴봤는데, 이렇게도 써지는지는 몰랐네요.
한수 배우고 갑니다.ㅋㅋ

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

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

한가지 의문이 생겨서 카운트를 찍어봤습니다.
예상은 500, 499, 498로 찍힐줄 알았는데.

1. I will not throw paper airplanes in class
2. I will not throw paper airplanes in class
3. I will not throw paper airplanes in class
4. I will not throw paper airplanes in class

..............

499. I will not throw paper airplanes in class
500. I will not throw paper airplanes in class

1,2,3, 이렇게 증가하면서 찍히네요.
누구 소스 설명좀 해주세요..

초롱초롱 :shock: 눈뜨고 지켜볼게요.ㅎㅎ

----
오늘도 행복한 하루~
@from caesar

snow40의 이미지

감격!
솔직히 저도 500부터 찍힐줄 알았는데... 소스실행해보니 1부터 찍히네요.
C++템플릿 멋집니다!

익명 사용자의 이미지

C 는 C 로 부터 상속받는 것으로 정의 됩니다.

그런데, 클래스의 인스턴스를 만들게 되면,
항상 베이스 클래스가 먼저 만들어 지므로,
가장 숫자가 작은 녀석의 생성자가 먼저 호출됩니다.
그래서 숫자가 오름차순으로 표시됩니다.

...까지만 이해했는데, 더 자세한건 잘 모르겠네요^^

페이지

댓글 달기

Filtered HTML

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

BBCode

  • 텍스트에 BBCode 태그를 사용할 수 있습니다. URL은 자동으로 링크 됩니다.
  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param>
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.

Textile

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • You can use Textile markup to format text.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Markdown

  • 다음 태그를 이용하여 소스 코드 구문 강조를 할 수 있습니다: <code>, <blockcode>, <apache>, <applescript>, <autoconf>, <awk>, <bash>, <c>, <cpp>, <css>, <diff>, <drupal5>, <drupal6>, <gdb>, <html>, <html5>, <java>, <javascript>, <ldif>, <lua>, <make>, <mysql>, <perl>, <perl6>, <php>, <pgsql>, <proftpd>, <python>, <reg>, <spec>, <ruby>. 지원하는 태그 형식: <foo>, [foo].
  • Quick Tips:
    • Two or more spaces at a line's end = Line break
    • Double returns = Paragraph
    • *Single asterisks* or _single underscores_ = Emphasis
    • **Double** or __double__ = Strong
    • This is [a link](http://the.link.example.com "The optional title text")
    For complete details on the Markdown syntax, see the Markdown documentation and Markdown Extra documentation for tables, footnotes, and more.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 사용할 수 있는 HTML 태그: <p><div><span><br><a><em><strong><del><ins><b><i><u><s><pre><code><cite><blockquote><ul><ol><li><dl><dt><dd><table><tr><td><th><thead><tbody><h1><h2><h3><h4><h5><h6><img><embed><object><param><hr>

Plain text

  • HTML 태그를 사용할 수 없습니다.
  • web 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
  • 줄과 단락은 자동으로 분리됩니다.
댓글 첨부 파일
이 댓글에 이미지나 파일을 업로드 합니다.
파일 크기는 8 MB보다 작아야 합니다.
허용할 파일 형식: txt pdf doc xls gif jpg jpeg mp3 png rar zip.
CAPTCHA
이것은 자동으로 스팸을 올리는 것을 막기 위해서 제공됩니다.