View source for Selectively replace multiple instances of a character within a string

{{task}}
[[Category: String manipulation]] 
[[Category:Simple]]
[[Category:Strings]]
;Task
This is admittedly a trivial task but I thought it would be interesting to see how succinctly (or otherwise) different languages can handle it.

Given the string: "abracadabra", replace programatically:

* the first 'a' with 'A'
* the second 'a' with 'B'
* the fourth 'a' with 'C'
* the fifth 'a' with 'D'
* the first 'b' with 'E'
* the second 'r' with 'F'
<br>
Note that there is no replacement for the third 'a', second 'b' or first 'r'.

The answer should, of course, be : "AErBcadCbFD".

{{Template:Strings}}
<br>

=={{header|11l}}==
{{trans|Python}}

<syntaxhighlight lang="11l">V rep = [‘a’ = [1 = ‘A’, 2 = ‘B’, 4 = ‘C’, 5 = ‘D’], ‘b’ = [1 = ‘E’], ‘r’ = [2 = ‘F’]]

F trstring(oldstring, repdict)
   DefaultDict[Char, Int] seen
   V newchars = ‘’
   L(c) oldstring
      V i = ++seen[c]
      newchars ‘’= I c C repdict & i C repdict[c] {repdict[c][i]} E c
   R newchars

print(‘abracadabra -> ’trstring(‘abracadabra’, rep))</syntaxhighlight>

{{out}}
<pre>
abracadabra -> AErBcadCbFD
</pre>

=={{header|ALGOL 68}}==
<syntaxhighlight lang="algol68">CO in the string "abracadabra", replace the first  'a' with 'A', the second 'a' with 'B'
                                      , the fourth 'a' with 'C', the fifth  'a' with 'D'
                                        the first  'b' with 'E', the second 'r' with 'F'
CO
BEGIN
    [,]STRING replacements = ( ( "a", "ABaCD" ), ( "b", "E" ), ( "r", "rF" ) );
    [ 1 LWB replacements : 1 UPB replacements ]INT position;
    STRING input = "abracadabra";
    [ LWB input : UPB input ]CHAR output;
    FOR i FROM LWB position TO UPB position DO position[ i ] := LWB replacements[ i, 2 ] OD;
    FOR c pos FROM LWB input TO UPB input DO
        CHAR c           = input[ c pos ];
        output[ c pos ] := c;
        BOOL found      := FALSE;
        FOR r pos FROM 1 LWB replacements TO 1 UPB replacements WHILE NOT found DO
            STRING r = replacements[ r pos, 1 ];
            IF c = r[ LWB r ] THEN
                found := TRUE;
                IF position[ r pos ] <= UPB replacements[ r pos, 2 ] THEN
                    output[   c pos ]  := replacements[ r pos, 2 ][ position[ r pos ] ];
                    position[ r pos ] +:= 1;
                    found              := TRUE
                FI
            FI
        OD
    OD;
    print( ( """", input, """ -> """, output, """" ) );
    IF output /= "AErBcadCbFD" THEN print( ( " ** UNEXPECTED RESULT" ) ) FI;
    print( ( newline ) )
END</syntaxhighlight>
{{out}}
<pre>
"abracadabra" -> "AErBcadCbFD"
</pre>

=={{header|Arturo}}==
<syntaxhighlight lang="arturo">replacement: function [rule,ch,order][
    loop rule 'r ->
        if r\[0] = order -> return r\[1]
    return ch
]
multiReplace: function [str, rules][
    cntr: #.raw flatten couple keys rules repeat 0 size rules

    join map str 'ch [
        (key? cntr ch)? [
            cntr\[ch]: cntr\[ch] + 1
            replacement rules\[ch] ch dec cntr\[ch]
        ] -> ch
    ]
]

print multiReplace "abracadabra" #[
    a: [[0 `A`][1 `B`][3 `C`][4 `D`]]
    b: [[0 `E`]]
    r: [[1 `F`]]
]</syntaxhighlight>

{{out}}

<pre>AErBcadCbFD</pre>

=={{header|AutoHotkey}}==
<syntaxhighlight lang="autohotkey">str := "abracadabra"
steps := [[1, "a", "A"]
        , [2, "a", "B"]
        , [4, "a", "C"]
        , [5, "a", "D"]
        , [1, "b", "E"]
        , [2, "r", "F"]]

MsgBox % result := Selectively_replace(str, steps)
return

Selectively_replace(str, steps){
    Res := [], x := StrSplit(str)
    for i, step in steps {
        n := step.1, L := step.2, R := step.3, k := 0
        for j, v in x
            if (v=L) && (++k = n) {
                Res[j] := R
                break
            }
    }
    for j, v in x
        result .= Res[j] = "" ? x[j] : Res[j]
    return result
}</syntaxhighlight>
{{out}}
<pre>AErBcadCbFD</pre>

=={{header|C}}==
<syntaxhighlight lang="c">
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

