10 lines
320 B
Text
10 lines
320 B
Text
to remove.all :s :set
|
|
if empty? :s [output :set]
|
|
if word? :s [output remove.all butfirst :s remove first :s :set]
|
|
output remove.all butfirst :s remove.all first :s :set
|
|
end
|
|
to pangram? :s
|
|
output empty? remove.all :s "abcdefghijklmnopqrstuvwxyz
|
|
end
|
|
|
|
show pangram? [The five boxing wizards jump quickly.] ; true
|