fork download 
  1. BEGIN {FS=OFS="\n"}
  2.  
  3. {
  4. a=gensub(/([a-zA-Z]*):stem/,"(\\1:stem)", "g");
  5.   b=gensub(/(\([a-zA-Z]*:stem\))<>([a-zA-Z]*):suffix/,"(\\1\\2:suffix)", "g", a);
  6.   c=gensub(/([a-zA-Z]*:prefix)<>(.*)/,"(\\1\\2)", "g", b);
  7.   print c;	
  8. }
  9.  
  10. END {
  11.  
  12. }
Success #stdin #stdout 0s 5888KB
comments (?)
stdin 
abrasion abrade:stem<>ion:suffix
abstainer abstain:stem<>er:suffix
abstention abstain:stem<>ion:suffix
inaccurate in:prefix<>accurate:stem
inactive in:prefix<>active:stem
incommunicable in:prefix<>communicate:stem<>able:suffix
incompatibility in:prefix<>compatible:stem<>ity:suffix
stdout 
abrasion ((abrade:stem)ion:suffix)
abstainer ((abstain:stem)er:suffix)
abstention ((abstain:stem)ion:suffix)
inaccurate (in:prefix(accurate:stem))
inactive (in:prefix(active:stem))
incommunicable (in:prefix((communicate:stem)able:suffix))
incompatibility (in:prefix((compatible:stem)ity:suffix))
https://ideone.com/U3ux91
language:
AWK (gawk 4.2.1)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!