aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Update all new Tasks

Browse source
This commit is contained in:
Ingy döt Net 2015-02-20 09:02:09 -05:00
parent 00a190b0a6
commit 91df62d461
5697 changed files with 93386 additions and 804 deletions
Download patch file Download diff file Expand all files Collapse all files

35
Task/Odd-word-problem/REXX/odd-word-problem.rexx Normal file
View file

@ -0,0 +1,35 @@
/*REXX program solves the odd word problem by just using byte I/O. */
iFID_ = 'ODDWORD.IN' /*numeric suffix is added later. */
oFID_ = 'ODDWORD.' /* " " " " " */
do case=1 for 2; #=0 /*#: number of characters read.*/
iFID=ifid_ || case /*read ODDWORD.IN1 or ODDWORD.IN2*/
oFID=ofid_ || case /*write ODDWORD.1 or ODDWORD.2 */
say; say; say '──────── reading file: ' iFID "────────"
do until x=='.' /* [↓] perform for odd words. */
do until \datatype(x,'M')
call readChar; call writeChar
end /*until \datatype···*/
if x=='.' then leave /*end─of─sentence? (full stop) */
call readLetters; punctuation_loc=#
/* [↓] perform for even words.*/
do j=#-1 by -1; call readChar j
if \datatype(x,'M') then leave; call writeChar
end /*j*/
call readLetters; call writeChar; #=punctuation_loc
end /*until x ···*/
end /*case*/ /* [↑] process both input files.*/
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────one─liner subroutines───────────────*/
readLetters: do until \datatype(x,'M'); call readChar; end; return
writeChar: call charout ,x; call charout oFID,x; return
serr: say; say '***error!***' arg(1); say; exit 13 /*oops─ay.*/
/*──────────────────────────────────readChar subroutine─────────────────*/
readChar: if lines(iFID)==0 then call serr 'EOF reached.' /*no file.*/
if arg(1)=='' then do; x=charin(ifid); #=#+1; end /*read the next char*/
else x=charin(ifid, arg(1)) /* " specific " */
return