4 lines
100 B
R
4 lines
100 B
R
library(digest)
|
|
|
|
input <- "Rosetta Code"
|
|
cat(digest(input, algo = "sha1", serialize = FALSE), "\n")
|