String Replacements

xxxxxxxxxx

 

1

r.eval("""

2

replace_function<-function(w) {

3

    while (grepl('7777',w) | grepl('8888',w)) { 

4

        print(w)

5

        if (grepl('7777',w)) { w<-sub('7777','8',w) } 

6

        else { w<-sub('8888','7',w) } }   

7

    return(w) }

8

string<-paste(replicate(70,'7'),collapse='')

9

replace_function(string)""")

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages