Article View: comp.lang.modula2
Article #4745Re: Another Silly programming puzzle....
From: Roger Crew
Date: Mon, 10 Apr 1989 09:10
Date: Mon, 10 Apr 1989 09:10
19 lines
1356 bytes
1356 bytes
In article <1751@aucs.UUCP> 850347s@aucs.UUCP (Hume Smith) writes:
>In <850347s@aucs.UUCP> (Hume Smith) almost, but not quite, wrote
>> exactly why i hate pascal - a hundred lines of illegibility instead of the
>> 2 or 3 you'd have in C.
>
> read that carefully, i do mean the 2 or 3 lines of illegibilty :-)
Three lines of illegibility? No problem...
main(){
register b;
while(~(b=getchar()))
putchar(1+(('@'^--b&'_')<26?b^="\r\017\r\023\025\027\025\023\035\037\035\023\025"[b%32%13]:b));
}
--
Roger Crew ``Beam Wesley into the sun!''
Usenet: {arpa gateways, decwrl, uunet, rutgers}!polya.stanford.edu!crew
Internet: crew@polya.Stanford.EDU
Technical Details
Message-ID:
<CREW.89Apr10021039@polya.Stanford.EDU>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!decwrl!labrea!polya!polya.stanford.edu!crewReferences:
<1210@microsoft.UUCP> <12320@reed.UUCP> <1744@aucs.UUCP> <1751@aucs.UUCP>Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!ucbvax!decwrl!labrea!polya!polya.stanford.edu!crew From: crew@polya.Stanford.EDU (Roger Crew) Newsgroups: comp.lang.modula2,comp.lang.c,comp.lang.pascal Subject: Re: Another Silly programming puzzle.... Message-ID: <CREW.89Apr10021039@polya.Stanford.EDU> Date: 10 Apr 89 09:10:39 GMT References: <1210@microsoft.UUCP> <12320@reed.UUCP> <1744@aucs.UUCP> <1751@aucs.UUCP> Sender: USENET News System <news@polya.Stanford.EDU> Followup-To: comp.lang.modula2 Organization: Stanford University Computer Science Dept. Lines: 19 In-reply-to: 850347s@aucs.UUCP's message of 7 Apr 89 18:43:22 GMT