Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 additions and 0 deletions

View file

@ -0,0 +1,17 @@
load "stdlib.ring"
aList = file2list("C:\Ring\unixdict.txt")
for m = 1 to 10
nr = random(len(aList)-1) + 1
bool = semordnilap(aList[nr])
see aList[nr] + nl
if bool = 0 see "is palindrome" + nl + nl
else see "is semordnilap" + nl + nl ok
next
func semordnilap aString
bString = ""
for i=len(aString) to 1 step -1
bString = bString + aString[i]
next
see aString
if aString = bString return 0 else return 1 ok