C vs Perl

글쓴이: idlock / 작성시간: 금, 2003/12/05 - 12:33오후

Original Fox Trot Comic using C code.

Standard Perl Statement

Perl one-liner

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

거기까지..~~!

글쓴이: jjjajh / 작성시간: 월, 2008/09/15 - 4:24오후

ㅇㅋ

1소대3중대24번훈련병03-760749051대대todqud

답글

SQL[code:1]SELECT REPEAT("I

글쓴이: jinoos / 작성시간: 목, 2004/06/03 - 8:05오후

SQL

SELECT REPEAT("I will not throw paper airplanes in class\n", 500);

^^;;;

목적을 찾아서... jiNoos

답글

rexx 유저는 없나요 ???

글쓴이: dalekang / 작성시간: 일, 2004/06/06 - 4:14오후

ncrx -c 'do i=1 to 500; say "I will not throw paper airplanes in class."; end'

답글

Re: 저도 이걸 노렸죠 -.-

글쓴이: cppig1995 / 작성시간: 토, 2004/12/25 - 4:43오후

idlock wrote:

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

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

약간 업그레이드해서,

#include <iostream>

using namespace std;

class Sorry
{
     private:

     void Print()
     {
           cout << "I will not throw paper airplanes in class." << endl;
     }

     public:

     Sorry()
     {
          Print();
     }

     ~Sorry()
    {
          Print();
    }
}

int main()
{
      Sorry arr[250];

      return 1;
}

Real programmers /* don't */ comment their code.
If it was hard to write, it should be /* hard to */ read.

답글

[quote="Bini"][b]Clean[/b] 간단히 Start함수

글쓴이: Bini / 작성시간: 토, 2004/12/25 - 5:53오후

Bini wrote:

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)
				       = ""

이주제를 또 보게되는군요
예전에 제가 쓴것을 보니 초짜표시가 나네요 ^^;
지금같으면 요렇게...

Some_Str :== "I will not throw paper airplanes in class.\n"

Start :: *World -> *World
Start world = snd (fclose (c <<< (foldl (+++) "" (repeatn 500 Some_Str))) w)
where
    (c, w) = stdio world

답글

groovy 로 하면..[code:1]groovy -e "p

글쓴이: galien / 작성시간: 금, 2005/01/21 - 1:17오전

groovy 로 하면..

groovy -e "println 'I will not throw paper airplanes in class.\n' * 500"

아 언넝 프로젝 마치고 그루비 번역 들어가야 할텐데..

답글

pl/pgsql[code:1]CREATE FUNCTION pl_pgs

글쓴이: 소타 / 작성시간: 금, 2005/01/21 - 1:58오전

pl/pgsql

CREATE FUNCTION pl_pgsql_version() RETURNS SETOF "pg_catalog"."record" AS 'DECLARE i int; node record; BEGIN FOR i IN 0..499 LOOP SELECT INTO node ''I will not throw paper airplanes in class.''::text; RETURN NEXT node; END LOOP;RETURN;END'LANGUAGE 'plpgsql';

SELECT * from pl_pgsql_version() as (pgsql_version text);

답글

Haskell

글쓴이: blitzerg / 작성시간: 금, 2005/01/21 - 11:25오전

Haskell
start s = [ y | x <- [1..500], y <- "I will not throw paper airplanes in class.\n" ]

답글

TeX:[code:1]\newcount\n\def\punishme

글쓴이: 김도현 / 작성시간: 금, 2005/01/21 - 12:46오후

TeX:

\newcount\n
\def\punishment#1#2{\n=0
  \loop\ifnum\n<#2 \advance\n by1
    \item{\number\n.}#1\endgraf\repeat}
\punishment{I will not throw paper airplanes in class.}{500}
\bye

반성문이니까 예쁘게 출력해가야죠.

답글

오!! TeX macro인가요?

글쓴이: 익명 사용자 / 작성시간: 목, 2007/10/25 - 9:41오전

TeX macro를 이렇게도 활용하는구나 싶어 TeXBook을 살펴보니...

