aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Display-a-linear-combination/R/display-a-linear-combination.r
View file

@ -7,21 +7,21 @@ basisify <- function(v){
terms <- c(terms, str_glue("{v[i]}*e({i})"))
}
}
if(length(terms)==0) return(0)
if(length(terms)==0) return("0")
terms <- str_replace_all(terms, fixed("1*"), "")
series <- str_flatten(terms, collapse=" + ")
return(str_replace_all(series, fixed("+ -"), "- "))
str_replace_all(series, fixed("+ -"), "- ")
}
test_vectors <- list(c(1,2,3),
c(0,1,2,3),
c(1,0,3,4),
c(1,2,0),
c(0,0,0),
test_vectors <- list(c(1, 2, 3),
c(0, 1, 2, 3),
c(1, 0, 3, 4),
c(1, 2, 0),
c(0, 0, 0),
0,
c(1,1,1),
c(-1,-1,-1),
c(-1,-2,0,-3),
c(1, 1, 1),
c(-1, -1, -1),
c(-1, -2, 0, -3),
-1)
print(lapply(test_vectors, basisify), quote=FALSE)
writeLines(sapply(test_vectors, basisify))