Script Library: 1213 scripts
 

oneliner-morse-code.r

Rebol [ Title: "Morse code" Date: 20-Jul-2003 File: %oneliner-morse-code.r Purpose: {Encodes a sentence into morse code. This version is a bit suboptimal so that the html generator won't destroy it.} One-liner-length: 130 Version: 1.0.0 Author: "Johan Roennblom" Library: [ level: 'intermediate platform: none type: [How-to FAQ one-liner] domain: [math dialects] tested-under: none support: none license: none see-also: none ] ] foreach c ask{Message:}[l: index? find{ etinamsdrgukwohblzfcpvxqyj}c while[l >= 2][prin pick{-.}odd? l l: l / 2]prin" "]print""
halt ;; to terminate script if DO'ne from webpage