EXERCISE 20.1
Write a \punishment macro that prints 100 lines containing the message 'I must not talk in class.' [Hint: First write a macro \mustnt that prints the message once; then write a macro \five that prints it five times.]

라는 연습문제까지 있군요.

답글

Re: 감격 :oops:

글쓴이: jof4002 / 작성시간: 금, 2005/01/21 - 1:30오후

revival wrote:

: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;
한가지 의문이 생겨서 카운트를 찍어봤습니다.
예상은 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: 눈뜨고 지켜볼게요.ㅎㅎ

C<500>은 C<499>를 상속받습니다. C<499>는 C<498>을 상속받고요. 계속 가다가 C<1>은 C<0>을 상속받으면서 끝나지요.

그리고 C++에서는 클래스의 인스턴스가 생길 때 부모의 생성자부터 불리게 되어있습니다.

따라서 실행되는 생성자는 C<0>::C(), C<1>::C() ... C<499>::C(), C<500>::C() 순서가 되지요.

답글

know where

글쓴이: musik / 작성시간: 금, 2005/01/21 - 1:41오후

http://www.ggorro.com/zeroboard/db/view.php?id=ggo01&page=1&sn1=&divpage=1&sn=off&ss=on&sc=on&select_arrange=headnum&desc=asc&no=1117

진태형님한테 혼날라나 :twisted:

답글

Objective C:

글쓴이: nytereider / 작성시간: 금, 2005/01/21 - 6:34오후

Objective C:

#import <Foundation/NSObject.h>

@interface IamSorry : NSObject
{
@private

@protected
char *iamSorry;
}

- init;
-(void)printSorry;
@end

@implementation IamSorry
-init {
iamSorry="I will not throw paper airplanes in class\n";
return self;
}

