Phrase reversals: Difference between revisions
Add Refal
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Not a robot (talk | contribs) (Add Refal) |
||
| (8 intermediate revisions by 8 users not shown) | |||
Line 463:
</pre>
=={{header|
==={{header|Applesoft BASIC}}===
<syntaxhighlight lang="basic"> 10 PHRA$ = "rosetta code phrase reversal"
20 GOSUB 100
30 PRINT PHRA$(0)
40 PRINT PHRA$(1)
50 PRINT PHRA$(2);
60 END
100 FOR PH = 0 TO 6
110 PH$(PH) = ""
120 NEXT PH
130 FOR PH = 0 TO LEN (PH$)
140 PH$(4) = MID$ (PH$,PH + (PH < 255),PH < 255)
150 PH$(0) = PH$(4) + PH$(0)
160 IF PH$(4) = " " THEN GOSUB 200
170 PH$(5) = PH$(5) + PH$(4)
180 PH$(6) = PH$(4) + PH$(6)
190 NEXT PH
200 PH$(1) = PH$(1) + PH$(3) + PH$(6)
210 PH$(2) = PH$(5) + PH$(3) + PH$(2)
220 PH$(3) = " "
230 PH$(4) = ""
240 PH$(5) = ""
250 PH$(6) = ""
260 RETURN</syntaxhighlight>{{out}}
<pre>
lasrever esarhp edoc attesor
attesor edoc esarhp lasrever
reversal phrase code rosetta</pre>
==={{header|BaCon}}===
<syntaxhighlight lang="basic">phrase$ = "rosetta code phrase reversal"
PRINT REVERSE$(phrase$)
Line 476 ⟶ 506:
attesor edoc esarhp lasrever
reversal phrase code rosetta
</pre>
==={{header|FreeBASIC}}===
<syntaxhighlight lang="freebasic">' FB 1.05.0 Win64
Sub split (s As Const String, sepList As Const String, result() As String)
If s = "" OrElse sepList = "" Then
Redim result(0)
result(0) = s
Return
End If
Dim As Integer i, j, count = 0, empty = 0, length
Dim As Integer position(Len(s) + 1)
position(0) = 0
For i = 0 To len(s) - 1
For j = 0 to Len(sepList) - 1
If s[i] = sepList[j] Then
count += 1
position(count) = i + 1
End If
Next j
Next i
Redim result(count)
If count = 0 Then
result(0) = s
Return
End If
position(count + 1) = len(s) + 1
For i = 1 To count + 1
length = position(i) - position(i - 1) - 1
result(i - 1) = Mid(s, position(i - 1) + 1, length)
Next
End Sub
Function reverse(s As Const String) As String
If s = "" Then Return ""
Dim t As String = s
Dim length As Integer = Len(t)
For i As Integer = 0 to length\2 - 1
Swap t[i], t[length - 1 - i]
Next
Return t
End Function
Dim s As String = "rosetta code phrase reversal"
Dim a() As String
Dim sepList As String = " "
Print "Original string => "; s
Print "Reversed string => "; reverse(s)
Print "Reversed words => ";
split s, sepList, a()
For i As Integer = LBound(a) To UBound(a)
Print reverse(a(i)); " ";
Next
Print
Print "Reversed order => ";
For i As Integer = UBound(a) To LBound(a) Step -1
Print a(i); " ";
Next
Print : Print
Print "Press any key to quit"
Sleep</syntaxhighlight>
{{out}}
<pre>
Original string => rosetta code phrase reversal
Reversed string => lasrever esarhp edoc attesor
Reversed words => attesor edoc esarhp lasrever
Reversed order => reversal phrase code rosetta
</pre>
==={{header|Gambas}}===
'''[https://gambas-playground.proko.eu/?gist=77cb8b3386a0f57524bdbff6634387cd Click this link to run this code]'''
<syntaxhighlight lang="gambas">
Public Sub Main()
Dim sString As String = "rosetta code phrase reversal" 'The string
Dim sNewString, sTemp As String 'String variables
Dim siCount As Short 'Counter
Dim sWord As New String[] 'Word store
For siCount = Len(sString) DownTo 1 'Loop backwards through the string
sNewString &= Mid(sString, sicount, 1) 'Add each character to the new string
Next
Print "Original string = \t" & sString & "\n" & 'Print the original string
"Reversed string = \t" & sNewString 'Print the reversed string
sNewString = "" 'Reset sNewString
For Each sTemp In Split(sString, " ") 'Split the original string by the spaces
sWord.Add(sTemp) 'Add each word to sWord array
Next
For siCount = sWord.max DownTo 0 'Loop backward through each word in sWord
sNewString &= sWord[siCount] & " " 'Add each word to to sNewString
Next
Print "Reversed word order = \t" & sNewString 'Print reversed word order
sNewString = "" 'Reset sNewString
For Each sTemp In sWord 'For each word in sWord
For siCount = Len(sTemp) DownTo 1 'Loop backward through the word
sNewString &= Mid(sTemp, siCount, 1) 'Add the characters to sNewString
Next
sNewString &= " " 'Add a space at the end of each word
Next
Print "Words reversed = \t" & sNewString 'Print words reversed
End</syntaxhighlight>
Output:
<pre>
Original string = rosetta code phrase reversal
Reversed string = lasrever esarhp edoc attesor
Reversed word order = reversal phrase code rosetta
Words reversed = attesor edoc esarhp lasrever
</pre>
==={{header|IS-BASIC}}===
<syntaxhighlight lang="basic">
100 PROGRAM "ReverseS.bas"
110 LET S$="Rosetta Code Pharse Reversal"
120 PRINT S$
130 PRINT REVERSE$(S$)
140 PRINT REVERSEW$(S$)
150 PRINT REVERSEC$(S$)
160 DEF REVERSE$(S$)
170 LET T$=""
180 FOR I=LEN(S$) TO 1 STEP-1
190 LET T$=T$&S$(I)
200 NEXT
210 LET REVERSE$=T$
220 END DEF
230 DEF REVERSEW$(S$)
240 LET T$="":LET PE=LEN(S$)
250 FOR PS=PE TO 1 STEP-1
260 IF PS=1 OR S$(PS)=" " THEN LET T$=T$&" ":LET T$=T$<RIM$(S$(PS:PE)):LET PE=PS-1
270 NEXT
280 LET REVERSEW$=LTRIM$(T$)
290 END DEF
300 DEF REVERSEC$(S$)
310 LET T$="":LET PS=1
320 FOR PE=1 TO LEN(S$)
330 IF PE=LEN(S$) OR S$(PE)=" " THEN LET T$=T$&" ":LET T$=T$&REVERSE$(RTRIM$(S$(PS:PE))):LET PS=PE+1
340 NEXT
350 LET REVERSEC$=LTRIM$(T$)
360 END DEF</syntaxhighlight>
==={{header|PureBasic}}===
<syntaxhighlight lang="purebasic">
#TEXT="rosetta code phrase reversal"
If OpenConsole("rosetta code phrase reversal")
Define idx.i=1, txt.s=""
Print(~"Original:\t\t")
PrintN(#TEXT)
Print(~"Reversed:\t\t")
PrintN(ReverseString(#TEXT))
Print(~"Reversed words:\t\t")
txt=StringField(#TEXT,idx," ")
While Len(txt)
Print(ReverseString(txt)+" ")
idx+1
txt=StringField(#TEXT,idx," ")
Wend
PrintN("")
Print(~"Reversed order:\t\t")
idx-1
txt=StringField(#TEXT,idx," ")
While Len(txt)
Print(txt+" ")
If idx>1 : idx-1 : Else : Break : EndIf
txt=StringField(#TEXT,idx," ")
Wend
Input()
EndIf</syntaxhighlight>
{{out}}
<pre>Original: rosetta code phrase reversal
Reversed: lasrever esarhp edoc attesor
Reversed words: attesor edoc esarhp lasrever
Reversed order: reversal phrase code rosetta
</pre>
==={{header|VBA}}===
<syntaxhighlight lang="vbnet">
Option Explicit
Sub Main_Phrase_Reversals()
Const PHRASE As String = "rosetta code phrase reversal"
Debug.Print "Original String : " & PHRASE
Debug.Print "Reverse String : " & Reverse_String(PHRASE)
Debug.Print "Reverse each individual word : " & Reverse_each_individual_word(PHRASE)
Debug.Print "Reverse order of each word : " & Reverse_the_order_of_each_word(PHRASE)
End Sub
Function Reverse_String(strPhrase As String) As String
Reverse_String = StrReverse(strPhrase)
End Function
Function Reverse_each_individual_word(strPhrase As String) As String
Dim Words, i&, strTemp$
Words = Split(strPhrase, " ")
For i = 0 To UBound(Words)
Words(i) = Reverse_String(CStr(Words(i)))
Next i
Reverse_each_individual_word = Join(Words, " ")
End Function
Function Reverse_the_order_of_each_word(strPhrase As String) As String
Dim Words, i&, strTemp$
Words = Split(strPhrase, " ")
For i = UBound(Words) To 0 Step -1
strTemp = strTemp & " " & Words(i)
Next i
Reverse_the_order_of_each_word = Trim(strTemp)
End Function
</syntaxhighlight>
{{out}}
<pre>Original String : rosetta code phrase reversal
Reverse String : lasrever esarhp edoc attesor
Reverse each individual word : attesor edoc esarhp lasrever
Reverse order of each word : reversal phrase code rosetta</pre>
==={{header|VBScript}}===
<syntaxhighlight lang="vbscript">
Phrase = "rosetta code phrase reversal"
WScript.StdOut.Write "Original String : " & Phrase
WScript.StdOut.WriteLine
WScript.StdOut.Write "Reverse String : " & RevString(Phrase)
WScript.StdOut.WriteLine
WScript.StdOut.Write "Reverse String Each Word : " & RevStringEachWord(Phrase)
WScript.StdOut.WriteLine
WScript.StdOut.Write "Reverse Phrase : " & RevPhrase(Phrase)
WScript.StdOut.WriteLine
Function RevString(s)
x = Len(s)
For i = 1 To Len(s)
RevString = RevString & Mid(s,x,1)
x = x - 1
Next
End Function
Function RevStringEachWord(s)
arr = Split(s," ")
For i = 0 To UBound(arr)
RevStringEachWord = RevStringEachWord & RevString(arr(i))
If i < UBound(arr) Then
RevStringEachWord = RevStringEachWord & " "
End If
Next
End Function
Function RevPhrase(s)
arr = Split(s," ")
For i = UBound(arr) To LBound(arr) Step -1
RevPhrase = RevPhrase & arr(i)
If i > LBound(arr) Then
RevPhrase = RevPhrase & " "
End If
Next
End Function
</syntaxhighlight>
{{Out}}
<pre>
Original String : rosetta code phrase reversal
Reverse String : lasrever esarhp edoc attesor
Reverse String Each Word : attesor edoc esarhp lasrever
Reverse Phrase : reversal phrase code rosetta
</pre>
Line 795 ⟶ 1,106:
phrase.split.retro.joiner(" ").writeln; // Word order reversed.
}</syntaxhighlight>
{{out}}
<pre>lasrever esarhp edoc attesor
attesor edoc esarhp lasrever
reversal phrase code rosetta</pre>
=={{header|dt}}==
<syntaxhighlight lang="dt">"rosetta code phrase reversal" dup
rev pl
words dup
\rev map unwords pl
rev unwords pl</syntaxhighlight>
{{out}}
<pre>lasrever esarhp edoc attesor
Line 861 ⟶ 1,183:
=={{header|Elena}}==
ELENA
<syntaxhighlight lang="elena">import extensions;
import extensions'text;
Line 876 ⟶ 1,198:
console.printLine(reverse(phrase));
//Reverse each individual word in the string, maintaining original string order.
console.printLine(phrase.splitBy
//Reverse the order of each word of the phrase, maintaining the order of characters in each word.
console.printLine(reverse(phrase.splitBy
}</syntaxhighlight>
{{out}}
Line 1,013 ⟶ 1,335:
Forward words, reverse order: Reversal Phrase Code Rosetta
Reversed words, forward order: attesoR edoC esarhP lasreveR
</pre>
Line 1,113 ⟶ 1,361:
attesor edoc esarhp lasrever
reversal phrase code rosetta
</pre>
Line 1,301 ⟶ 1,503:
reversal phrase code rosetta</pre>
=={{header|
<syntaxhighlight lang="
(let phrase "rosetta code phrase reversal")
(print (reverse phrase))
(-> phrase (split " ") (map reverse) (join " ") print)
(-> phrase (split " ") reverse (join " ") print)
</syntaxhighlight>
{{out}}
<pre>
lasrever esarhp edoc attesor
attesor edoc esarhp lasrever
reversal phrase code rosetta
null
</pre>
=={{header|J}}==
Line 1,565 ⟶ 1,754:
=={{header|Kotlin}}==
<syntaxhighlight lang="
fun reverseEachWord(s: String) = s.split(" ").
fun reverseWordOrder(s: String) = s.split(" ").reversed().joinToString(" ")
fun main(args: Array<String>) {
Line 1,575 ⟶ 1,765:
println("Reversed string => $reversed")
println("Reversed words => ${reverseEachWord(original)}")
// Either:
println("Reversed order => ${reverseWordOrder(original)}")
// Or:
println("Reversed order => ${reverseEachWord(reversed)}")
}</syntaxhighlight>
Line 2,026 ⟶ 2,219:
reversal phrase code rosetta
</pre>
=={{header|Python}}==
Line 2,226 ⟶ 2,381:
Each word reversed : attesor edoc esarhp lasrever
Word-order reversed : reversal phrase code rosetta</pre>
=={{header|Refal}}==
<syntaxhighlight lang="refal">$ENTRY Go {
, 'rosetta code phrase reversal': e.Str
= <Prout <Reverse e.Str>>
<Prout <Join <Each Reverse <Split e.Str>>>>
<Prout <Join <Reverse <Split e.Str>>>>;
};
Reverse {
= ;
t.X e.Y = <Reverse e.Y> t.X;
};
Split {
(e.X) = (e.X);
(e.X) ' ' e.Y = (e.X) <Split () e.Y>;
(e.X) s.C e.Y = <Split (e.X s.C) e.Y>;
e.X = <Split () e.X>;
};
Join {
= ;
(e.X) = e.X;
(e.X) e.Y = e.X ' ' <Join e.Y>;
};
Each {
s.F = ;
s.F (e.X) e.Y = (<Mu s.F e.X>) <Each s.F e.Y>;
};</syntaxhighlight>
{{out}}
<pre>lasrever esarhp edoc attesor
attesor edoc esarhp lasrever
reversal phrase code rosetta</pre>
=={{header|REXX}}==
Line 2,563 ⟶ 2,753:
3.) Reverse word order --> reversal phrase code rosetta</pre>
=={{header|
<syntaxhighlight lang="v (vlang)">
fn main() {
str := 'rosetta code phrase reversal'
Line 2,671 ⟶ 2,770:
=={{header|Wren}}==
<syntaxhighlight lang="
System.print("Input : %(s)")
System.print("String reversed : %(s[-1..0])")
Line 2,684 ⟶ 2,783:
Word order reversed : reversal phrase code rosetta
</pre>
=={{header|Yabasic}}==
| |||