Camel case and snake case: Difference between revisions

=={{header|RPL}}==

« 1

'''WHILE''' DUP2 DUP SUB " " == '''REPEAT''' 1 + '''END'''

OVER DUP SIZE

'''WHILE''' DUP2 DUP SUB " " == '''REPEAT''' 1 - '''END'''

SWAP DROP SUB

» '<span style="color:blue">TRIM</span>' STO

« <span style="color:blue">TRIM</span> → s

« ""

1 s SIZE '''FOR''' j

s j DUP SUB

'''CASE'''

"- " OVER POS '''THEN'''

DROP "_" '''END'''

DUP "A" ≥ OVER "Z" ≤ AND '''THEN'''

NUM 32 + CHR

'''IF''' OVER DUP SIZE DUP SUB "_" ≠ '''THEN''' "_" SWAP + '''END'''

'''END'''

'''END'''

+

'''NEXT'''

» » '<span style="color:blue">→SNAKE</span>' STO

« <span style="color:blue">TRIM</span> → s

« "" 1 CF

1 s SIZE '''FOR''' j

s j DUP SUB

'''CASE'''

"-_ " OVER POS '''THEN'''

DROP "" 1 SF '''END'''

DUP "a" ≥ OVER "z" ≤ AND 1 FS?C AND '''THEN'''

NUM 32 - CHR '''END'''

'''END'''

+

'''NEXT'''

» » '<span style="color:blue">→CAMEL</span>' STO

« { "snakeCase" "snake_case" "variable_10_case" "variable10Case"

"εrgo rE tHis" "hurry-up-joe!" "c://my-docs/happy_Flag-Day/12.doc" " spaces " }

DUP 1 « <span style="color:blue">→SNAKE</span> » DOLIST

SWAP 1 « <span style="color:blue">→CAMEL</span> » DOLIST

» '<span style="color:blue">TASK</span>' STO

{{out}}

<pre>

2: { "snake_case" "snake_case" "variable_10_case" "variable10_case" "εrgo_r_e_t_his" "hurry_up_joe!" "c://my_docs/happy_flag_day/12.doc" "spaces" }

1: { "snakeCase" "snakeCase" "variable10Case" "variable10Case" "εrgoRETHis" "hurryUpJoe!" "c://myDocs/happyFlagDay/12.doc" "spaces" }

</pre>