File: isalpha-1.m

package info (click to toggle)
octave2.1 2.1.35-7woody1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 30,524 kB
  • ctags: 18,347
  • sloc: cpp: 80,649; fortran: 42,327; ansic: 14,698; sh: 5,027; makefile: 4,122; yacc: 2,702; lex: 2,556; lisp: 1,699; exp: 123; sed: 32
file content (8 lines) | stat: -rw-r--r-- 176 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
 
charset = setstr (0:127);

result = zeros (1, 128);

result ((toascii("A"):toascii("Z"))+1) = 1;
result ((toascii("a"):toascii("z"))+1) = 1;

all (isalpha (charset) == result)