fork download
copy 
  1. USING: sequences math kernel ascii splitting io prettyprint ;
  2. IN: splurthian
  3.  
  4. : normalize ( str -- str str ) >lower " ," split harvest
  5.     [ first ] keep second ;
  6.  
  7. : symbol-loc ( str str -- seq seq ) 2dup first swap indices
  8.     -rot second swap indices ;
  9.  
  10. : valid-order ( seq seq -- ? ) [ [ empty? ] either? ] 2keep
  11.     rot [ 2drop f ] [ [ infimum ] dip supremum < ] if ;
  12.  
  13. lines [ normalize symbol-loc valid-order . ] each
Success #stdin #stdout 0.08s 157824KB
comments ()
stdin
copy 
Spenglerium, Ee
Zeddemorium, Zr
Venkmine, Kn
Stantzon, Zt
Melintzum, Nn
Tullium, Ty
stdout
copy 
t
t
t
f
f
f
https://ideone.com/gSwJHo
language:
Factor (factor-0.93)
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!