int main(void) {
  const char string[] = "abracadabra";

  char *replaced = malloc(sizeof(string));
  strcpy(replaced, string);

  // Null terminated replacement character arrays
  const char *aRep = "ABaCD";
  const char *bRep = "E";
  const char *rRep = "rF";

  for (char *c = replaced; *c; ++c) {
    switch (*c) {
    case 'a':
      if (*aRep)
        *c = *aRep++;
      break;
    case 'b':
      if (*bRep)
        *c = *bRep++;
      break;
    case 'r':
      if (*rRep)
        *c = *rRep++;
      break;
    }
  }

  printf("%s\n", replaced);

  free(replaced);
  return 0;
}
</syntaxhighlight>
{{out}}
<pre>
AErBcadCbFD
</pre>

=={{header|C++}}==
<syntaxhighlight lang="cpp">#include <map>
#include <iostream>
#include <string>

int main()
{
  std::map<char, std::string> rep = 
    {{'a', "DCaBA"}, // replacement string is reversed
     {'b', "E"},
     {'r', "Fr"}};

  std::string magic = "abracadabra";

  for(auto it = magic.begin(); it != magic.end(); ++it)
  {
    if(auto f = rep.find(*it); f != rep.end() && !f->second.empty())
    {
      *it = f->second.back();
      f->second.pop_back();
    }
  }

  std::cout << magic << "\n";
}</syntaxhighlight>
{{out}}
<pre>
AErBcadCbFD
</pre>

=={{header|Delphi}}==
{{works with|Delphi|6.0}}
{{libheader|SysUtils,StdCtrls}}


<syntaxhighlight lang="Delphi">
var TestStr: string = 'abracadabra';


function FindNthChar(C: char; S: string; N: integer): integer;
{Routine to find the Nth version of C, string S}
begin
for Result:=1 to Length(S) do
 if S[Result]=C then
	begin
	Dec(N);
	if N<=0 then exit;
	end;
Result:=-1;
end;


procedure ReplaceNthChar(COld,CNew: char; var S: string; N: integer);
{Find and replace the Nth version COld with CNew}
var Inx: integer;
begin
Inx:=FindNthChar(COld,S,N);
if Inx<1 then exit;
S[Inx]:=CNew;
end;


procedure SelectivelyReplaceChars(Memo: TMemo);
var I: integer;
begin
Memo.Lines.Add('Before: '+TestStr);
{Do the replacement toward the end of string first}
ReplaceNthChar('a','D',TestStr,5);
ReplaceNthChar('a','C',TestStr,4);
ReplaceNthChar('a','B',TestStr,2);
ReplaceNthChar('r','F',TestStr,2);
ReplaceNthChar('a','A',TestStr,1);
ReplaceNthChar('b','E',TestStr,1);
Memo.Lines.Add('After: '+TestStr);
end;


</syntaxhighlight>
{{out}}
<pre>
Before: AErBcadCbFD
After: AErBcAdCEFD
Elapsed Time: 1.749 ms.

</pre>


=={{header|EMal}}==
<syntaxhighlight lang="emal">
fun transmogrify  = text by text input, Map replacements
  Map indexes = text%int[]
  text result = ""
  for each text ch in input
    result.append(when(replacements.has(++indexes[ch] + ch), replacements[indexes[ch] + ch], ch))
  end
  return result
end
writeLine(transmogrify("abracadabra",
  text%text["1a" => "A", "2a" => "B", "4a" => "C", "5a" => "D", "1b" => "E", "2r" => "F"]))
</syntaxhighlight>
{{out}}
<pre>
AErBcadCbFD
</pre>

=={{header|Factor}}==
{{works with|Factor|0.99 2022-04-03}}
<syntaxhighlight lang="factor">USING: assocs formatting grouping kernel random sequences ;

CONSTANT: instrs {
    CHAR: a 1 CHAR: A
    CHAR: a 2 CHAR: B
    CHAR: a 4 CHAR: C
    CHAR: a 5 CHAR: D
    CHAR: b 1 CHAR: E
    CHAR: r 2 CHAR: F
}

: counts ( seq -- assoc )
    H{ } clone swap [ 2dup swap inc-at dupd of ] zip-with nip ;

