/* grade.tc - tct - 2/27/2010

ceq char s(0),t(0) /* rpb
[ /* returns 1 if strings are equal else returns 0
  int slen,tlen,i
  slen=strlen(s);tlen=strlen(t)
  if (slen!=tlen) return 0
  for (i=0;i<slen;++i) if (s(i)!=t(i)) return 0
  return 1
]

dpf int n,d,p [
 /* display proper fraction n/d as a decimal number
 /* (w/o the leading decimal point) with p-digit precision
 int w;w=10*n/d;if (p) [MC w,14;dpf 10*n%d,d,p-1]
 ]

/* split char string s delimited by char string d into int array t

split int t(0);char s(0),d(0) [
 int y,ix,tx,sl,ds;ds=strlen(d);t(0)=s;sl=strlen(s)
 while (sl-tx) [
  ix=index(s+tx,sl-tx,d,ds)
  tx=tx+ix+ds-1;t(++y)=s+tx;s(tx-ds)=0
  ]
 return y
 ]

/* sample command line: .grade "response.txt","answers.txt"

grade char rf(0),af(0) [ /* grade quiz based on responses and answers
 char kwizr(5000),kwiza(5000),crlf(2)
 int rs,as,ikwizr(200),ikwiza(200),nr,ca,i
 crlf(0)=13;crlf(1)=10
 pl "";ps "grade.tc - tct - 2/27/2010";pl ""
 pl "";ps "please visit http://primepuzzle.com/tc/grade.html";pl ""
 if ((rs=readfile(rf,kwizr,kwizr+5000-1,1))<=0) [
  ps "error reading ";ps rf;exit]
 if ((as=readfile(af,kwiza,kwiza+5000-1,1))<=0) [
  ps "error reading ";ps af;exit]
 nr=split(ikwizr,kwizr,crlf);split(ikwiza,kwiza,crlf)
 pl "file 1 text ";ps "file 2 text ";ps "running score: ";pl ""
 for (i=0;i<nr;++i) [
  ca=ca+ceq(ikwizr(i),ikwiza(i))
  pl ikwizr(i);ps " ";ps ikwiza(i);ps " running score:";pn ca
  ]
  pl "";pl "score:";pn 100*ca/nr;ps ".";dpf(ca*100%nr,nr,2);pl ""
 ]