Split a character string based on change of character: Difference between revisions

← Older edit

Split a character string based on change of character (view source)

Revision as of 15:51, 9 February 2024

788 bytes added , 3 months ago

m

→‎{{header|Wren}}: Changed to Wren S/H

PureFox

9,476

edits

Revision as of 19:37, 6 January 2024 (view source) Mr Dalien (talk \| contribs) m (→‎{{header\|Amazing Hopper}}) ← Older edit		Latest revision as of 15:51, 9 February 2024 (view source) PureFox (talk \| contribs) m (→‎{{header\|Wren}}: Changed to Wren S/H)
(4 intermediate revisions by one other user not shown)
Line 318: =={{header\|Amazing Hopper}}== VERSION 1: string <syntaxhighlight lang="c"> #include <basico.h> #define INICIO 1 #define CHARS "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789\"+-/ \\:,;:_" algoritmo objetivo = "gHHH5YY\"\"++ ///,,,\\", indice=0 largo=0, sublargo=0, v=0 #( largo = len(indice:=(onechar(CHARS,objetivo))) ) t=0, nuevo="" para cada caracter ( v, indice, largo ) #(t = replicate(v, sublargo := ((poschar(INICIO, v, objetivo) - 1 ) ) )) #(nuevo = cat( cat(nuevo, t), ", ")) objetivo+=sublargo siguiente nuevo -= 2 imprimir( "NEW STRING=\n", nuevo,NL) terminar </syntaxhighlight> {{out}} <pre> $ hopper3 basica/splitrep.bas NEW STRING= g, HHH, 5, YY, "", ++, , ///, ,,,, \ </pre> VERSION 2: arrays <syntaxhighlight lang="c"> Line 323 ⟶ 357: #define INICIO 1 #define CHARS "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789\"+-/ \\:,;:_" algoritmo objetivo = "gHHH5YY\"\"++ ///,,,,\\", indice=0 largo=0, sublargo=0, lista={}, v=0 Line 345 ⟶ 379: {{out}} <pre> $ hopper3 basica/~~splitrep~~splitrep2.bas LISTA= g,HHH,5,YY,"",++, ,///,,,,,,\ </pre> Line 2,857 ⟶ 2,891: =={{header\|Wren}}== <syntaxhighlight lang="~~ecmascript~~wren">var split = Fn.new { \|s\| if (s.count == 0) return "" var res = []