: replace-nths ( seq instrs -- seq' )
    [ counts ] dip 3 group [ f suffix 2 group ] map substitute keys ;

: test ( str -- )
    dup instrs replace-nths "" like "%s -> %s\n" printf ;


"abracadabra" test
"abracadabra" randomize test</syntaxhighlight>
{{out}}
<pre>
abracadabra -> AErBcadCbFD
caaarrbabad -> cABarFECbDd
</pre>

=={{header|FreeBASIC}}==
<syntaxhighlight lang="freebasic">Function replaceChar(Byref S As String) As String
    Dim As String A = "ABaCD", B = "Eb", R = "rF"
    Dim As Byte pA = 1, pB = 1, pR = 1
    For i As Byte = 0 To Len(S)
        Select Case Mid(S,i,1)
        Case "a"
            Mid(S,i,1) = Mid(A,pA,1)
            pA += 1
        Case "b"
            Mid(S,i,1) = Mid(B,pB,1)
            pB += 1
        Case "r"
            Mid(S,i,1) = Mid(R,pR,1)
            pR += 1
        End Select
    Next i
    Return S
End Function

Dim As String S
S = "abracadabra"
Print S; " -> "; replaceChar(S)
S = "caarabadrab"
Print S; " -> "; replaceChar(S)
Sleep</syntaxhighlight>
{{out}}
<pre>abracadabra -> AErBcadCbFD
caaarrbabad -> cABarFECbDd</pre>

=={{header|FutureBasic}}==
<syntaxhighlight lang="futurebasic">
include "NSLog.incl"

void local fn DoIt
  long               a = 0, b = 0, r = 0, length, i
  CFMutableStringRef string = fn MutableStringWithString( @"abracadabra" )
  CFStringRef        s
  
  length = len(string)
  for i = 0 to length - 1
    s = NULL
    select ( mid(string,i,1) )
      case @"a"
        a++
        select ( a )
          case 1 : s = @"A"
          case 2 : s = @"B"
          case 4 : s = @"C"
          case 5 : s = @"D"
        end select
      case @"b"
        b++
        if ( b == 1 ) then s = @"E"
      case @"r"
        r++
        if ( r == 2 ) then s = @"F"
    end select
    if ( s ) then mid(string,i,1) = s
  next
  
  NSLog(@"%@",string)
end fn

fn DoIt

HandleEvents
</syntaxhighlight>

{{out}}
<pre>
AErBcadCbFD
</pre>

=={{header|Go}}==
{{trans|Wren}}
<syntaxhighlight lang="go">package main

import (
    "fmt"
    "strings"
)

func main() {
    s := "abracadabra"
    ss := []byte(s)
    var ixs []int
    for ix, c := range s {
        if c == 'a' {
            ixs = append(ixs, ix)
        }
    }
    repl := "ABaCD"
    for i := 0; i < 5; i++ {
        ss[ixs[i]] = repl[i]
    }
    s = string(ss)
    s = strings.Replace(s, "b", "E", 1)
    s = strings.Replace(s, "r", "F", 2)
    s = strings.Replace(s, "F", "r", 1)
    fmt.Println(s)
}</syntaxhighlight>

{{out}}
<pre>
AErBcadCbFD
</pre>

=={{header|Haskell}}==
As a map-accumulation:
<syntaxhighlight lang="haskell">import Data.List (mapAccumL)
import qualified Data.Map.Strict as M
import Data.Maybe (fromMaybe)

---------- POSITIONAL CHARACTER-REPLACEMENT RULES --------

nthCharsReplaced :: M.Map Char [Maybe Char] -> String -> String
nthCharsReplaced ruleMap = snd . mapAccumL go ruleMap
  where
    go a c =
      case M.lookup c a of
        Nothing -> (a, c)
        Just [] -> (a, c)
        Just (d : ds) ->
          ( M.insert c ds a,
            fromMaybe c d
          )

--------------------------- TEST -------------------------
main :: IO ()
main = putStrLn $ nthCharsReplaced rules "abracadabra"

rules :: M.Map Char [Maybe Char]
rules =
  M.fromList
    [ ('a', (Just <$> "AB") <> [Nothing] <> (Just <$> "CD")),
      ('b', [Just 'E']),
      ('r', [Nothing, Just 'F'])
    ]</syntaxhighlight>
{{Out}}
<pre>AErBcadCbFD</pre>

=={{header|J}}==

<syntaxhighlight lang="j">   upd=: {{ x (n{I.y=m)} y }}
   'ABCD' 'a' upd 0 1 3 4 'E' 'b' upd 0 'F' 'r' upd 1 'abracadabra'
AErBcadCbFD</syntaxhighlight>

<tt>upd</tt> here takes four arguments -- two on the left (replacement characters, original character) and two on the right(index values for which instances to replace, and the original string).

However, here's a more compact approach (the first item in the left argument is the target, and the rest of the left argument explicitly provides values for every instance of that item in the right argument):

<syntaxhighlight lang="j">   chg=: {{ (}.x) (I.y={.x)} y}}
   'aABaCD' chg 'bEb' chg 'rrF' chg 'abracadabra'
AErBcadCbFD</syntaxhighlight>


=={{header|Java}}==
{{trans|JavaScript}}
Here's an example translated from JavaScript.
<syntaxhighlight lang="java">
int findNth(String s, char c, int n) {
    if (n == 1) return s.indexOf(c);
    return s.indexOf(c, findNth(s, c, n - 1) + 1);
}

String selectiveReplace(String s, Set... ops) {
    char[] chars = s.toCharArray();
    for (Set set : ops)
        chars[findNth(s, set.old, set.n)] = set.rep;
    return new String(chars);
}

record Set(int n, char old, char rep) { }
</syntaxhighlight>
<syntaxhighlight lang="java">
selectiveReplace("abracadabra",
    new Set(1, 'a', 'A'),
    new Set(2, 'a', 'B'),
    new Set(4, 'a', 'C'),
    new Set(5, 'a', 'D'),
    new Set(1, 'b', 'E'),
    new Set(2, 'r', 'F'));
</syntaxhighlight>
{{out}}
<pre>AErBcadCbFD</pre>


