34 lines
935 B
Text
34 lines
935 B
Text
|
/* NetRexx */
|
|||
|
|
options replace format comments java crossref symbols nobinary
|
|||
|
|
|
|||
|
|
upperΔ = 1
|
|||
|
|
Δupper = upperΔ
|
|||
|
|
lowerδ = 2
|
|||
|
|
δlower = lowerδ
|
|||
|
|
|
|||
|
|
say upperΔ '+' Δupper '= \-'
|
|||
|
|
upperΔ = upperΔ + Δupper
|
|||
|
|
say upperΔ
|
|||
|
|
|
|||
|
|
say lowerδ '+' δlower '= \-'
|
|||
|
|
lowerδ = lowerδ + δlower
|
|||
|
|
say lowerδ
|
|||
|
|
say
|
|||
|
|
|
|||
|
|
-- Unicode works with the NetRexx built-in functions
|
|||
|
|
Υππερ = '\u0391'.sequence('\u03a1') || '\u03a3'.sequence('\u03a9') -- ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩ
|
|||
|
|
Λοωερ = '\u03b1'.sequence('\u03c1') || '\u03c3'.sequence('\u03c9') -- αβγδεζηθικλμνξοπρστυφχψω
|
|||
|
|
say Υππερ'.Lower =' Υππερ.lower()
|
|||
|
|
say Λοωερ'.Upper =' Λοωερ.upper()
|
|||
|
|
say
|
|||
|
|
|
|||
|
|
-- Note: Even with unicode characters NetRexx variables are case-insensitive
|
|||
|
|
numeric digits 12
|
|||
|
|
δ = 20.0
|
|||
|
|
π = Math.PI
|
|||
|
|
θ = Π * Δ
|
|||
|
|
σ = Θ ** 2 / (Π * 4) -- == Π * (Δ / 2) ** 2
|
|||
|
|
say 'Π =' π', diameter =' δ', circumference =' Θ', area =' Σ
|
|||
|
|
|
|||
|
|
return
|