-printSorry {
for(int count=0;count<500;count++) {
printf(iamSorry);
}

@end

int main() {
id iamSorry=[[IamSorry alloc] init];
[iamSorry print];
return 0;
}

이걸 약간 업그레이드해서 NSString을 쓰도록 한다면...

#import <Foundation/NSObject.h>

@interface IamSorry : NSObject
{
@private
NSString *iamSorry;
}

- initSorry: (NSString*)sorryString;
- (void)printSorry;
@end

@implementation IamSorry

-initSorry:(NSString*)sorryString {
if (sorryString == nil) {
iamSorry= @"I will not throw paper airplanes in class";
}
else { iamSorry=sorryString; }
return self;
}

-(void)printSorry {
for(int c=0;c<500;c++) {
NSLog(@"%@\n", iamSorry);
}
}

@end

int main() {
id iamSorry=[[IamSorry alloc] initString:nil];
NSAutoreleasePool *pool=[NSAutoreleasePool new];

[iamSorry printSorry];

RELEASE(iamSorry);
RELEASE(pool);

return 0;
}

답글

[code:1]ftp> get foxtrox_orig_c.gif

글쓴이: clublaw / 작성시간: 금, 2005/01/21 - 9:01오후

ftp> get foxtrox_orig_c.gif
ftp> get foxtrox_perl_code.gif
ftp> get foxtrox_1_line_perl_code.gif

"빈손으로 사랑하려는 자에게 세상은 너무 가혹하다."

답글

내공 50

글쓴이: 죠커 / 작성시간: 월, 2005/01/24 - 2:21오후

반성문 프로그램 풀어주세요.

내공 50 드리겠습니다. ㅜㅜ

- 죠커's blog / HanIRC:#CN

답글

vi 버젼

글쓴이: loblue / 작성시간: 월, 2005/01/24 - 8:03오후

vi 버젼입니다 ^^

$vi
iI will not throw paper airplanes in class^[yy499p

Shaun Park

답글

vi 버전500iI will not throw paper airp

글쓴이: only2sea / 작성시간: 월, 2005/01/31 - 2:49오후

vi 버전

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

블로그: http://turtleforward.blogspot.com

답글

Lua 버전입니다.[code:1]for i=1, 500 do pr

글쓴이: exman / 작성시간: 월, 2005/01/31 - 9:00오후

Lua 버전입니다.

for i=1, 500 do print("I will not throw paper airplanes in class") end

근데 이게 주제와 무슨 상관이지 ~.~

http://www.exman.pe.kr

답글

C#으로도;;;;

글쓴이: superwtk / 작성시간: 화, 2005/02/22 - 10:46오후

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

히힛=_=ㅋ[/code]

답글

[b]JSP[/b][code:1]<% for &#40

글쓴이: natas999 / 작성시간: 일, 2005/02/27 - 3:53오후

JSP

<%
	for (int ix=0; ix < 500; ix++) {
		out.println ("I will not throw paper airplanes in class<br>");
	}
%>

# emerge girl-friend
Calculating dependencies
!!! All wemen who could satisfy "girl-friend" have been masked.

답글

C[code:1]#define a(x) x x#

글쓴이: lsj0713 / 작성시간: 일, 2005/02/27 - 11:54오후

#define a(x) x x
#define b(x) x x x x x
main(){puts(a(a(b(b(b("I will not throw paper airplanes in class"))))));return 0;}

답글

GNU Smallktalk 버전...

글쓴이: ghost / 작성시간: 금, 2005/03/04 - 10:00오후

GNU Smalltalk

 500 timesRepeat: [ 'I will not throw paper airplanes in class' printNl ] !

답글

VWNC Smalltalk 버전 ...

글쓴이: ghost / 작성시간: 금, 2005/03/04 - 10:26오후

VWNC Smalltalk

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

답글

Java!![code:1]class Badaga6giRamyun&#1

글쓴이: Vadis / 작성시간: 월, 2005/03/07 - 4:28오후

Java!!

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

Java가 빠졌더군요...근데 맞는지 모르겠군요...Java를 한지 몇 년이 되어서 기억이 잘

않나네요...^^

SQL

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

CREATE proc   Badaga6giramyun
@i int,
as
while (i < 500)
begin
set i = i + 1
insert into Badaga(BansungMun) select  'I will not throw paper airplanes in class'
end
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

exec Badaga6giramyun '0'

select BansungMun from Badaga

SQL은 심심해서 만들어 봤습니다. 출장와서 별 짓을 다하고 제가 한심스럽군요...혼자 출

장이라서 밤이 외롭습니다..

좋은 날 즐거운 날....

답글

JavaScript - Upgrade

글쓴이: cppig1995 / 작성시간: 일, 2005/04/03 - 1:32오후

틀린 부분이 있겠지만 선생님이 이 파일을 실행시키면

[제 1회 : I will not throw paper airplanes in class]

[모르겠다!!!]

이런 창이 뜰 겁니다. 모르겠다!!! 를 지우고,
네, 알겠습니다! 를 입력하고 확인 단추를 누르는
과정을 500번 반복해야 합니다.

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

Real programmers /* don't */ comment their code.
If it was hard to write, it should be /* hard to */ read.

답글

[quote="lsj0713"]C[code:1]#define a&

글쓴이: cppig1995 / 작성시간: 목, 2006/01/26 - 2:01오후

lsj0713 wrote:

#define a(x) x x
#define b(x) x x x x x
main(){printf(a(a(b(b(b("I will not throw paper airplanes in class\n"))))));return 0;}

lsj0713, 네, 실행해 봐야 오류를 알게 되겠죠?
I will... 다 붙어나오고 끝에만 \n (puts니까) 나오면 어떡해요

Real programmers /* don't */ comment their code.
If it was hard to write, it should be /* hard to */ read.

답글

C++...[code:1]#include <iostream&

글쓴이: IDNed / 작성시간: 금, 2006/01/27 - 11:19오전

C++...

#include <iostream>
#include <string>
using namespace std;
class Sorry{
public:
static int i;
Sorry(){cout << "I will not throw paper airplanes in class" << endl;++i;}
~Sorry(){if(i!=500) Sorry again;}
}
int Sorry::i=0;
int main(){
   Sorry huh;
   return 0;
}

답글

[code:1]??=include <stdio.h>??

글쓴이: 죠커 / 작성시간: 수, 2006/02/22 - 3:18오후

??=include			<stdio.h>
??=define	OK		int ??/
	main()
??=define	I		int ??/
	i
??=define	SAY		printf ??/
	(
??=define	TO		"Content-Type: " ??/
					"text/html\r\n\r\n"
??=define	YOU		for(i=500; ??/
	i;--i)
??=define	WILL	"I will not throw paper" ??/
					"airplanes in class<br />\n")
??=define	KO		return ??/
	0
OK ??< I; SAY TO); YOU

SAY WILL;KO;??>

말이 이상하지만 귀찮아서 그냥 올려요.
VS2005에서도 아직 이중자가 안되는 군요 -_-

- 죠커's blog / HanIRC:#CN

답글

[quote="CN"][code:1]??=include <std

글쓴이: IDNed / 작성시간: 수, 2006/03/01 - 6:30오후

CN wrote:

??=include			<stdio.h>
??=define	OK		int ??/
	main()
??=define	I		int ??/
	i
??=define	SAY		printf ??/
	(
??=define	TO		"Content-Type: " ??/
					"text/html\r\n\r\n"
??=define	YOU		for(i=500; ??/
	i;--i)
??=define	WILL	"I will not throw paper" ??/
					"airplanes in class<br />\n")
??=define	KO		return ??/
	0
OK ??< I; SAY TO); YOU