=={{header|JavaScript}}==
<syntaxhighlight lang="javascript">function findNth(s, c, n) {
  if (n === 1) return s.indexOf(c);
  return s.indexOf(c, findNth(s, c, n - 1) + 1);
}

function selectiveReplace(s, ops) {
  const chars = Array.from(s);
  for ([n, old, rep] of ops) {
    chars[findNth(s, old, n)] = rep;
  }
  return chars.join("");
}

console.log(
  selectiveReplace("abracadabra", [
    [1, "a", "A"], // the first 'a' with 'A'
    [2, "a", "B"], // the second 'a' with 'B'
    [4, "a", "C"], // the fourth 'a' with 'C'
    [5, "a", "D"], // the fifth 'a' with 'D'
    [1, "b", "E"], // the first 'b' with 'E'
    [2, "r", "F"], // the second 'r' with 'F'
  ])
);</syntaxhighlight>
{{out}}
<pre>AErBcadCbFD</pre>


Or, expressed as a map-accumulation:
<syntaxhighlight lang="javascript">(() => {
    "use strict";

    // -- INSTANCE-SPECIFIC CHARACTER REPLACEMENT RULES --

    // # nthInstanceReplaced :: Dict Char [(Null | Char)] ->
    const nthInstanceReplaced = ruleMap =>
        // A string defined by replacements specified for
        // the nth instances of various characters.
        s => mapAccumL(
            (a, c) => c in a ? (() => {
                const ds = a[c];

                return Boolean(ds.length) ? [
                    Object.assign(a, {[c]: ds.slice(1)}),
                    ds[0] || c
                ] : [a, c];
            })() : [a, c]
        )(Object.assign({}, ruleMap))(
            [...s]
        )[1].join("");


    // ---------------------- TEST -----------------------
    const main = () =>
    // Instance-specific character replacement rules.
        nthInstanceReplaced({
            a: ["A", "B", null, "C", "D"],
            b: ["E"],
            r: [null, "F"]
        })(
            "abracadabra"
        );


    // --------------------- GENERIC ---------------------

    // mapAccumL :: (acc -> x -> (acc, y)) -> acc ->
    // [x] -> (acc, [y])
    const mapAccumL = f =>
    // A tuple of an accumulation and a list
    // obtained by a combined map and fold,
    // with accumulation from left to right.
        acc => xs => [...xs].reduce(
            ([a, bs], x) => second(
                v => [...bs, v]
            )(
                f(a, x)
            ),
            [acc, []]
        );


    // second :: (a -> b) -> ((c, a) -> (c, b))
    const second = f =>
    // A function over a simple value lifted
    // to a function over a tuple.
    // f (a, b) -> (a, f(b))
        ([x, y]) => [x, f(y)];


    // MAIN --
    return main();
})();</syntaxhighlight>
{{Out}}
<pre>AErBcadCbFD</pre>

=={{header|jq}}==
In this section, array-indexing and occurrence-counting are both 0-based except for the transcription of the task in `steps`.

'''Generic functions'''
<syntaxhighlight lang="jq">
# Emit empty if the stream does not have an $n-th item
# Note: jq's nth/2 does not serve our purposes.
def n_th($n; stream):
  if $n < 0 then empty
  else foreach stream as $x (-1; .+1; if . == $n then $x else empty end)
  end;

def positions(stream; $v):
  foreach stream as $x (-1; .+1; if $v == $x then . else empty end);

# Input: an array or string.
# Output: the input with an occurrence of $old replaced by $new.
# . and $reference are assumed to be of the same type and length.
# The search occurs in $reference and the corresponding spot in . is modified.
def replace_nth($occurrence; $old; $new; $reference):
  if type == "array"
  then ($reference | n_th($occurrence; positions(.[]; $old)) // null) as $ix
  | if $ix then .[:$ix] + [$new] + .[$ix + 1:] else . end
  else explode
  | replace_nth($occurrence; $old|explode|first; $new|explode|first; $reference|explode)
  | implode
  end;
</syntaxhighlight>

'''The task'''
<syntaxhighlight lang="jq">
def steps:
  [1, "a", "A"],
  [2, "a", "B"],
  [4, "a", "C"],
  [5, "a", "D"],
  [1, "b", "E"],
  [2, "r", "F"];

def task(steps):
  . as $reference
  | reduce steps as [$occurrence, $old, $new] (.;
      replace_nth($occurrence - 1; $old; $new; $reference ));
  
"abracadabra" | task(steps)
</syntaxhighlight>
{{Output}}
<pre>
AErBcadCbFD
</pre>

=={{header|Julia}}==
<syntaxhighlight lang="julia">
rep = Dict('a' => Dict(1 => 'A', 2 => 'B', 4 => 'C', 5 => 'D'), 'b' => Dict(1 => 'E'), 'r' => Dict(2 => 'F'))

function trstring(oldstring, repdict)
    seen, newchars = Dict{Char, Int}(), Char[]
    for c in oldstring
        i = get!(seen, c, 1)
        push!(newchars, haskey(repdict, c) && haskey(repdict[c], i) ? repdict[c][i] : c)
        seen[c] += 1
    end
    return String(newchars)
end

println("abracadabra -> ", trstring("abracadabra", rep))
</syntaxhighlight>{{out}}Same as Perl.

=={{header|Lambdatalk}}==

1) first answer

