SQL

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

^^;;;

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

5554***:!v!:,*25-1<
        @_0v>:#,_$^
v"n class."<^"I will not "<
>"i senalpria repap worht"^

Befunge(정확히는 Befunge-93) 버전입니다.

- 토끼군

약간 업그레이드해서,

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

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

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

10 for i = 1 to 500 : print "blar blar~" : next i

run
blar blar~
blar blar~
blar blar~
blar blar~
blar blar~
     :

 

옛날 생각이 나서 그만.

groovy 로 하면..

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

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

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

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

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() 순서가 되지요.

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:

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

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

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

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

vi 버젼입니다 ^^

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

vi 버전

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

Lua 버전입니다.

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

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

C#

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]

JSP

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

C

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

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

VWNC Smalltalk

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

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

않나네요...^^

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

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

<HTML>
<HEAD>
<TITLE> 반성문 </TITLE>
</HEAD>
<BODY>
<SCRIPT language="JavaScript1.1">
<!---
var n;
for(var i=1; i<500; i++)
{
res=prompt("제 "+i+"회 : I will not throw paper airplanes in class", "모르겠다!!!");
if(res!="네, 알겠습니다!") i--;
}
//--->
</SCRIPT>
</BODY>
</HTML>

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

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

[모르겠다!!!]

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

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

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

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

??=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중자가 안될리가 없죠.

욱교 ㅋ

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

Io

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

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

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

중복;

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

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

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

- Tirin.

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

44

yy500p

500OI will not throw paper airplanes in class.

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

Ctrl+c 1회 Ctrl+v 50회

..
시작->실행->cmd

c:\>dir

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

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

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

이쓰레드 지존이군효;

중복이라 수정했습니다;

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

#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();
    }
 
}

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

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

Haskell

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

• dahlia.kr
• 한국 Io 사용자 모임
• LangDev

R로 짜봤습니다.

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

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

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

본방 사수 -_-ㅋ

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

코딩 완료~!~!?

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

PostgreSQL

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

• dahlia.kr
• 한국 Io 사용자 모임
• LangDev

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

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

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

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

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

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