🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.c
Article #4499

One Line Program (Re: IPA92GP (9/16-lap))

#4499
From: Tomohiko Sakamoto
Date: Mon, 21 Sep 1992 12:22
32 lines
1843 bytes
$B$b$O$d!"(Bfj.jokes $B%M%?$G$O$J$$$N$G!"(Bfj.lang.c $B$K0\$C$F$-$^$7$?!#(B
1 $B%i%$%s%W%m%0%i%`$NDj5A$H$$$&$N$OCN$j$^$;$s$,!"$3$3$G$O!"(B256$B%P%$%HL$K~(B
$B$G!"%X%C%@%U%!%$%k$N(B include $B$J$7!"(B; $B$,$R$H$D$@$1!"$H$$$&$3$H$K$7$F$*$-(B
$B$^$7$g$&!#J8;z%3!<%I$O(B ASCII $B$G$9!#(B

=== rot13.c ===
main(c){while((c=getchar())+1)putchar(c+((unsigned)(c|32)-97<13)*26-
((unsigned)(c|32)-97<26)*13);}

=== rev.c ===
main(c){return(c?main(0)?putchar(10),main(1),1:0:(c
=getchar())==-1?0:c==10?1:main(0)?putchar(c),1:0);}

=== revline.c ===
main(){char s[1024],c=gets(s)?main(),puts(s):0;}

=== selfprint.c ===
main(s){s="main(s){s=%c%s%c,printf(s,34,s,34);}",printf(s,34,s,34);}

=== hello.c ===
main(c,v){*((char**)v+c)="hello, world\n",**((char**)v+1)?execlp(*(
char**)v,*(char**)v,*((char**)v+write(1,*((char**)v+1),1))+1,0):0;}

=== dayofweek.c ===
main(y,m,d){while(scanf("%d%d%d",&y,&m,&d)==3)y-=m<3,puts((y+y/4-y/100+
y/400+"-bed=pen+mad."[m]+d)%7*4+"Sun\0Mon\0Tue\0Wed\0Thu\0Fri\0Sat");}

$BB>$KLLGr$$%W%m%0%i%`$r$4B8CN$NJ}!"%U%)%m!<$h$m$7$/!#(B

--
$B:dK\CRI'(B
sakamoto@sm.sony.co.jp
Technical Details
Message-ID: <1992Sep21.122206.19594@sm.sony.co.jp>
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!wnoc-tyo-news!scslwide!wsgw!wsservra!sakamoto
References: <3764@akiu.gw.tohoku.ac.jp>

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 106434,266d33b143171c9
X-Google-Attributes: gid106434,public
X-Google-ArrivalTime: 1992-09-20 23:02:42 PST
Path: arc1-ca.pugleaf.net!sparky!uunet!ccut!wnoc-tyo-news!scslwide!wsgw!wsservra!sakamoto
From: sakamoto@sm.sony.co.jp (Tomohiko Sakamoto)
Newsgroups: fj.lang.c
Subject: One Line Program (Re: IPA92GP (9/16-lap))
Message-ID: <1992Sep21.122206.19594@sm.sony.co.jp>
Date: 21 Sep 92 12:22:06 GMT
References: <3764@akiu.gw.tohoku.ac.jp>
Sender: news@sm.sony.co.jp (Usenet News System)
Reply-To: sakamoto@sm.sony.co.jp
Distribution: fj
Organization: Workstation Div., Supermicro Systems Group, Sony Corporation
Lines: 32
Nntp-Posting-Host: sak3