We first translate the replacements program into a sequence of rules
<pre>
the first  'a' with 'A'   -> aA1
...and so on
</pre>

Then we add to the existing set of array functions a new one finding the indexes of some value in a given array.
<syntaxhighlight lang="scheme">
{def A.findindexes

 {def A.findindexes.rec
  {lambda {:v :a :b :i}
   {if {A.empty? :a}
    then :b
    else {A.findindexes.rec :v {A.rest :a} 
                            {if {W.equal? {A.first :a} :v}
                             then {A.addlast! :i :b}
                             else :b} 
                            {+ :i 1}} }}}

 {lambda {:v :a}
  {A.findindexes.rec :v :a {A.new} 0} }}
-> A.findindexes
 
{A.findindexes a {A.split abracadabra}}
-> [0,3,5,7,10]
... and so on
</syntaxhighlight>

Using findindexes we can translate the aA1 aB2 aC4 aD5 bE1 rF2 sequence into a new one where numbers are replaced by indexes in the given string, here abracadabra.

<syntaxhighlight lang="scheme">
{def replacements.rules
  {lambda {:w :r}
   {A.new 
    {W.get 0 :r}
    {W.get 1 :r}
    {A.get {- {W.get 2 :r} 1}  // arrays begin at 0
           {A.findindexes {W.get 0 :r} {A.split :w}}}}}}
->  replacements.rules

{A.join {replacements.rules abracadabra aA1}}
-> aA0
... and so on
</syntaxhighlight>

Finally the replacements function will apply this sequence of rules to the word.

<syntaxhighlight lang="scheme">
{def replacements 

 {def replacements.rec
  {lambda {:word :rules}
   {if {A.empty? :rules}
    then {A.join :word}
    else {replacements.rec {A.set! {A.get 2 {A.first :rules}}
                                   {A.get 1 {A.first :rules}}
                                   :word} 
                           {A.rest :rules}} }}}

 {lambda {:word :rules}
  {replacements.rec
   {A.split :word} 
   {A.map {replacements.rules :word} {A.new :rules}} }}}
-> replacements

{replacements abracadabra aA1 aB2 aC4 aD5 bE1 rF2}
-> AErBcadCbFD
  (AErBcadCbFD)

{replacements caaarrbabad aA1 aB2 aC4 aD5 bE1 rF2} 
-> cABarFECbDd
  (cABarFECbDd)
</syntaxhighlight>

2) second answer using regexps

Here is a quick & dirty answer using the S.replace_once primitive.

<syntaxhighlight lang="scheme">
{def multrepl_rex
 {lambda {:word :rules}
  {if {A.empty? :rules}
   then :word
   else {multrepl_rex 
         {S.replace_once {W.first {A.first :rules}}
                     by {W.last {A.first :rules}}
                     in :word }
         {A.rest :rules}} }}}
-> multrepl_rex

{multrepl_rex
 abracadabra
  {A.new
   aA aB a3 aC aD 3a   // save third "a" as "3" and restore it
   bE                  // first "b"
   r1 rF 1r            // save first "r" as "1" and restore it
}}
-> AErBcadCbFD 
  (AErBcadCbFD)
</syntaxhighlight>

=={{header|Nim}}==
<syntaxhighlight lang="Nim">import std/tables

type
  # Table of replacements for a character.
  Replacements = Table[int, char]
  # Table mapping characters to their replacement table.
  ReplacementTable = Table[char, Replacements]

const ReplTable = {'a': {1: 'A', 2: 'B', 4: 'C', 5: 'D'}.toTable,
                   'b': {1: 'E'}.toTable,
                   'r': {2: 'F'}.toTable
                  }.toTable

proc replace(text: string; replTable: ReplacementTable): string =
  var counts: Table[char, int]  # Follow count of characters.
  for c in text:
    if c in replTable:
      counts.mgetOrPut(c, 0).inc  # Update count for this char.
      let pos = counts[c]
      result.add replTable[c].getOrDefault(pos, c)
    else:
      result.add c

echo replace("abracadabra", ReplTable)
</syntaxhighlight>

{{out}}
<pre>AErBcadCbFD
</pre>

=={{header|Perl}}==
<syntaxhighlight lang="perl">use strict;
use warnings;
use feature 'say';

sub transmogrify {
    my($str, %sub) = @_;
    for my $l (keys %sub) {
        $str =~ s/$l/$_/ for split '', $sub{$l};
        $str =~ s/_/$l/g;
    }
    $str
}

my $word = 'abracadabra';
say "$word -> " . transmogrify $word, 'a' => 'AB_CD', 'r' => '_F', 'b' => 'E';</syntaxhighlight>
{{out}}
<pre>abracadabra -> AErBcadCbFD</pre>