SAY WILL;KO;??>

말이 이상하지만 귀찮아서 그냥 올려요.
VS2005에서도 아직 이중자가 안되는 군요 -_-

이중자가 아니라 삼중자입니다 :)

혹시 모르는 분을 위한 설명하자면 C++(C도 해당되요? --)에서 # 등의 문자 못쓰는 플랫폼을 위해 3글자를 그런 글자로 바꾸는 흔치않은 표준인걸로 압니다만. :wink:

답글

[quote="IDNed"][quote="CN"][code:1]??=in

글쓴이: 죠커 / 작성시간: 수, 2006/03/01 - 8:09오후

IDNed wrote:

CN wrote:
??=include			<stdio.h>
??=define	OK		int ??/
	main()
??=define	I		int ??/
	i
??=define	SAY		printf ??/
	(
??=define	TO		"Content-Type: " ??/
					"text/html\r\n\r\n"
??=define	YOU		for(i=500; ??/
	i;--i)
??=define	WILL	"I will not throw paper" ??/
					"airplanes in class<br />\n")
??=define	KO		return ??/
	0
OK ??< I; SAY TO); YOU

SAY WILL;KO;??>
말이 이상하지만 귀찮아서 그냥 올려요.
VS2005에서도 아직 이중자가 안되는 군요 -_-
이중자가 아니라 삼중자입니다 :)

혹시 모르는 분을 위한 설명하자면 C++(C도 해당되요? --)에서 # 등의 문자 못쓰는 플랫폼을 위해 3글자를 그런 글자로 바꾸는 흔치않은 표준인걸로 압니다만. :wink:

이중자가 안되어서 3중자를 사용했습니다. VC에서 3중자가 안될리가 없죠.

- 죠커's blog / HanIRC:#CN

답글

1. 이중자(digraph)는

글쓴이: cppig1995 / 작성시간: 화, 2006/10/31 - 7:57오전

1. 이중자(digraph)는 C99에서 추가된 기능이니까 아직 C++에는 없지 않나요?
2. 그리고 VS2005가 부분적으로 C99를 지키기 때문에 없을 확률이 매우 높고,
3. VS2005는 C++98도 다 지키지는 않으니까(export 외 수 개 지원 안함)
당연히 이중자가 없겠죠....

Real programmers /* don't */ comment their code.
If it was hard to write, it should be /* hard to */ read.

답글

욱교 ㅋ

글쓴이: Anonymous-kei / 작성시간: 화, 2006/03/21 - 9:37오후

욱교 ㅋ

답글

PERL

글쓴이: 김민영. / 작성시간: 월, 2006/07/03 - 2:19오후

perl -e "print qq{sorry\n}x500"

