Egison version of this Prolog program https://gist.github.com/GRGSIBERIA/c61e05f3fbb4332bf81e

fun.egi

(define $worriors
  {["nagisa_misumi" "futari_ha" "black"]
   ["honoka_yukishiro" "futari_ha" "white"]
   ["hikari_kujo" "max_heart" "luminus"]
   ["saki_hyuga" "splash_star" "bloom"]
   ["mai_misho" "splash_star" "eaglette"]
   ["nozomi_yumehara" "yes" "dream"]
   ["rin_natsuki" "yes" "rouge"]
   ["urara_kasugano" "yes" "lemonade"]
   ["komachi_akimoto" "yes" "mint"]
   ["karen_minazuki" "yes" "aqua"]
   ["geki" "juranger" "tirano"]
   ["goushi" "juranger" "manmos"]
   ["dan" "juranger" "torikera"]
   ["boy" "juranger" "tiger"]
   ["mei" "juranger" "ptera"]
   ["burai" "juranger" "dragon"]
   })

(define $series
  {["precure" "splash_star"]
   ["precure" "futari_ha"]
   ["precure" "yes"]
   ["super_squadron" "juranger"]})

(match-all [series worriors] [(set [string string]) (set [string string string])]
  [[<cons [,"precure" $s] _> <cons [$name ,s _] _>] [name s]])