fork download 
  1. library(stringr)
  2.  
  3. collatz <- function(x) {
  4.   alph <- list(a = "bc", b = "a", c = "aaa")
  5.   todos <- c()
  6.   while(str_length(x) >= 2) {
  7.     el <- which(str_sub(x, 1, 1) == names(alph))
  8.     x <- str_c(str_sub(x, 3, -1), alph[[el]])
  9.     todos <- c(todos, x)
  10.   }
  11.   return(cat(todos, sep = "\n"))
  12. }
  13.  
  14. cyclic <- function(x) {
  15.   alph <- list(a = "100", b = "010", c = "001")
  16.   Q <- list("010001", "100", "100100100", "-", "-", "-")
  17.   todos <- c()
  18.   while(str_length(x) > 3) {
  19.     need <- which(str_sub(x, 1, 3) == alph)
  20.     for(i in 1:6) {
  21.       x <- str_sub(x, 2, -1)
  22.       if(i == need)
  23.         x <- str_c(x, Q[[i]])
  24.       todos <- c(todos, x)
  25.     }
  26.   }
  27.   return(cat(todos, sep = "\n"))
  28. }
  29.  
  30. collatz("aaa")
  31. cyclic("100100100")
  32. collatz("aaaaaaa")
Success #stdin #stdout 0.34s 182464KB
comments (?)
stdin 
Standard input is empty
stdout 
abc
cbc
caaa
aaaaa
aaabc
abcbc
cbcbc
cbcaaa
caaaaaa
aaaaaaaa
aaaaaabc
aaaabcbc
aabcbcbc
bcbcbcbc
bcbcbca
bcbcaa
bcaaa
aaaa
aabc
bcbc
bca
aa
bc
a
00100100010001
0100100010001
100100010001
00100010001
0100010001
100010001
00010001010001
0010001010001
010001010001
10001010001
0001010001
001010001
01010001
1010001
010001100100100
10001100100100
0001100100100
001100100100
01100100100
1100100100
100100100100100100
00100100100100100
0100100100100100
100100100100100
00100100100100010001
0100100100100010001
100100100100010001
00100100100010001
0100100100010001
100100100010001
00100100010001010001
0100100010001010001
100100010001010001
00100010001010001
0100010001010001
100010001010001
00010001010001010001
0010001010001010001
010001010001010001
10001010001010001
0001010001010001
001010001010001
01010001010001
1010001010001
010001010001100100100
10001010001100100100
0001010001100100100
001010001100100100
01010001100100100
1010001100100100
010001100100100100100100
10001100100100100100100
0001100100100100100100
001100100100100100100
01100100100100100100
1100100100100100100
100100100100100100100100100
00100100100100100100100100
0100100100100100100100100
100100100100100100100100
00100100100100100100100010001
0100100100100100100100010001
100100100100100100100010001
00100100100100100100010001
0100100100100100100010001
100100100100100100010001
00100100100100100010001010001
0100100100100100010001010001
100100100100100010001010001
00100100100100010001010001
0100100100100010001010001
100100100100010001010001
00100100100010001010001010001
0100100100010001010001010001
100100100010001010001010001
00100100010001010001010001
0100100010001010001010001
100100010001010001010001
00100010001010001010001010001
0100010001010001010001010001
100010001010001010001010001
00010001010001010001010001
0010001010001010001010001
010001010001010001010001
10001010001010001010001
0001010001010001010001100
001010001010001010001100
01010001010001010001100
1010001010001010001100
010001010001010001100
10001010001010001100
0001010001010001100100
001010001010001100100
01010001010001100100
1010001010001100100
010001010001100100
10001010001100100
0001010001100100100
001010001100100100
01010001100100100
1010001100100100
010001100100100
10001100100100
0001100100100100
001100100100100
01100100100100
1100100100100
100100100100
00100100100010001
0100100100010001
100100100010001
00100100010001
0100100010001
100100010001
00100010001010001
0100010001010001
100010001010001
00010001010001
0010001010001
010001010001
10001010001
0001010001100
001010001100
01010001100
1010001100
010001100
10001100
0001100100
001100100
01100100
1100100
100100
00100010001
0100010001
100010001
00010001
0010001
010001
10001
0001100
001100
01100
1100
100
aaaaabc
aaabcbc
abcbcbc
cbcbcbc
cbcbcaaa
cbcaaaaaa
caaaaaaaaa
aaaaaaaaaaa
aaaaaaaaabc
aaaaaaabcbc
aaaaabcbcbc
aaabcbcbcbc
abcbcbcbcbc
cbcbcbcbcbc
cbcbcbcbcaaa
cbcbcbcaaaaaa
cbcbcaaaaaaaaa
cbcaaaaaaaaaaaa
caaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaabc
aaaaaaaaaaaaabcbc
aaaaaaaaaaabcbcbc
aaaaaaaaabcbcbcbc
aaaaaaabcbcbcbcbc
aaaaabcbcbcbcbcbc
aaabcbcbcbcbcbcbc
abcbcbcbcbcbcbcbc
cbcbcbcbcbcbcbcbc
cbcbcbcbcbcbcbcaaa
cbcbcbcbcbcbcaaaaaa
cbcbcbcbcbcaaaaaaaaa
cbcbcbcbcaaaaaaaaaaaa
cbcbcbcaaaaaaaaaaaaaaa
cbcbcaaaaaaaaaaaaaaaaaa
cbcaaaaaaaaaaaaaaaaaaaaa
caaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaabc
aaaaaaaaaaaaaaaaaaaaaabcbc
aaaaaaaaaaaaaaaaaaaabcbcbc
aaaaaaaaaaaaaaaaaabcbcbcbc
aaaaaaaaaaaaaaaabcbcbcbcbc
aaaaaaaaaaaaaabcbcbcbcbcbc
aaaaaaaaaaaabcbcbcbcbcbcbc
aaaaaaaaaabcbcbcbcbcbcbcbc
aaaaaaaabcbcbcbcbcbcbcbcbc
aaaaaabcbcbcbcbcbcbcbcbcbc
aaaabcbcbcbcbcbcbcbcbcbcbc
aabcbcbcbcbcbcbcbcbcbcbcbc
bcbcbcbcbcbcbcbcbcbcbcbcbc
bcbcbcbcbcbcbcbcbcbcbcbca
bcbcbcbcbcbcbcbcbcbcbcaa
bcbcbcbcbcbcbcbcbcbcaaa
bcbcbcbcbcbcbcbcbcaaaa
bcbcbcbcbcbcbcbcaaaaa
bcbcbcbcbcbcbcaaaaaa
bcbcbcbcbcbcaaaaaaa
bcbcbcbcbcaaaaaaaa
bcbcbcbcaaaaaaaaa
bcbcbcaaaaaaaaaa
bcbcaaaaaaaaaaa
bcaaaaaaaaaaaa
aaaaaaaaaaaaa
aaaaaaaaaaabc
aaaaaaaaabcbc
aaaaaaabcbcbc
aaaaabcbcbcbc
aaabcbcbcbcbc
abcbcbcbcbcbc
cbcbcbcbcbcbc
cbcbcbcbcbcaaa
cbcbcbcbcaaaaaa
cbcbcbcaaaaaaaaa
cbcbcaaaaaaaaaaaa
cbcaaaaaaaaaaaaaaa
caaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaabc
aaaaaaaaaaaaaaaabcbc
aaaaaaaaaaaaaabcbcbc
aaaaaaaaaaaabcbcbcbc
aaaaaaaaaabcbcbcbcbc
aaaaaaaabcbcbcbcbcbc
aaaaaabcbcbcbcbcbcbc
aaaabcbcbcbcbcbcbcbc
aabcbcbcbcbcbcbcbcbc
bcbcbcbcbcbcbcbcbcbc
bcbcbcbcbcbcbcbcbca
bcbcbcbcbcbcbcbcaa
bcbcbcbcbcbcbcaaa
bcbcbcbcbcbcaaaa
bcbcbcbcbcaaaaa
bcbcbcbcaaaaaa
bcbcbcaaaaaaa
bcbcaaaaaaaa
bcaaaaaaaaa
aaaaaaaaaa
aaaaaaaabc
aaaaaabcbc
aaaabcbcbc
aabcbcbcbc
bcbcbcbcbc
bcbcbcbca
bcbcbcaa
bcbcaaa
bcaaaa
aaaaa
aaabc
abcbc
cbcbc
cbcaaa
caaaaaa
aaaaaaaa
aaaaaabc
aaaabcbc
aabcbcbc
bcbcbcbc
bcbcbca
bcbcaa
bcaaa
aaaa
aabc
bcbc
bca
aa
bc
a
https://ideone.com/WZdRhG
language:
R (R 3.5.2)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!