#!/usr/bin/perl
##########################################################
for ($i=0;$i<1;$i++,$i--) {
select(undef,undef,undef, 0.5000),print "사랑합니다.\n" if((!$You_Love_Me)&&($Dead_of_My_Heart));
}

답글

Io 500 repeat("I will not

글쓴이: hongminhee / 작성시간: 금, 2007/03/16 - 3:37오후

500 repeat("I will not throw paper airplanes in class." println)

답글

Io, 약간 다른 버전. "I

글쓴이: hongminhee / 작성시간: 수, 2007/05/09 - 1:03오후

Io, 약간 다른 버전.

"I will not throw paper airplanes in class.\n" repeated(500) print

답글

Io 코드500 repeat("I will

글쓴이: hongminhee / 작성시간: 금, 2007/03/16 - 3:39오후

켁. 안 달리는 줄 알았는데 다음 페이지에 달리는 거였군요. 삭제도 못하네요

답글

감동 yes

글쓴이: sunshout / 작성시간: 금, 2007/03/16 - 8:41오후

너무 오래된 글이지만 yes 감동입니다.

Nothing will be happen.

답글

C# 버전이 없네요~

글쓴이: blueiur / 작성시간: 월, 2008/12/01 - 9:42오전

중복;

답글

C# 버전입니다.

글쓴이: blueiur / 작성시간: 월, 2007/05/07 - 2:19오후

최대한 무식하고 길게 짰습니다.
초보 티란 바로 이런 것이죠!

using System;
 
namespace banSung
{
	public class Paper
	{
		private String stateMent = "I will not throw paper airplanes in class";
 
		public Paper(String Text)
		{
			this.stateMent = Text;
		}
 
		public void ShowStateMent()
		{
			Console.WriteLine(this.stateMent);
		}
	};
 
	public class PaperManager
	{
		private Paper[] paperList;
 
		public PaperManager(int Num, String Text)
		{
			paperList = new Paper[Num];
 
			for(int i=0; i<Num; i++)
			{
				this.paperList[i] = new Paper(Text);
			}
		}
 
		public void ShowAll()
		{
			foreach (Paper p in this.paperList)
			{
				p.ShowStateMent();
			}
		}
	};
}
 
namespace App
{
	using banSung;
 
	class Application
	{	
		[STAThread]
		static void Main(string[] args)
		{			
			String text = "I will not throw paper airplanes in class";
 
			PaperManager PM = new PaperManager(500, text);
			PM.ShowAll();
		}
	}
}

답글

루비?

글쓴이: Tirin / 작성시간: 월, 2007/05/07 - 2:37오후

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

- Tirin.

답글

another vi version

글쓴이: 익명사용자 / 작성시간: 화, 2007/05/08 - 3:27오후

:map q iI will now throw paper air planes in the class.
500q

답글

44

글쓴이: blueiur / 작성시간: 금, 2007/05/11 - 4:24오후

답글

vim

글쓴이: 익명 사용자 / 작성시간: 화, 2007/08/07 - 5:04오후

yy500p

답글

Vim one-liner?

글쓴이: blmarket / 작성시간: 목, 2007/10/25 - 4:14오후

500OI will not throw paper airplanes in class.

Asche Zu Asche

답글

dir 므흐흐

글쓴이: angpang27 / 작성시간: 금, 2007/12/28 - 5:29오후

윈도우 탐색기
c:\>에 .. 파일만들기_이름(I will not throw paper airplanes in class)

Ctrl+c 1회 Ctrl+v 50회

..
시작->실행->cmd

c:\>dir

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

답글

아직 대망의 brainfuck이 없는것 같네요.

글쓴이: kcm1700 / 작성시간: 토, 2008/06/28 - 8:20오후

한 번, 간단히 짜서 올려봅니다.
흐음~

++++++++++[>+++++++>++++++++++>+++>+>+++++<<<<<-]>>>>>[>++++++++++[<<<<<+++.--->>++.<+++++++++++++++++++.--------------.+++..>.<++.+.+++++.>.<.------------.++++++++++.---.++++++++.>.<-------.---------------.+++++++++++++++.-----------.+++++++++++++.>.<-----------------.++++++++.+++++++++.--.----.-----------.+++++++++++++.---------.++++++++++++++.>.<----------.+++++.>.<-----------.+++++++++.-----------.++++++++++++++++++..--------------->-->.>>-]<-]

답글

유물 발굴에 동참하며 Erlang 버전 올립니다.

글쓴이: grassman / 작성시간: 일, 2008/06/29 - 11:43오전

-module(sorry).
-export([apologize/1, main/1]).

apologize(0) -> nil;
apologize(N) -> apologize(N-1), io:fwrite("I will not throw paper airplanes in class\n").

main(_) -> apologize(500).

답글

이쓰레드 지존이군효;

글쓴이: g0rg0n / 작성시간: 월, 2008/06/30 - 11:13오전

이쓰레드 지존이군효;

답글

죄송

글쓴이: g0rg0n / 작성시간: 월, 2008/06/30 - 1:34오후

중복이라 수정했습니다;

답글

wxWidgets로 한번 짜 보았습니다.

글쓴이: noblepylon / 작성시간: 수, 2008/07/02 - 4:45오전

GUI는 없길래 한번 짜 보았습니다.
화면에 표시해주는 것은 물론 txt파일로 내보내는 기능도 있습니다.

ps. 제가 초보라서 코드가 약간 ㅂㅌ같습니다.
ps2. Win32바이너리와 리눅스 i386바이너리를 첨부하였습니다. 64비트용은 안타깝게도 없습니다.
print.h:

#ifndef PRINT_H_INCLUDED
#define PRINT_H_INCLUDED
 
#include < wx/wx.h >
 
class Sorry : public wxFrame
{
public:
    Sorry(const wxString& title);
 
    wxPanel* Layout;
 
    wxString* Buf;
    wxTextCtrl* str;
    wxButton* quit;
    wxButton* import;
 
    void OnQuit(wxCommandEvent & event);
    void OnImport(wxCommandEvent & event);
};
 
const int ID_IMPORT = 101;
 
#endif // PRINT_H_INCLUDED

print.cpp:

#include "print.h"
#include < wx/textctrl.h >
#include < wx/file.h >
#include < wx/filedlg.h >
 
Sorry::Sorry(const wxString& title)
        : wxFrame(NULL, wxID_ANY, title, wxDefaultPosition, wxSize(670, 615))
{
    Layout = new wxPanel(this, wxID_ANY, wxPoint(0, 0), wxSize(660, 575), wxBORDER_NONE);
 
    Buf = new wxString;
    for(int i = 0; i < 500; i++) {
        *Buf += wxT("I will not throw paper airplanes in class. ");
        #if defined __WXMSW__
            if(i % 2) *Buf += wxT("\r\n");
        #elif defined __WXMAC__
            if(i % 2) *Buf += wxT("\r");
        #elif defined __UNIX__
            if(i % 2) *Buf += wxT("\n");
        #endif
    }
    str = new wxTextCtrl(Layout, wxID_ANY, *Buf, wxPoint(0, 0), wxSize(660, 540), wxTE_MULTILINE);
    str->SetFont(wxFont(12, wxFONTFAMILY_DECORATIVE, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL, false));
 
    import = new wxButton(Layout, wxID_EXIT, wxT("Import..."), wxPoint(460, 540), wxSize(100,35));
    Connect(wxID_EXIT, wxEVT_COMMAND_BUTTON_CLICKED, wxCommandEventHandler(Sorry::OnImport));
    import->SetFocus();
    quit = new wxButton(Layout, ID_IMPORT, wxT("Quit"), wxPoint(560, 540), wxSize(100,35));
    Connect(ID_IMPORT, wxEVT_COMMAND_BUTTON_CLICKED, wxCommandEventHandler(Sorry::OnQuit));
 
    SetIcon(wxIcon(wxT("std")));
    this->Center();
}
 
void Sorry::OnQuit(wxCommandEvent & WXUNUSED(event))
{
    Close(true);
}
 
void Sorry::OnImport(wxCommandEvent & WXUNUSED(event))
{
    wxString* caption = new wxString(wxT("Import As..."));
    wxString* wildcard = new wxString(wxT("Text files (*.txt)|*.txt"));
    wxString* defaultDir = new wxString(wxT("."));
    wxString* defaultFilename = new wxString(wxT("Sorry.txt"));
    wxFile* file = new wxFile;
    wxMessageDialog *info;
 
    wxFileDialog* dialog = new wxFileDialog(this, *caption, *defaultDir, *defaultFilename, *wildcard, wxSAVE | wxOVERWRITE_PROMPT);
 
    if (dialog->ShowModal() == wxID_OK) {
        file->Create(dialog->GetPath(), true);
        file->Write(*Buf);
        file->Close();
        info = new wxMessageDialog(NULL, wxT("Imported as ") + dialog->GetFilename() + wxT("."), wxT("Info"), wxOK);
        info->ShowModal();
    } else {
        info = new wxMessageDialog(NULL, wxT("Import failed."), wxT("Error"), wxICON_ERROR);
        info->ShowModal();
    }
 
}

main.h:

#ifndef MAIN_H_INCLUDED
#define MAIN_H_INCLUDED
 
#include < wx/wx.h >
 
class SorryApp : public wxApp
{
public:
    virtual bool OnInit();
};
 
#endif // MAIN_H_INCLUDED

main.cpp:

#include "print.h"
#include "main.h"
 
IMPLEMENT_APP(SorryApp)
 
bool SorryApp::OnInit()
{
    Sorry* t = new Sorry(wxT("Sorry."));
    t->Show(true);
 
    return true;
}

---
"The truth will make you free."(John 8:32)
"I am the way, and the truth, and the life: no one comes to the Father but through Me."(John 14:6)

댓글 첨부 파일:

첨부	파일 크기
Print text(Win32).zip	865.71 KB
Print Text(Linux-i386).zip	26.21 KB

---
“내게 능력주시는 자 안에서 내가 모든 것을 할 수 있느니라.”(빌립보서 4:13)

답글

Haskell

글쓴이: hongminhee / 작성시간: 화, 2008/07/01 - 5:46오후

Haskell

apologize n = concat ["I will not throw paper airplanes in class\n" | _ <- [1..n]]

답글

R로 짜봤습니다.

글쓴이: 김동수 / 작성시간: 수, 2008/07/02 - 1:23오전

R로 짜봤습니다.

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

R쓰시는분은 안계시나요?
-------------------------------------
김동수 - PublicEnemy

김동수 - Prototype for Evolution

답글

흡....

글쓴이: hyunuck / 작성시간: 화, 2008/08/19 - 12:28오후

2페이지인줄 모르고 올렸는데 안지워지네요... ㅜ.ㅜ

답글

전 이거 몇년전에 본거 같은데 ㅡ.ㅡ;

글쓴이: hazemuse / 작성시간: 월, 2008/08/25 - 1:46오후

본방 사수 -_-ㅋ

땀나는 맛이 있기에 세상은 살맛나는 것이지

답글

ㄲㄴ?

글쓴이: jjjajh / 작성시간: 월, 2008/09/15 - 4:20오후

코딩 완료~!~!?

1소대3중대24번훈련병03-760749051대대todqud

답글

386zjavbxj sjsms286zjavbxj sksms?~~!!

글쓴이: jjjajh / 작성시간: 월, 2008/09/15 - 4:29오후

내전화번호는01077568122
내사무실은07081138122
너의사무실은?
아니면..

1소대3중대24번훈련병03-760749051대대todqud

답글

PostgreSQL

글쓴이: hongminhee / 작성시간: 월, 2008/09/15 - 8:41오후

PostgreSQL

SELECT 'I will not throw paper airplanes in class.' FROM generate_series(1, 500);

답글

Factor

글쓴이: ageldama / 작성시간: 목, 2009/02/19 - 10:02오전

USING: math formatting ;
 
500 [ "I will not throw paper airplanes in class.\n" printf ] times

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

답글

첫 글 올라온 지 6년만에 제대로 반항을 해봤습니다.

글쓴이: raymundo / 작성시간: 일, 2009/04/05 - 11:09오전

yes 를 사용한 것보다는 오히려 수위가 낮은 반항이 아닐까 싶긴 한데 ^^;;;;

- 제대로 수행되는 Perl 코드 맞습니다. :-)

- 저의 뛰어난 능력으로 만든...건 당연히 아니고 OTL

CPAN에서 이런 변환을 해주는 모듈을 찾아서 이용했습니다.

                                                                        (
                                                                '')=~('('.
                                                         '?'.'{'.('`'|'%')
                                                  .('['^'-').('`'|('!')).(
                                           '`'|',').'"'.('['^'+').('['^')'
                                   ).('`'|')').('`'|'.').('['^'/').(('{')^
                            '[').'\\'.'"'.('`'^')').('{'^'[').('['^"\,").(
                    '`'|')').('`'|',').('`'|',').('{'^'[').('`'|'.').('`'|
             '/').('['^'/').('{'^'[').('{'^'/').('`'|'(').('['^')').("\`"|
      '/').('['^',').('{'^'[').('['^'+').('`'|'!').('['^'+'). ('`'|"\%").(
      '['^')').('{'^'[').('`'|'!').('`'|')').('['^')').('['  ^'+').(('`')|
        ',').('`'|'!').('`'|'.').('`'|'%').('['^'(').('{'^  '[').('`'|')')
           .('`'|'.').('{'^'[').('`'|'#').('`'|',').('`'  |'!').('['^'(').(
             '['^'(').'.'.'\\'.'\\'.('`'|'.').'\\'.'"'   .('{'^'[').(('[')^
                '#').('{'^'[').('^'^('`'|'+')).('^'^    ('`'|'.')).(('^')^(
                   '`'|'.')).';'.('!'^'+').('!'^'+'    ).'"'.'}'.(')'));$:=
                      '.'^'~';$~='@'|'(';$^="\)"^     '[';$/='`'|'.';$,='('
                        ^'}';$\='`'|'!';$:=')'^      '}';$~='*'|'`';$^='+'^
                           '_';$/='&'|'@';$,=      '['&'~';$\=','^('|');$:=
                              '.'^'~';$~='@'      |'(';$^=')'^'[';$/=('`')|
                                '.';$,='('       ^'}';$\='`'|'!';$:=')'^'}'
                                   ;($~)        ='*'|'`';$^='+'^'_';$/='&'|
                                  '@';         $,='['&'~';$\=','^'|';$:='.'
                                ^'~';        $~='@'|'(';$^=')'^'[';$/="\`"|
                              "\.";       $,='('^'}';$\='`'|'!';$:=')'^"\}";
                             ($~)     ="\*"|    '`';$^='+'^'_';$/='&'|'@';$,
                           ='['    &"\~";         $\=','^'|';$:='.'^"\~";$~=
                         "\@"| '(';$^                =')'^'[';$/='`'|'.';$,=
                       '('^'}';$\=                      '`'|'!';$:=')'^"\}";
                      $~="\*"|                             '`';$^='+'^'_';$/
                    ="\&"|                                    '@';$,='['&'~'
                   ;$\=                                          ','^'|';$:=
                                                                   '.'^"\~";
                $~                                                    ="\@"|
             '(';                                                        #;#
            ;#
            ;#;
             #;
             #
           ;#
          ;#
       ;#;

좋은 하루 되세요!

답글

페이지

댓글 달기

이름

제목

댓글 *

텍스트 포맷에 대한 자세한 정보

텍스트 양식

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 주소와/이메일 주소를 클릭할 수 있는 링크로 자동으로 바꿉니다.
줄과 단락은 자동으로 분리됩니다.

CAPTCHA

이것은 자동으로 스팸을 올리는 것을 막기 위해서 제공됩니다.

부 메뉴

현재 위치

C vs Perl

댓글

페이지

댓글 달기

Filtered HTML

BBCode

Textile

Markdown

Plain text

주 메뉴

검색 폼

둘러보기

사용자 로그인

Oauth2 Login :