View/Edit #111:to_morse

Switch to edit mode.

1:  result = ""
2:  for x in ($string_utils:char_list(args[1]))
3:    if (i = index($string_utils.ascii, x))
4:      result = result + this.morse_table[i] + " "
5:    endif
6:  endfor
7:  if (result)
8:    return result[1..$ - 1]
9:  else
10:   return ""
11: endif
12: "Last modified by Raptor (#6319) on Sun Nov 15 23:42:35 1998 MST."
13: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
14: "Last modified by Dax (#789) on Sat Aug 17 14:50:05 2002 MDT."

[home | help | who | search | setup | code]