Anonymous user
Reverse the gender of a string: Difference between revisions
→{{header|REXX}}: added/changed comments, added many more "gender" words, changed indentations.
(Added Kotlin) |
(→{{header|REXX}}: added/changed comments, added many more "gender" words, changed indentations.) |
||
Line 419:
Not much effort was put into compressing the words (as far as pluralizing and constructing the
various forms of words). More code could be written to parse words that have a minus or hyphen.
<lang rexx>/*REXX program
parse arg old
if old='' then old='When a new-hatched savage running wild about his native woodlands in',
'a grass clout, followed by the nibbling goats, as if he were a green',
'sapling; even then, in Queequegs ambitious soul, lurked a strong' ,
'desire to see something more of Christendom than a specimen whaler' ,
'or two. His father was a High Chief, a King; his uncle a High' ,
'Priest; and on the maternal side he boasted aunts who were the wives',
'of unconquerable warriors. There was excellent blood in his' ,
'veins-royal stuff; though sadly vitiated, I fear, by the cannibal' ,
'propensity he nourished in his untutored youth.'
call tell old, ' old ' /*show a nicely parsed "old" text. */
@=@ "abboty abbess"
@=@
@=@
@=@ "ad-man ad-woman ad-men ad-women"
@=@ "adboy adgirl"
@=@ "adman adwoman admen adwomen"
@=@
@=@ "adonis belle"
@=@ "adulterer adultress"
@=@ "agribusinessboy agribusinessgirl"
@=@ "agribusinessman agribusinesswoman agribusinessmen agribusinesswomen"
@=@ "aidboy aidgirl"
@=@ "aidman aidwoman aidmen aidwomen"
@=@ "airboy airgirl"
@=@ "aircraftboy aircraftgirl"
@=@ "aircraftman aircraftwoman aircraftmen aircraftwomen"
@=@ "aircraftsboy aircraftsgirl"
@=@ "aircraftsman aircraftswoman aircraftsmen aircraftswomen"
@=@ "aircrewboy aircrewgirl"
@=@ "aircrewman aircrewwoman aircrewmen aircrewwomen"
@=@ "airman airwoman airmen airwomen"
@=@
@=@ "alderman alderwoman aldermen alderwomen"
@=@ "almsboy almsgirl"
@=@ "almsman almswoman almsmen almswomen"
@=@ "alongshoreboy alongshoregirl"
@=@ "alongshoreman alongshorewoman alongshoremen alongshorewomen"
@=@ "ambassador ambassadress"
@=@ "ambulanceboy ambulancegirl"
@=@ "ambulanceman ambulancewoman ambulancemen ambulancewomen"
@=@ "anchor anchress"
@=@ "anchorboy anchorgirl"
@=@ "anchorman anchorwoman anchormen anchorwomen"
@=@
@=@ "apeman apewoman apemen apewomen"
@=@ "archduke archduchess"
@=@
@=@ "artilleryboy artillerygirl"
@=@ "artilleryman artillerywoman artillerymen artillerywomen"
@=@
@=@ "artsman artswoman artsmen artswomen"
@=@ "assboy assgirl"
@=@ "assemblyboy assemblygirl"
@=@ "assemblyman assemblywoman assemblymen assemblywomen"
@=@ "assman asswoman assmen asswomen"
@=@ "attackboy attackgirl"
@=@ "attackman attackwoman attackmen attackwomen"
@=@ "author authoress"
@=@ "aviator aviatrix aviators aviatrices"
@=@ "axboy axgirl"
@=@
@=@ "axeman axewoman axemen axewomen"
@=@ "axman axwoman axmen axwomen"
@=@ "bachelor bachelorette bachelor spinster"
@=@ "backboy backgirl"
@=@ "backman backwoman backmen backwomen"
@=@ "backwoodsboy backwoodsgirl"
@=@ "backwoodsman backwoodswoman backwoodsmen backwoodswomen"
@=@ "badboy badgirl"
@=@ "badman badwoman badmen badwomen"
@=@
@=@ "baggageboy baggagegirl"
@=@ "baggageman baggagewoman baggagemen baggagewomen"
@=@ "bagman bagwoman bagmen bagwomen"
@=@ "bail-bondsboy bail-bondsgirl"
@=@ "bail-bondsman bail-bondswoman bail-bondsmen bail-bondswomen"
@=@
@=@ "bailsman bailswoman bailsmen bailswomen"
@=@ "ballerino ballerina"
@=@ "bandsboy bandsgirl"
@=@ "bandsman bandswoman bandsmen bandswomen"
@=@ "barboy bargirl"
@=@
@=@ "bargeman bargewoman bargemen bargewomen"
@=@ "barkeeper barkeeperess"
@=@ "barman barwoman barmen barwomen barman barmaid"
@=@ "barman barwoman barmen barwomen"
@=@ "baron baroness baronet baronetess"
@=@
@=@ "baseman basewoman basemen basewomen"
@=@ "bassboy bassgirl"
@=@ "bassman basswoman bassmen basswomen"
@=@ "batboy batgirl"
@=@ "batboy batgirl"
@=@ "batman batwoman batmen batwomen"
@=@ "batman batwoman"
@=@
@=@ "batsman batswoman batsmen batswomen"
@=@ "bayboy baygirl"
@=@ "bayman baywoman baymen baywomen"
@=@ "beadsboy beadsgirl"
@=@ "beadsman beadswoman beadsmen beadswomen"
@=@
@=@ "bedesman bedeswoman bedesmen bedeswomen"
@=@ "beggarboy beggargirl"
@=@ "beggarman beggarwoman beggarmen beggarwomen"
@=@
@=@ "bellman bellwoman bellmen bellwomen"
@=@ "benefactor benefactress"
@=@ "billboy billgirl"
@=@ "billman billwoman billmen billwomen"
@=@ "billy nanny billies nannies"
@=@ "billygoat nannygoat"
@=@
@=@ "binman binwoman binmen binwomen"
@=@ "birdboy birdgirl"
@=@ "birdman birdwoman birdmen birdwomen"
@=@ "blond blonde"
@=@ "bluesboy bluesgirl"
@=@ "bluesman blueswoman bluesmen blueswomen"
@=@ "boar sow"
@=@ "boardboy boardgirl"
@=@ "boardman boardwoman boardmen boardwomen"
@=@ "boatboy boatgirl"
@=@ "boatman boatwoman boatmen boatwomen"
@=@ "boatsboy boatsgirl"
@=@ "boatsman boatswoman boatsmen boatswomen"
@=@
@=@ "bogeyman bogeywoman bogeymen bogeywomen"
@=@
@=@ "bogyman bogywoman bogymen bogywomen"
@=@ "boilerboy boilergirl"
@=@ "boilerman boilerwoman boilermen boilerwomen"
@=@ "bombardboy bombardgirl"
@=@ "bombardman bombardwoman bombardmen bombardwomen"
@=@ "bondboy bondgirl"
@=@ "bondman bondwoman bondmen bondwomen"
@=@
@=@ "bondsman bondswoman bondsmen bondswomen"
@=@
@=@ "Bonesman Boneswoman Bonesmen Boneswomen"
@=@ "boogeyboy boogeygirl"
@=@ "boogeyman boogeywoman boogeymen boogeywomen"
@=@ "boogieboy boogiegirl"
@=@ "boogieman boogiewoman boogiemen boogiewomen"
@=@ "boogyboy boogygirl"
@=@ "boogyman boogywoman boogymen boogywomen"
@=@ "bookboy bookgirl"
@=@ "bookman bookwoman bookmen bookwomen"
@=@
@=@ "boothman boothwoman boothmen boothwomen"
@=@
@=@ "bordman bordwoman bordmen bordwomen"
@=@
@=@ "bowman bowwoman bowmen bowwomen"
@=@
@=@ "bowsman bowswoman bowsmen bowswomen"
@=@ "boxboy boxgirl"
@=@ "boxman boxwoman boxmen boxwomen"
@=@ "boy girl boydom girldom boyhood girlhood"
@=@ "boy-band girl-band"
@=@ "boy-oh-boy girl-oh-girl"
@=@ "boychildren girlchildren"
@=@ "boyfriend girlfriend"
@=@ "boyish girlish boyism girlism"
@=@ "boyish-looking girlish-looking boyishly girlishly boyishness girlishness"
@=@ "boylike girllike boylikeness girllikeness boyliker girlliker"
@=@ "boylikest girllikest boyscout girlscout boyship girlship"
@=@ "brakeboy brakegirl"
@=@ "brakeman brakewoman brakemen brakewomen"
@=@ "breadboy breadgirl"
@=@ "breadman breadwoman breadmen breadwomen"
@=@ "breakboy breakgirl"
@=@ "breakman breakwoman breakmen breakwomen"
@=@ "brethern sistern"
@=@ "brickboy brickgirl"
@=@ "brickman brickwoman brickmen brickwomen"
@=@ "bridegroom bride"
@=@ "bridesboy bridesgirl"
@=@ "bridesman brideswoman bridesmen brideswomen"
@=@ "briefboy briefgirl"
@=@ "briefman briefwoman briefmen briefwomen"
@=@ "brinksboy brinksgirl"
@=@ "brinksman brinkswoman brinksmen brinkswomen"
@=@ "bro sis brother sister brotherhood sisterhood brotherly sisterly"
@=@ "brotherboy brothergirl"
@=@ "brotherman brotherwoman brothermen brotherwomen"
@=@ "buck doe"
@=@ "bull cow bullshit cowshit"
@=@
@=@
@=@ "bushelboy bushelgirl"
@=@ "bushelman bushelwoman bushelmen bushelwomen"
@=@ "bushman bushwoman bushmen bushwomen"
@=@ "businessboy businessgirl"
@=@ "businessman businesswoman businessmen businesswomen"
@=@ "busman buswoman busmen buswomen"
@=@
@=@ "butt-boy butt-girl"
@=@ "butt-man butt-woman butt-men butt-women"
@=@ "butterboy buttergirl"
@=@ "butterman butterwoman buttermen butterwomen"
@=@ "buttonboy buttongirl"
@=@ "buttonman buttonwoman buttonmen buttonwomen"
@=@
@=@ "cabman cabwoman cabmen cabwomen"
@=@
@=@ "cakeman cakewoman cakemen cakewomen"
@=@ "caliph calafia caliph calipha"
@=@ "cameraboy cameragirl"
@=@ "cameraman camerawoman cameramen camerawomen"
@=@ "candy-boy candy-girl"
@=@ "candy-man candy-woman candy-men candy-women"
@=@ "candyboy candygirl"
@=@ "candyman candywoman candymen candywomen"
@=@ "canoeboy canoegirl"
@=@ "canoeman canoewoman canoemen canoewomen"
@=@ "carboy cargirl"
@=@ "carman carwoman carmen carwomen"
@=@
@=@ "cartman cartwoman cartmen cartwomen"
@=@ "caterer cateress"
@=@ "catfisherboy catfishergirl"
@=@ "catfisherman catfisherwoman catfishermen catfisherwomen"
@=@ "cattleboy cattlegirl"
@=@ "cattleman cattlewoman cattlemen cattlewomen"
@=@ "cavalryboy cavalrygirl"
@=@ "cavalryman cavalrywoman cavalrymen cavalrywomen"
@=@ "caveboy cavegirl"
@=@ "caveman cavewoman cavemen cavewomen"
@=@ "cellarboy cellargirl"
@=@ "cellarman cellarwoman cellarmen cellarwomen"
@=@ "centerboy centergirl"
@=@ "centerman centerwoman centermen centerwomen"
@=@ "centreboy centregirl"
@=@ "centreman centrewoman centremen centrewomen"
@=@ "chainboy chaingirl"
@=@ "chainman chainwoman chainmen chainwomen"
@=@ "chairboy chairgirl"
@=@ "chairman chairwoman chairmen chairwomen"
@=@ "chanter chantress"
@=@ "chapboy chapgirl"
@=@ "chapelboy chapelgirl"
@=@ "chapelman chapelwoman chapelmen chapelwomen"
@=@ "chapman chapwoman chapmen chapwomen"
@=@ "charboy chargirl"
@=@ "charman charwoman charmen charwomen"
@=@ "checkweighboy checkweighgirl"
@=@ "checkweighman checkweighwoman checkweighmen checkweighwomen"
@=@ "chessboy chessgirl"
@=@ "chessman chesswoman chessmen chesswomen"
@=@ "chief chiefess"
@=@ "chinaboy chinagirl"
@=@ "chinaman chinawoman chinamen chinawomen"
@=@ "Chineseboy Chinesegirl"
@=@ "Chineseman Chinesewoman Chinesemen Chinesewomen"
@=@ "churchboy churchgirl"
@=@ "churchman churchwoman churchmen churchwomen"
@=@ "cisboy cisgirl"
@=@ "cisman ciswoman cismen ciswomen"
@=@ "clansboy clansgirl"
@=@ "clansman clanswoman clansmen clanswomen"
@=@ "classboy classgirl"
@=@ "classman classwoman classmen classwomen"
@=@ "clergyboy clergygirl"
@=@ "clergyman clergywoman clergymen clergywomen"
@=@ "clerk clerkess"
@=@ "clubboy clubgirl"
@=@ "clubman clubwoman clubmen clubwomen"
@=@ "coachboy coachgirl"
@=@ "coachman coachwoman coachmen coachwomen"
@=@ "coadjutor cadutrix"
@=@ "coalboy coalgirl"
@=@ "coalman coalwoman coalmen coalwomen"
@=@ "coastguardsboy coastguardsgirl"
@=@ "coastguardsman coastguardswoman coastguardsmen coastguardswomen"
@=@ "cock hen"
@=@ "cocksboy cocksgirl"
@=@ "cocksman cockswoman cocksmen cockswomen"
@=@ "cogboy coggirl"
@=@ "cogman cogwoman cogmen cogwomen"
@=@ "colorboy colorgirl"
@=@ "colorman colorwoman colormen colorwomen"
@=@ "colourboy colourgirl"
@=@ "colourman colourwoman colourmen colourwomen"
@=@ "colt fillie"
@=@ "commedian comedienne"
@=@ "committeeboy committeegirl"
@=@ "committeeman committeewoman committeemen committeewomen"
@=@ "commonwealthboy commonwealthgirl"
@=@ "commonwealthman commonwealthwoman commonwealthmen commonwealthwomen"
@=@ "commonwealthsboy commonwealthsgirl"
@=@ "commonwealthsman commonwealthswoman commonwealthsmen commonwealthswomen"
@=@ "conboy congirl"
@=@ "conductor conductress"
@=@ "confessor confessoress"
@=@ "congressboy congressgirl"
@=@ "congressman congresswoman congressmen congresswomen"
@=@ "conman conwoman conmen conwomen"
@=@ "conquer conqueress"
@=@ "cook cookess"
@=@ "copeboy copegirl"
@=@ "copeman copewoman copemen copewomen"
@=@ "cornerboy cornergirl"
@=@ "cornerman cornerwoman cornermen cornerwomen"
@=@ "Cornishboy Cornishgirl"
@=@ "Cornishman Cornishwoman Cornishmen Cornishwomen"
@=@ "corpsboy corpsgirl"
@=@ "corpsman corpswoman corpsmen corpswomen"
@=@ "councilboy councilgirl"
@=@ "councilman councilwoman councilmen councilwomen"
@=@ "count countess"
@=@ "counterboy countergirl"
@=@ "counterman counterwoman countermen counterwomen"
@=@ "countryboy countrygirl"
@=@ "countryman countrywoman countrymen countrywomen"
@=@ "cowboy cowgirl"
@=@ "cowboy cowgirl cowman cowwoman cowmen cowwomen"
@=@ "cowman cowwoman cowmen cowwomen"
@=@ "cracksboy cracksgirl"
@=@ "cracksman crackswoman cracksmen crackswomen"
@=@ "craftsboy craftsgirl"
@=@ "craftsman craftswoman craftsmen craftswomen"
@=@ "cragsboy cragsgirl"
@=@ "cragsman cragswoman cragsmen cragswomen"
@=@ "crayfisherboy crayfishergirl"
@=@ "crayfisherman crayfisherwoman crayfishermen crayfisherwomen"
@=@ "cyberboy cybergirl"
@=@ "cyberman cyberwoman cybermen cyberwomen"
@=@ "czar czarina"
@=@ "dad mom dada mama daddy mommy daddies mommies"
@=@ "dairyboy dairygirl"
@=@ "dairyman dairywoman dairymen dairywomen"
@=@ "dangerboy dangergirl"
@=@ "dangerman dangerwoman dangermen dangerwomen"
@=@ "daysboy daysgirl"
@=@ "daysman dayswoman daysmen dayswomen"
@=@ "deacon deaconess"
@=@ "deadboy deadgirl"
@=@ "deadman deadwoman deadmen deadwomen"
@=@ "debutant debutante"
@=@ "demesboy demesgirl"
@=@ "demesman demeswoman demesmen demeswomen"
@=@ "demon demoness"
@=@ "deskboy deskgirl"
@=@ "deskman deskwoman deskmen deskwomen"
@=@ "devil deviless"
@=@ "director directress"
@=@ "dirtboy dirtgirl"
@=@ "dirtman dirtwoman dirtmen dirtwomen"
@=@ "divine divineress"
@=@ "divorce divorcee"
@=@ "doctor doctress"
@=@ "dominator dominatrix dominators dominatrices"
@=@ "dragon dragoness"
@=@ "drake duck"
@=@ "draughtsboy draughtsgirl"
@=@ "draughtsman draughtswoman draughtsmen draughtswomen"
@=@ "drayboy draygirl"
@=@ "drayman draywoman draymen draywomen"
@=@ "drone bee"
@=@ "dude dudette"
@=@ "duke duchess"
@=@ "Dutchboy Dutchgirl"
@=@ "Dutchman Dutchwoman Dutchmen Dutchwomen"
@=@ "earl countess"
@=@ "Earthboy Earthgirl"
@=@ "Earthman Earthwoman Earthmen Earthwomen"
@=@ "earthsboy earthsgirl"
@=@ "earthsman earthswoman earthsmen earthswomen"
@=@ "editor editress"
@=@ "editor editrix"
@=@ "elector electress"
@=@ "emperor empress"
@=@ "enchanter enchantress"
@=@ "Englishboy Englishgirl"
@=@ "Englishman Englishwoman Englishmen Englishwomen"
@=@ "everyboy everygirl"
@=@ "everyman everywoman everymen everywomen"
@=@ "ex-boyfriend ex-girlfriend"
@=@ "ex-husband ex-wife ex-husbands ex-wives"
@=@ "executor executrix executor executres"
@=@ "faceboy facegirl"
@=@ "faceman facewoman facemen facewomen"
@=@ "father mother"
@=@ "fatherfucker motherfucker fatherphocker motherphocker fatherfucker mutherfucker"
@=@ "fatherhood motherhood"
@=@ "fiance fiancee"
@=@ "fireboy firegirl"
@=@ "fireman firewoman firemen firewomen"
@=@ "fisherboy fishergirl"
@=@ "fisherman fisherwoman fishermen fisherwomen"
@=@ "fishman fishwoman fishmen fishwomen"
@=@ "foeboy foegirl"
@=@ "foeman foewoman foemen foewomen"
@=@ "foreboy foregirl"
@=@ "foreman forewoman foremen forewomen"
@=@ "freeboy freegirl"
@=@ "freedboy freedgirl"
@=@ "freedman freedwoman freedmen freedwomen"
@=@ "freeman freewoman freemen freewomen"
@=@ "Frenchboy Frenchgirl"
@=@ "Frenchman Frenchwoman Frenchmen Frenchwomen"
@=@ "fretboy fretgirl"
@=@ "fretman fretwoman fretmen fretwomen"
@=@ "friar nun"
@=@ "frontboy frontgirl"
@=@ "frontiersboy frontiersgirl"
@=@ "frontiersman frontierswoman frontiersmen frontierswomen"
@=@ "frontman frontwoman frontmen frontwomen"
@=@ "funnyboy funnygirl"
@=@ "funnyman funnywoman funnymen funnywomen"
@=@ "gander goose ganders geese"
@=@ "gasboy gasgirl"
@=@ "gasman gaswoman gasmen gaswomen"
@=@ "gentleboy gentlegirl"
@=@ "gentleman gentlewoman gentlemen gentlewomen"
@=@ "giant giantess"
@=@ "gladiator gladiatrix"
@=@ "gleeboy gleegirl"
@=@ "gleeman gleewoman gleemen gleewomen"
@=@ "gloveboy glovegirl"
@=@ "gloveman glovewoman glovemen glovewomen"
@=@ "god godess"
@=@ "godson goddaughter"
@=@ "governor governoress"
@=@ "gownboy gowngirl"
@=@ "gownman gownwoman gownmen gownwomen"
@=@ "gownsboy gownsgirl"
@=@ "gownsman gownswoman gownsmen gownswomen"
@=@ "gramp granny"
@=@ "granddad grandmom"
@=@ "grandfather grandmother"
@=@ "grandnephew grandniece"
@=@ "grandpa grandma"
@=@ "grandpapa grandmama"
@=@ "grandpop grandmom"
@=@ "grandson granddaughter"
@=@ "great-granddad great-grandmom"
@=@ "great-grandfather great-grandmother"
@=@ "great-grandnephew great-grandniece"
@=@ "great-grandpa great-grandma"
@=@ "great-grandpapa great-grandmama"
@=@ "great-grandpop great-grandmom"
@=@ "great-grandson great-granddaughter"
@=@ "great-granduncle great-grandaunt"
@=@ "great-granduncle great-grandauntie"
@=@ "great-great-granddad great-great-grandmom"
@=@ "great-great-grandfather great-great-grandmother"
@=@ "great-great-grandnephew great-great-grandniece"
@=@ "great-great-grandpa great-great-grandma"
@=@ "great-great-grandpapa great-great-grandmama"
@=@ "great-great-grandpop great-great-grandmom"
@=@ "great-great-grandson great-great-granddaughter"
@=@ "great-great-granduncle great-great-grandaunt"
@=@ "great-great-granduncle great-great-grandauntie"
@=@ "great-great-great-granddad great-great-great-grandmom"
@=@ "great-great-great-grandfather great-great-great-grandmother"
@=@ "great-great-great-grandnephew great-great-great-grandniece"
@=@ "great-great-great-grandpa great-great-great-grandma"
@=@ "great-great-great-grandpapa great-great-great-grandmama"
@=@ "great-great-great-grandpop great-great-great-grandmom"
@=@ "great-great-great-grandson great-great-great-granddaughter"
@=@ "great-great-great-granduncle great-great-great-grandaunt"
@=@ "great-great-great-granduncle great-great-great-grandauntie"
@=@ "great-great-great-great-granddad great-great-great-great-grandmom"
@=@ "great-great-great-great-grandfather great-great-great-great-grandmother"
@=@ "great-great-great-great-grandnephew great-great-great-great-grandniece"
@=@ "great-great-great-great-grandpa great-great-great-great-grandma"
@=@ "great-great-great-great-grandpapa great-great-great-great-grandmama"
@=@ "great-great-great-great-grandpop great-great-great-great-grandmom"
@=@ "great-great-great-great-grandson great-great-great-great-granddaughter"
@=@ "great-great-great-great-granduncle great-great-great-great-grandaunt"
@=@ "great-great-great-great-granduncle great-great-great-great-grandauntie"
@=@ "great-great-great-great-great-granddad great-great-great-great-great-grandmom"
@=@ "great-great-great-great-great-grandfather great-great-great-great-great-grandmother"
@=@ "great-great-great-great-great-grandnephew great-great-great-great-great-grandniece"
@=@ "great-great-great-great-great-grandpa great-great-great-great-great-grandma"
@=@ "great-great-great-great-great-grandpapa great-great-great-great-great-grandmama"
@=@ "great-great-great-great-great-grandpop great-great-great-great-great-grandmom"
@=@ "great-great-great-great-great-grandson great-great-great-great-great-granddaughter"
@=@ "great-great-great-great-great-granduncle great-great-great-great-great-grandaunt"
@=@ "great-great-great-great-great-granduncle great-great-great-great-great-grandauntie"
@=@ "great-great-great-great-great-uncle great-great-great-great-great-grandaunt"
@=@ "great-great-great-great-great-uncle great-great-great-great-great-grandauntie"
@=@ "great-great-great-great-uncle great-great-great-great-grandaunt"
@=@ "great-great-great-great-uncle great-great-great-great-grandauntie"
@=@ "great-great-great-uncle great-great-great-grandaunt"
@=@ "great-great-great-uncle great-great-great-grandauntie"
@=@ "great-great-uncle great-great-grandaunt"
@=@ "great-great-uncle great-great-grandauntie"
@=@ "great-uncle great-grandaunt"
@=@ "great-uncle great-grandauntie"
@=@ "gringo gringa"
@=@ "groom bride"
@=@ "groomsboy groomsgirl"
@=@ "groomsman groomswoman groomsmen groomswomen"
@=@ "groundsboy groundsgirl"
@=@ "groundsman groundswoman groundsmen groundswomen"
@=@ "gunboy gungirl"
@=@ "gunman gunwoman gunmen gunwomen"
@=@ "guy gal"
@=@ "hackboy hackgirl"
@=@ "hackman hackwoman hackmen hackwomen"
@=@ "hammerboy hammergirl"
@=@ "hammerman hammerwoman hammermen hammerwomen"
@=@ "handcraftsboy handcraftsgirl"
@=@ "handcraftsman handcraftswoman handcraftsmen handcraftswomen"
@=@ "handi-craftsboy handi-craftsgirl"
@=@ "handi-craftsman handi-craftswoman handi-craftsmen handi-craftswomen"
@=@ "hangboy hanggirl"
@=@ "hangman hangwoman hangmen hangwomen"
@=@ "hardboy hardgirl"
@=@ "hardman hardwoman hardmen hardwomen"
@=@ "hatchetboy hatchetgirl"
@=@ "hatchetman hatchetwoman hatchetmen hatchetwomen"
@=@ "he she him her himself herself his her"
@=@ "he-boy he-girl"
@=@ "he-man he-woman he-men he-women"
@=@ "headmaster headmistress"
@=@ "heir heiress"
@=@ "helboy helgirl"
@=@ "helman helwoman helmen helwomen"
@=@ "helmsman helmswoman helmsmen helmswomen"
@=@ "heritor heritress heritor heritrix"
@=@ "hero heroine"
@=@ "highwayboy highwaygirl"
@=@ "highwayman highwaywoman highwaymen highwaywomen"
@=@ "hillsboy hillsgirl"
@=@ "hillsman hillswoman hillsmen hillswomen"
@=@ "hirdboy hirdgirl"
@=@ "hirdman hirdwoman hirdmen hirdwomen"
@=@ "hob jill"
@=@ "horseboy horsegirl"
@=@ "horseman horsewoman horsemen horsewomen"
@=@ "host hostess"
@=@ "hunter huntress"
@=@ "husband wife husbands wives"
@=@ "hypeboy hypegirl"
@=@ "hypeman hypewoman hypemen hypewomen"
@=@ "iceboy icegirl"
@=@ "iceman icewoman icemen icewomen"
@=@ "incubii sucubii incubus succubus"
@=@ "inheritor inheritress inheritor inheritrix"
@=@ "instructor instructress"
@=@ "Irishboy Irishgirl"
@=@ "Irishman Irishwoman Irishmen Irishwomen"
@=@ "ironboy irongirl"
@=@ "ironman ironwoman ironmen ironwomen"
@=@ "jackaroo jillaroo jack jill"
@=@ "jew jewess"
@=@ "jointer jointress"
@=@ "khaliph khalafia khaliph khalipha"
@=@ "king queen"
@=@ "king-hit queen-hit"
@=@ "king-of-arms queen-of-arms"
@=@ "kingcraft queencraft"
@=@ "kingcup queencup"
@=@ "kingdom queendom"
@=@ "kingdomful queendomful kingdomless queendomless kingdomship queendomship"
@=@ "kinged queened"
@=@ "kinger queener"
@=@ "kingest queenest"
@=@ "kinghead queenhead"
@=@ "kinghood queenhood"
@=@ "kinging queening"
@=@ "kingless queenless kinglessness queenlessness"
@=@ "kinglier queenlier kingliest queenliest"
@=@ "kinglihood queenlihood"
@=@ "kinglike queenlike kingliker queenliker kinglikest queenlikest"
@=@ "kingliness queenliness"
@=@ "kingling queenling kingling queenling kingly queenly"
@=@ "kingmaker queenmaker kingmaking queenmaking"
@=@ "kingpiece queenpiece"
@=@ "kingpin queenpin kingpost queenpost"
@=@ "kingsboy kingsgirl"
@=@ "kingship queenship"
@=@ "kingside queenside"
@=@ "kingsize queensize"
@=@ "kingsman kingswoman kingsmen kingswomen"
@=@ "kingsman queensman kingsmen queensmen"
@=@ "klansboy klansgirl"
@=@ "klansman klanswoman klansmen klanswomen"
@=@ "knight dame"
@=@ "lad lass laddie lassie"
@=@ "landgrave landgravine"
@=@ "landlord landlady landlords handladies"
@=@ "latino latina"
@=@ "launderer laundress"
@=@ "laundryboy laundrygirl"
@=@ "laundryman laundrywoman laundrymen laundrywomen"
@=@ "lawboy lawgirl"
@=@ "lawman lawwoman lawmen lawwomen"
@=@ "lawyer layeress"
@=@ "layboy laygirl"
@=@ "layman laywoman laymen laywomen"
@=@ "leatherboy leathergirl"
@=@ "leatherman leatherwoman leathermen leatherwomen"
@=@ "legboy leggirl"
@=@ "legman legwoman legmen legwomen"
@=@ "liegeboy liegegirl"
@=@ "liegeman liegewoman liegemen liegewomen"
@=@ "lineboy linegirl"
@=@ "lineman linewoman linemen linewomen"
@=@ "linesboy linesgirl"
@=@ "linesman lineswoman linesmen lineswomen"
@=@ "linkboy linkgirl"
@=@ "linkman linkwoman linkmen linkwomen"
@=@ "lion lioness"
@=@ "lizardboy lizardgirl"
@=@ "lizardman lizardwoman lizardmen lizardwomen"
@=@ "lord lady lords ladies"
@=@ "madboy madgirl"
@=@ "madman madwoman madmen madwomen"
@=@ "mailboy mailgirl"
@=@ "mailman mailwoman mailmen mailwomen"
@=@ "male female maleness femaleness"
@=@ "man woman men women"
@=@ "man-boy girl-worman"
@=@ "man-children woman-children manchildren womanchildren"
@=@ "manager manageress"
@=@ "manhood womenhood"
@=@ "manly womanly"
@=@ "manservant maidservant"
@=@ "margrave margavine"
@=@ "marquess marquis marquise marchioness"
@=@ "masculine feminine"
@=@ "masseue masseuse"
@=@ "mastboy mastgirl"
@=@ "mastman mastwoman mastmen mastwomen"
@=@ "mayor mayoress"
@=@ "mediator mediatress mediator mediatrix mediator mediatrice"
@=@ "men-children women-children menchildren womenchildren"
@=@ "merboy mergirl"
@=@ "merman mermaid"
@=@ "merman merwoman mermen merwomen"
@=@ "middleboy middlegirl"
@=@ "middleman middlewoman middlemen middlewomen"
@=@ "midshipboy midshipgirl"
@=@ "midshipman midshipwoman midshipmen midshipwomen"
@=@ "milkboy milkgirl"
@=@ "milkman milkwoman milkmen milkwomen"
@=@ "milkman milkwoman"
@=@ "millionaire millionairess billionaire billionairess"
@=@ "misandry misogyny misandrist misogynist"
@=@ "moneyboy moneygirl"
@=@ "moneyman moneywoman moneymen moneywomen"
@=@ "monk nun"
@=@ "monster monsteress"
@=@ "moor morisco"
@=@ "mr mrs mister missus mr ms mr mz master miss master mistress"
@=@ "murderer murderess"
@=@ "muscleboy musclegirl"
@=@ "muscleman musclewoman musclemen musclewomen"
@=@ "negroe negress negro negress"
@=@ "nephew niece"
@=@ "newsboy newsgirl"
@=@ "newsman newswoman newsmen newswomen"
@=@ "newspaperboy newspapergirl"
@=@ "newspaperman newspaperwoman newspapermen newspaperwomen"
@=@ "nobelman noblewoman nobelmen nobelwomen"
@=@ "nurseryboy nurserygirl"
@=@ "nurseryman nurserywoman nurserymen nurserywomen"
@=@ "orator oratress orator oratrix"
@=@ "orchardboy orchardgirl"
@=@ "orchardman orchardwoman orchardmen orchardwomen"
@=@ "overboy overgirl"
@=@ "overman overwoman overmen overwomen"
@=@ "pa ma papa mama"
@=@ "paceboy pacegirl"
@=@ "paceman pacewoman pacemen pacewomen"
@=@ "paternal maternal patriarchal matriarchal"
@=@ "patricide matricide"
@=@ "patrolboy patrolgirl"
@=@ "patrolman patrolwoman patrolmen patrolwomen"
@=@ "patron patroness"
@=@ "peacock peahen"
@=@ "pitboy pitgirl"
@=@ "pitchboy pitchgirl"
@=@ "pitchman pitchwoman pitchmen pitchwomen"
@=@ "pitman pitwoman pitmen pitwomen"
@=@ "plowman plowwoman plowmen plowwomen"
@=@ "poet poetess"
@=@ "policeboy policegirl"
@=@ "policeman policewoman policemen policewomen"
@=@ "poultryboy poultrygirl"
@=@ "poultryman poultrywoman poultrymen poultrywomen"
@=@ "preacher preacheress"
@=@ "priest priestess"
@=@ "prince princess"
@=@ "prior prioress"
@=@ "prophet prophetess"
@=@ "proprietor proprietress"
@=@ "protor protectress"
@=@ "ragboy raggirl"
@=@ "ragman ragwoman ragmen ragwomen"
@=@ "railwayboy railwaygirl"
@=@ "railwayman railwaywoman railwaymen railwaywomen"
@=@ "rainboy raingirl"
@=@ "rainman rainwoman rainmen rainwomen"
@=@ "ram ewe billy ewe"
@=@ "Rastaboy Rastagirl"
@=@ "Rastaman Rastawoman Rastamen Rastawomen"
@=@ "remainder-boy remainder-girl"
@=@ "remainder-man remainder-woman remainder-men remainder-women"
@=@ "remainderboy remaindergirl"
@=@ "remainderman remainderwoman remaindermen remainderwomen"
@=@ "repoboy repogirl"
@=@ "repoman repowoman repomen repowomen"
@=@ "rescueboy rescuegirl"
@=@ "rescueman rescuewoman rescuemen rescuewomen"
@=@ "schoolmaster schoolmistress"
@=@ "Scotsboy Scotsgirl"
@=@ "Scotsman Scotswoman Scotsmen Scotswomen"
@=@ "scotsman scotswoman scotsmen scotswomen"
@=@ "sculptor sculptress"
@=@ "seaboy seagirl"
@=@ "seaman seawoman seamen seawomen"
@=@ "seducer seduceress"
@=@ "seductor seductress"
@=@ "seedsboy seedsgirl"
@=@ "seedsman seedswoman seedsmen seedswomen"
@=@ "sempster sempstress"
@=@ "senor senora"
@=@ "serviceboy servicegirl"
@=@ "serviceman servicewoman servicemen servicewomen"
@=@ "sewerboy sewergirl"
@=@ "sewerman sewerwoman sewermen sewerwomen"
@=@ "shaboy shagirl"
@=@ "shaman shawoman shamen shawomen"
@=@ "sheepboy sheepgirl"
@=@ "sheepman sheepwoman sheepmen sheepwoman"
@=@ "sheepman sheepwoman sheepmen sheepwomen"
@=@ "shellfisherboy shellfishergirl"
@=@ "shellfisherman shellfisherwoman shellfishermen shellfisherwomen"
@=@ "shepherd shepherdess"
@=@ "shopboy shopgirl"
@=@ "shopman shopwoman shopmen shopwomen"
@=@ "showboy showgirl"
@=@ "showman showwoman showmen showwomen"
@=@ "silkboy silkgirl"
@=@ "silkman silkwoman silkmen silkwomen"
@=@ "singer singeress"
@=@ "sir madam sir ma'am"
@=@ "sire dam"
@=@ "snowboy snowgirl"
@=@ "snowman snowwoman snowmen snowwomen"
@=@ "son daughter"
@=@ "songster songstress"
@=@ "sorcerer sorceress"
@=@ "spokesman spokeswoman spokesmen spokeswomen"
@=@ "sportsboy sportsgirl"
@=@ "sportsman sportswoman sportsmen sportswomen"
@=@ "stag hind"
@=@ "stallion mare"
@=@ "statesboy statesgirl"
@=@ "statesman stateswoman statesmen stateswomen"
@=@ "steer heifer"
@=@ "steersboy steersgirl"
@=@ "steersman steerswoman steersmen steerswomen"
@=@ "stepdad stepmom stepfather stepmother stepson stepdaughter"
@=@ "steward stewardess"
@=@ "stuntboy stuntgirl"
@=@ "stuntman stuntwoman stuntmen stuntwomen"
@=@ "suitor suitress"
@=@ "sultan sultana"
@=@ "tailor seamstress"
@=@ "talesboy talesgirl"
@=@ "talesman taleswoman talesmen taleswomen"
@=@ "talisboy talisgirl"
@=@ "talisman taliswoman talismen taliswomen"
@=@ "taskmaster taskmistress"
@=@ "temptor temptress"
@=@ "terminator terminatrix"
@=@ "tiger tigress"
@=@ "toastmaster toastmistress"
@=@ "tod vixen"
@=@ "tom hen"
@=@ "townsboy townsgirl"
@=@ "townsman townswoman townsmen townswomen"
@=@ "toyboy toygirl"
@=@ "toyman toywoman toymen toywomen"
@=@ "tradesboy tradesgirl"
@=@ "tradesman tradeswoman tradesmen tradeswomen"
@=@ "traitor traitress"
@=@ "trencherboy trenchergirl"
@=@ "trencherman trencherwoman trenchermen trencherwomen"
@=@ "triggerboy triggergirl"
@=@ "triggerman triggerwoman triggermen triggerwomen"
@=@ "tutor tutoress"
@=@ "tzar tzarina"
@=@ "uncle aunt uncle auntie"
@=@ "usher usherette"
@=@ "utilityboy utilitygirl"
@=@ "utilityman utilitywoman utilitymen utilitywomen"
@=@ "vampire vampiress"
@=@ "victor victress"
@=@ "villian villainess"
@=@ "viscount viscountess viscount visereine"
@=@ "vixor vixen"
@=@ "votary votaress votary votress votaries votresses"
@=@ "wageboy wagegirl"
@=@ "wageman wagewoman wagemen wagewomen"
@=@ "waiter waitress"
@=@ "warder wardess"
@=@ "warrior warrioress warlock witch"
@=@ "washerboy washergirl"
@=@ "washerman washerwoman washermen washerwomen"
@=@ "watchboy watchgirl"
@=@ "watchman watchwoman watchmen watchwomen"
@=@ "waterboy watergirl"
@=@ "waterman waterwoman watermen waterwomen"
@=@ "weighboy weighgirl"
@=@ "weighman weighwoman weighmen weighwomen"
@=@ "werewolf wifwolf"
@=@ "whaleboy whalegirl"
@=@ "whaleman whalewoman whalemen whalewomen"
@=@ "wheelboy wheelgirl"
@=@ "wheelman wheelwoman wheelmen wheelwomen"
@=@ "whoremonger whoremistress"
@=@ "widower widow"
@=@ "wingboy winggirl"
@=@ "wingman wingwoman wingmen wingwomen"
@=@ "wiseboy wisegirl"
@=@ "wiseman wisewoman wisemen wisewomen"
@=@ "wizard witch"
@=@ "workboy workgirl"
@=@ "workingboy workinggirl"
@=@ "workingman workingwoman workingmen workingwomen"
@=@ "workman workwoman workmen workwomen"
@=@ "yachtsboy yachtsgirl"
@=@ "yachtsman yachtswoman yachtsmen yachtswomen"
@=@ "yardboy yardgirl"
@=@ "yardman yardwoman yardmen yardwomen"
@=@ "yes-boy yes-girl"
@=@ "yes-man yes-woman yes-men yes-women"
say center(" There're " words(@) ' words in the gender bender list. ', sw, '─')
do j=1 to words(@) by 2; n=j+1
m =word(@,j); f =word(@,n); @.m=m ; !.m=f ; @.f =f ; !.f =m
ms =many(m) ; fs =many(f) ; @.ms=ms ; !.ms=fs ; @.fs =fs ; !.fs =ms
mp =proper(m); fp =proper(f); @.mp=mp ; !.mp=fp ; @.fp =fp ; !.fp =mp
mps=many(mp) ; fps=many(fp) ; @.mps=mps; !.mps=fps; @.fps=fps; !.fps=mps
upper m f ; @.m=m ; !.m=f ; @.f =f ; !.f =m
ms =many(m) ; fs =many(f) ; @.ms=ms ; !.ms=fs ; @.fs =fs ; !.fs =ms
end /*j*/
/*
new=
do k=1 for words(old)
new=new bendit( word(old,k) ) /*construct a list of "gender" words.*/
end /*k*/
say
call tell new, ' new ' /*show a nicely
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
bendit: parse arg x 1 ox /*get a word, make a copy of original.*/
if length(x)==1 then return ox /*if one character, then return as is. */
@abc= 'abcdefghijklmnopqrstuvwxyz' /*define a lowercase (Latin) alphabet. */
parse upper var @abc @abcU pref suff /*get uppercase version, nullify vars.*/
@abcU=@abc || @abcU
_=verify(x, @abcU, 'M')
if _==0 then return ox
pref=left(x, _ - 1)
x=substr(x, _)
xr=reverse(x) /*reverse the string (for testing caps)*/
_=verify(xr, @abcU, 'M')
if _\==0 then do; suff=reverse( left(xr, _ - 1) )
xr=substr(xr, _)
end
x=reverse(xr)
if \datatype(x, 'M') then return x /*Not all letters? Then return original*/
if @.x\=='' then return pref || !.x || suff /*plurized ? */
/*──────────────────────────────────────────────────────────────────────────────────────*/
many: parse arg _; if right(_, 1)=='s' then return _ || 'es' /*maintain lower. */
if right(_, 1)=='S' then return _ || 'ES' /* " upper. */
if datatype(_,'U') then return _'S' /*use uppercase? */
return _'s' /* " lowercase. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
proper: arg L1 2; parse arg 2 _2; return L1 || _2
/*──────────────────────────────────────────────────────────────────────────────────────*/
tell: procedure expose sw; parse arg z; z=space(z);
say center( arg(2), sw, '─')
do until z==''; parse var z x z; n=$ x
say strip($)
$=x
end /*until*/
say
This REXX program makes use of '''LINESIZE''' REXX program (or BIF) which is used to determine the screen width (or linesize) of the terminal (console).
<br>The '''LINESIZE.REX''' REXX program is included here ──► [[LINESIZE.REX]]. <br>
{{out|output|text= when using the default input:}}
<pre>
───────────────────────────────────── old ─────────────────────────────────────
Line 713 ⟶ 1,331:
propensity he nourished in his untutored youth.
───────────────────────────────────── new ─────────────────────────────────────
Line 720 ⟶ 1,338:
then, in Queequegs ambitious soul, lurked a strong desire to see something
more of Christendom than a specimen whaler or two. Her mother was a High
Chiefess, a Queen; her
boasted uncles who were the husbands of unconquerable warrioresses. There was
excellent blood in her veins-royal stuff; though sadly vitiated, I fear, by
|