Reverse the gender of a string: Difference between revisions

<lang arturorebol>reverseGender: @(function [str){][

ret : new str

entries : #( ["She" "she" "Her" "her" "hers" "He" "he" "His" "his" "him")]

repls : #( ["He_" "he_" "His_" "his_" "his_" "She_" "she_" "Her_" "her_" "her_")]

loop [range 0 [size loop.with:'i entries]-1] @(i){'entry ->

ret: replace 'ret "/.regex ~{\b"+entries.[i]+"|entry|\b/"} repls.[ \ i]

print [reverseGender "SheHe was a soul stripper. SheHe took hisher heart!"]

print [reverseGender "HeShe waswants awhat's soulhers, stripper.he He tookwants her heartand she wants him!"]

print [reverseGender "SheHer wantsdog what'sbelongs hers,to hehim wantsbut herhis anddog sheis wants himhers!"]</lang>