Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
14
Task/Reverse-a-string/FreeBASIC/reverse-a-string.freebasic
Normal file
14
Task/Reverse-a-string/FreeBASIC/reverse-a-string.freebasic
Normal file
|
|
@ -0,0 +1,14 @@
|
|||
' FB 1.05.0 Win64
|
||||
|
||||
Function ReverseString(s As Const String) As String
|
||||
If s = "" Then Return s
|
||||
Dim length As Integer = Len(s)
|
||||
Dim r As String = Space(length)
|
||||
For i As Integer = 0 To length - 1
|
||||
r[i] = s[length - 1 - i]
|
||||
Next
|
||||
Return r
|
||||
End Function
|
||||
|
||||
Dim s As String = "asdf"
|
||||
Print "'"; s; "' reversed is '"; ReverseString(s); "'"
|
||||
Loading…
Add table
Add a link
Reference in a new issue