Adding string reverse

Ignore-this: e540c08076a085f909c8c8b6add2e349 darcs-hash:20100422132310-6ac22-9329f45ab1d093b2e96563f7d8d4400bd49c0811.gz
avsm · Apr 22, 2010 · 92e7762 · 92e7762
1 parent 5bb7fa8
commit 92e7762
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/evm/stdfuns.c b/evm/stdfuns.c
@@ -112,6 +112,17 @@ char* strCons(int h, char* str) {
     return buf;
 }
 
+char* strrev(char* str) {
+    char* buf = EMALLOC((1+strlen(str))*sizeof(char));
+    int x = strlen(str);
+    buf[x+1]='\0';
+    int y = 0; 
+    while(x>0) {
+	buf[y++] = str[--x];
+    }
+    return buf;
+}
+
 char* append(char* x, char* y) {
     char* buf = EMALLOC((strlen(x)+strlen(y))*sizeof(char));
     strcpy(buf,x);

diff --git a/evm/stdfuns.h b/evm/stdfuns.h
@@ -65,6 +65,8 @@ int strIndex(char* str, int i);
 int strHead(char* str);
 char* strTail(char* str);
 char* strCons(int h, char* str);
+char* strrev(char* str);
+
 char* append(char* x, char* y);
 
 // Big integer arithmetic