RosettaCodeData/Task/Fusc-sequence/R/fusc-sequence-2.r
2023-07-01 13:44:08 -04:00

4 lines
194 B
R

index <- which.max(nchar(first61) == 2)
number <- first61[index]
cat("The first fusc number that is longer than all previous fusc numbers is", number,
"and it occurs at index", index, "\n")