Range extraction: Difference between revisions

Range extraction (view source)

Revision as of 19:37, 27 February 2024

1,783 bytes added , 3 months ago

m

→‎{{header|EasyLang}}

Chkas

2,060

edits

Revision as of 00:16, 27 March 2023 (view source) Christophoro S (talk \| contribs) (Dialects of BASIC moved to the BASIC section.) ← Older edit		Revision as of 19:37, 27 February 2024 (view source) Chkas (talk \| contribs) m (→‎{{header\|EasyLang}}) Newer edit →
(4 intermediate revisions by 3 users not shown)
Line 1,211: {{out}} <pre>0-2,4,6-8,11,12,14-25,27-33,35-39</pre> ==={{header\|QuickBASIC}}=== For negative numbers the results look rather strange, but they satisfy the requirements. {{trans\|BBC BASIC}} <syntaxhighlight lang="qbasic"> REM Range extraction DECLARE FUNCTION RangeExtract$ (RS$) Range$ = " 0, 1, 2, 4, 6, 7, 8, 11, 12, 14, " Range$ = Range$ + "15, 16, 17, 18, 19, 20, 21, 22, 23, 24, " Range$ = Range$ + "25, 27, 28, 29, 30, 31, 32, 33, 35, 36, " Range$ = Range$ + "37, 38, 39" PRINT RangeExtract$(Range$) END FUNCTION RangeExtract$ (RS$) TS$ = "": I% = 0 F% = VAL(RS$) DO I% = INSTR(I% + 1, RS$, ",") T% = VAL(MID$(RS$, I% + 1)) IF T% = F% + R% + 1 THEN R% = R% + 1 ELSE SELECT CASE R% CASE 0 TS$ = TS$ + LTRIM$(STR$(F%)) + "," CASE 1 TS$ = TS$ + LTRIM$(STR$(F%)) + "," + LTRIM$(STR$(F% + R%)) + "," CASE ELSE TS$ = TS$ + LTRIM$(STR$(F%)) + "-" + LTRIM$(STR$(F% + R%)) + "," END SELECT R% = 0: F% = T% END IF LOOP WHILE I% <> 0 RangeExtract$ = LEFT$(TS$, LEN(TS$) - 1) END FUNCTION </syntaxhighlight> {{out}} <pre> 0-2,4,6-8,11,12,14-25,27-33,35-39 </pre> ==={{header\|VBA}}=== Line 2,048 ⟶ 2,090: # value: "0-2,4,6-8,11,12,14-25,27-33,35-39" </syntaxhighlight> =={{header\|EasyLang}}== {{trans\|Java}} <syntaxhighlight> func$ mkrange arr[] . idx = 1 idx2 = 1 while idx <= len arr[] repeat idx2 += 1 until idx2 > len arr[] or arr[idx2] - arr[idx2 - 1] <> 1 . if idx2 - idx > 2 r$ &= arr[idx] & "-" & arr[idx2 - 1] & "," idx = idx2 else while idx < idx2 r$ &= arr[idx] & "," idx += 1 . . . return substr r$ 1 (len r$ - 1) . print mkrange [ 0 1 2 4 6 7 8 11 12 14 15 16 17 18 19 20 21 22 23 24 25 27 28 29 30 31 32 33 35 36 37 38 39 ] </syntaxhighlight> {{out}} <pre> 0-2,4,6-8,11,12,14-25,27-33,35-39 </pre> =={{header\|EchoLisp}}== Line 5,752 ⟶ 5,824: =={{header\|Wren}}== {{trans\|Kotlin}} <syntaxhighlight lang="~~ecmascript~~wren">var extractRange = Fn.new { \|list\| if (list.isEmpty) return "" var sb = ""