Path: 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: 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 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 Xref: utzoo comp.lang.modula2:1415 comp.lang.c:17552 comp.lang.pascal:1691 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