7 lines
245 B
Text
7 lines
245 B
Text
'abcdefghijklmnopqrstuvwxyz 'FULL s:const
|
|
'__________________________ 'TEST s:const
|
|
:s:pangram? (s-f)
|
|
'__________________________ &TEST #26 copy
|
|
s:to-lower [ c:letter? ] s:filter
|
|
[ dup $a - &TEST + store ] s:for-each
|
|
&TEST &FULL s:eq? ;
|