=={{header|Phix}}==
Couldn't really decide which I prefer so posted both.
<!--<syntaxhighlight lang="phix">(phixonline)-->
 <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
 <span style="color: #008080;">function</span> <span style="color: #000000;">replace_nth</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">r</span><span style="color: #0000FF;">)</span>
     <span style="color: #004080;">string</span> <span style="color: #000000;">res</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">s</span>
     <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">r</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">by</span> <span style="color: #000000;">3</span> <span style="color: #008080;">do</span>
         <span style="color: #000000;">res</span><span style="color: #0000FF;">[</span><span style="color: #7060A8;">find_all</span><span style="color: #0000FF;">(</span><span style="color: #000000;">r</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">s</span><span style="color: #0000FF;">)[</span><span style="color: #000000;">r</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]-</span><span style="color: #008000;">'0'</span><span style="color: #0000FF;">]]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">r</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">+</span><span style="color: #000000;">2</span><span style="color: #0000FF;">]</span>
     <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
     <span style="color: #008080;">return</span> <span style="color: #000000;">res</span>
 <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
 <span style="color: #0000FF;">?</span><span style="color: #000000;">replace_nth</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"abracadabra"</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"a1Aa2Ba4Ca5Db1Er2F"</span><span style="color: #0000FF;">)</span>
 
 <span style="color: #000080;font-style:italic;">-- Alternative version</span>
 <span style="color: #008080;">function</span> <span style="color: #000000;">replace_nths</span><span style="color: #0000FF;">(</span><span style="color: #004080;">string</span> <span style="color: #000000;">s</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">sequence</span> <span style="color: #000000;">r</span><span style="color: #0000FF;">)</span>
     <span style="color: #008080;">for</span> <span style="color: #000000;">icr</span> <span style="color: #008080;">in</span> <span style="color: #000000;">r</span> <span style="color: #008080;">do</span>
         <span style="color: #0000FF;">{</span><span style="color: #004080;">sequence</span> <span style="color: #000000;">idx</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">integer</span> <span style="color: #000000;">ch</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">string</span> <span style="color: #000000;">reps</span><span style="color: #0000FF;">}</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">icr</span>
         <span style="color: #000000;">s</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">reinstate</span><span style="color: #0000FF;">(</span><span style="color: #000000;">s</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">extract</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">find_all</span><span style="color: #0000FF;">(</span><span style="color: #000000;">ch</span><span style="color: #0000FF;">,</span><span style="color: #000000;">s</span><span style="color: #0000FF;">),</span><span style="color: #000000;">idx</span><span style="color: #0000FF;">),</span><span style="color: #000000;">reps</span><span style="color: #0000FF;">)</span>
     <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
     <span style="color: #008080;">return</span> <span style="color: #000000;">s</span>
 <span style="color: #008080;">end</span> <span style="color: #008080;">function</span>
 
 <span style="color: #008080;">constant</span> <span style="color: #000000;">r</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{{{</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">2</span><span style="color: #0000FF;">,</span><span style="color: #000000;">4</span><span style="color: #0000FF;">,</span><span style="color: #000000;">5</span><span style="color: #0000FF;">},</span><span style="color: #008000;">'a'</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"ABCD"</span><span style="color: #0000FF;">},</span>
               <span style="color: #0000FF;">{{</span><span style="color: #000000;">1</span><span style="color: #0000FF;">},</span><span style="color: #008000;">'b'</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"E"</span><span style="color: #0000FF;">},</span>
               <span style="color: #0000FF;">{{</span><span style="color: #000000;">2</span><span style="color: #0000FF;">},</span><span style="color: #008000;">'r'</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"F"</span><span style="color: #0000FF;">}}</span>
 <span style="color: #0000FF;">?</span><span style="color: #000000;">replace_nths</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"abracadabra"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">r</span><span style="color: #0000FF;">)</span>
<!--</syntaxhighlight>-->
{{out}}
<pre>
"AErBcadCbFD"
"AErBcadCbFD"
</pre>

=={{header|Phixmonti}}==
<syntaxhighlight lang="Phixmonti">/# Rosetta Code problem: https://rosettacode.org/wiki/Selectively_replace_multiple_instances_of_a_character_within_a_string
by Galileo, 11/2022 #/

include ..\Utilitys.pmt

"ABaCD" var A "Eb" var B "rF" var R

"abracadabra" len for >ps
    tps get tochar
    dup "a" == if drop A pop var A tps set else
    dup "b" == if drop B pop var B tps set else
    "r" == if R pop var R tps set
    endif endif endif
    ps> drop
endfor

pstack</syntaxhighlight>
{{out}}
<pre>
["AErBcadCbFD"]

=== Press any key to exit ===</pre>

=={{header|Python}}==
{{trans|Julia}}
<syntaxhighlight lang="python">from collections import defaultdict

rep = {'a' : {1 : 'A', 2 : 'B', 4 : 'C', 5 : 'D'}, 'b' : {1 : 'E'}, 'r' : {2 : 'F'}}
 
def trstring(oldstring, repdict):
    seen, newchars = defaultdict(lambda:1, {}), []
    for c in oldstring:
        i = seen[c]
        newchars.append(repdict[c][i] if c in repdict and i in repdict[c] else c)
        seen[c] += 1
    return ''.join(newchars)

print('abracadabra ->', trstring('abracadabra', rep))
</syntaxhighlight>

===Alternative===
<syntaxhighlight lang="python">import functools

from typing import Iterable
from typing import Tuple


@functools.cache
def find_nth(s: str, sub: str, n: int) -> int:
    assert n >= 1
    if n == 1:
        return s.find(sub)
    return s.find(sub, find_nth(s, sub, n - 1) + 1)


def selective_replace(s: str, ops: Iterable[Tuple[int, str, str]]) -> str:
    chars = list(s)
    for n, old, new in ops:
        chars[find_nth(s, old, n)] = new
    return "".join(chars)


print(
    selective_replace(
        "abracadabra",
        [
            (1, "a", "A"),  # the first 'a' with 'A'
            (2, "a", "B"),  # the second 'a' with 'B'
            (4, "a", "C"),  # the fourth 'a' with 'C'
            (5, "a", "D"),  # the fifth 'a' with 'D'
            (1, "b", "E"),  # the first 'b' with 'E'
            (2, "r", "F"),  # the second 'r' with 'F'
        ],
    )
)</syntaxhighlight>
{{out}}
<pre>AErBcadCbFD</pre>


Or, as a map-accumulation:
<syntaxhighlight lang="python">'''Instance-specific character replacement rules'''

from functools import reduce


# nthInstanceReplaced :: Dict Char [(None | Char)] ->
# String -> String
def nthInstanceReplaced(ruleMap):
    def go(a, c):
        ds = a.get(c, None)
        return (
            dict(a, **{c: ds[1:]}),
            ds[0] or c
        ) if ds else (a, c)

    return lambda s: ''.join(
        mapAccumL(go)(ruleMap)(s)[1]
    )


# ------------------------- TEST -------------------------
def main():
    '''Rule-set applied to a given string.'''

    print(
        nthInstanceReplaced({
            'a': ['A', 'B', None, 'C', 'D'],
            'b': ['E'],
            'r': [None, 'F']
        })(
            "abracadabra"
        )
    )


# ----------------------- GENERIC ------------------------

# mapAccumL :: (acc -> x -> (acc, y)) ->
# acc -> [x] -> (acc, [y])
def mapAccumL(f):
    '''A tuple of an accumulation and a map
       with accumulation from left to right.
    '''
    def go(a, x):
        return second(lambda v: a[1] + [v])(
            f(a[0], x)
        )
    return lambda acc: lambda xs: reduce(
        go, xs, (acc, [])
    )


# second :: (a -> b) -> ((c, a) -> (c, b))
def second(f):
    '''A simple function lifted to a function over a tuple,
       with f applied only to the second of two values.
    '''
    return lambda xy: (xy[0], f(xy[1]))


# MAIN ---
if __name__ == '__main__':
    main()</syntaxhighlight>
{{Out}}
<pre>AErBcadCbFD</pre>

=={{header|Quackery}}==

If there is no nth instance of a particular character in the string, <code>selectivereplace</code> will disregard it. For example, if the nest of replacements in the example included <code>[ 1 char z char ! ]</code> the output would be the same, as there is no z in "abracadabra".

<syntaxhighlight lang="Quackery"> [ dup size temp put
   witheach
     [ over = if
        [ swap 1 -
          tuck 0 = if
            [ i^ temp replace
              conclude ] ] ]
    2drop
    temp take ]               is nfind            ( n c $ --> n )

  [ temp put
    [] [] rot witheach
      [ 2 pluck
        dip rot join unrot
        nested join ]
    [] swap witheach
      [ do
        temp share nfind
        join ]
    temp take 0 join unrot
    witheach
      [ dip [ behead rot ]
        poke swap ]
    drop
    -1 split drop ]           is selectivereplace (   [ $ --> $ )


  ' [ [ 1 char a char A ]
      [ 2 char a char B ]
      [ 4 char a char C ]
      [ 5 char a char D ]
      [ 1 char b char E ]
      [ 2 char r char F ] ]
  $ "abracadabra"
  selectivereplace echo$</syntaxhighlight>

{{out}}

<pre>AErBcadCbFD</pre>

=={{header|Raku}}==
Set up to not particularly rely on absolute structure of the word. Demonstrate with both the original 'abracadabra' and with a random shuffled instance.

<syntaxhighlight lang="raku" line>sub mangle ($str is copy) {
    $str.match(:ex, 'a')».from.map: { $str.substr-rw($_, 1) = 'ABaCD'.comb[$++] };
    $str.=subst('b', 'E');
    $str.substr-rw($_, 1) = 'F' given $str.match(:ex, 'r')».from[1];
    $str
}

say $_, ' -> ', .&mangle given 'abracadabra';

say $_, ' -> ', .&mangle given 'abracadabra'.comb.pick(*).join;</syntaxhighlight>

{{out}}
<pre>abracadabra -> AErBcadCbFD
caarabadrab -> cABraECdFDb</pre>

=={{header|RPL}}==
The character "-" in the rule string means that no replacement should be made for the occurrence concerned. Any other character can be chosen by modifying the code appropriately.

Due to the use of <code>INCR</code> and <code>REPL</code> instructions, this program will only work directly on HP48 compatible RPL versions. HP28 users must have programmed their own version of these instructions.
{| class="wikitable"
! RPL code
! Comment
|-
| 
  ≪ 0 → car rule occ
   ≪ 1 OVER SIZE '''FOR''' j
       '''IF''' DUP j DUP SUB car == '''THEN'''
         rule 'occ' INCR DUP SUB
         '''IF''' DUP "-" == '''THEN''' DROP '''ELSE''' j SWAP REPL '''END'''
      '''END NEXT'''
 ≫ ≫ ''''REPLR'''' STO
| 
 '''REPLR''' ''( "string" "character" "rule" -- "string" ) ''
 loop for j = 1 to string length
    if string[j] == character
       get todo = rule[++occ]
       replace if todo is different from "-"
    end if end loop
 return string
|}
{{in}}
<pre>
"abracadabra"
≪ "a" "AB-CD" REPLR "b" "E" REPLR "r" "-F" REPLR ≫ EVAL
</pre>
{{out}}
<pre>
1: "AErBcadCbFD"
</pre>

=={{header|Ruby}}==
<syntaxhighlight lang="ruby">str = "abracadabra"
rules = [
  ["a", 1, "A"],
  ["a", 2, "B"],
  ["a", 4, "C"],
  ["a", 5, "D"], 
  ["b", 1, "E"], 
  ["r", 2, "F"]]

indices = Hash.new{[]}
str.each_char.with_index{|c, i| indices[c] <<= i}

rules.each{|char, i, to| str[indices[char][i-1]] = to}

p str</syntaxhighlight>
{{out}}
<pre>"AErBcadCbFD"
</pre>
=={{header|sed}}==
<syntaxhighlight lang="sed">s/a\([^a]*\)a\([^a]*a[^a]*\)a\([^a]*\)a/A\1B\2C\3D/
s/b/E/
s/\(r[^r]*\)r/\1F/</syntaxhighlight>

=={{header|V (Vlang)}}==
A similar approach to the C++ entry.
<syntaxhighlight lang="ruby">fn selectively_replace_chars(s string, char_map map[string]string) string {
    mut bytes := s.bytes()
    mut counts := {
        'a': 0
        'b': 0
        'r': 0
    }
    for i := s.len - 1; i >= 0; i-- {
        c := s[i].ascii_str()
        if c in ['a', 'b', 'r'] {
            bytes[i] = char_map[c][counts[c]]
            counts[c]++
        }
    }
    return bytes.bytestr()
}

fn main() {
    char_map := {
        'a': 'DCaBA'
        'b': 'bE'
        'r': 'Fr'
    }
    for old in ['abracadabra', 'caaarrbabad'] {
        new := selectively_replace_chars(old, char_map)
        println('$old -> $new')
    }
}</syntaxhighlight>

{{out}}
<pre>
abracadabra -> AErBcadCbFD
caaarrbabad -> cABarFECbDd
</pre>

=={{header|Wren}}==
{{libheader|Wren-seq}}
{{libheader|Wren-str}}
{{libheader|Wren-regex}}
Not particularly succinct but, thanks to a recently added library method, better than it would have been :)
<syntaxhighlight lang="wren">import "./seq" for Lst
import "./str" for Str

var s = "abracadabra"
var sl = s.toList
var ixs = Lst.indicesOf(sl, "a")[2]
var repl = "ABaCD"
for (i in 0..4) sl[ixs[i]] = repl[i]
s = sl.join()
s = Str.replace(s, "b", "E", 1)
s = Str.replace(s, "r", "F", 2, 1)
System.print(s)</syntaxhighlight>

{{out}}
<pre>
AErBcadCbFD
</pre>

Alternatively, using regular expressions (embedded script) producing output as before.
<syntaxhighlight lang="wren">import "./regex" for Regex

var s = "abracadabra"
var split = Regex.compile("a").split(s)
var repl = "ABaCD"
var res = ""
for (i in 0...split.count-1) res = res + split[i] + repl[i]
s = res + split[-1]
s = Regex.compile("b").replace(s, "E")
s = Regex.compile("r").replaceAll(s, "F", 2, 1)
System.print(s)</syntaxhighlight>

=={{header|XPL0}}==
<syntaxhighlight lang="xpl0">string 0;
proc Mangle(S);
char S, A, B, R;
[A:= "ABaCD";  B:= "Eb";  R:= "rF";
while S(0) do
    [case S(0) of
      ^a: [S(0):= A(0);  A:= A+1];
      ^b: [S(0):= B(0);  B:= B+1];
      ^r: [S(0):= R(0);  R:= R+1]
    other [];
    S:= S+1;
    ];
];

char S;
[S:= "abracadabra"; 
Text(0, S);  Text(0, " -> ");  Mangle(S);  Text(0, S);  CrLf(0);
S:= "caarabadrab";
Text(0, S);  Text(0, " -> ");  Mangle(S);  Text(0, S);  CrLf(0);
]</syntaxhighlight>

{{out}}
<pre>
abracadabra -> AErBcadCbFD
caarabadrab -> cABraECdFDb
</pre>