Skip to content

Instantly share code, notes, and snippets.

@egisatoshi

egisatoshi/fun.egi

Last active Aug 29, 2015
Embed
What would you like to do?
Egison version of this Prolog program https://gist.github.com/GRGSIBERIA/c61e05f3fbb4332bf81e
(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]])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment