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