17 lines
443 B
R
17 lines
443 B
R
palautaYks <- function(num, yks) {
|
||
# palauttaa luvun num 10^yks termin kertoimen
|
||
# string:in?
|
||
# yks t<>ytyy olla kokonaisluku, joka on
|
||
# v<>hint<6E><74>n -1:n suuruinen. Pienemmill?
|
||
# luvuilla tapahtuu jokin py<70>ristysvirhe.
|
||
|
||
if (yks >= 0) {
|
||
digit <- num %% 10^(yks + 1)
|
||
digit <- floor(digit / (10^yks))
|
||
} else {
|
||
digit <- num * 10
|
||
digit <- floor(digit %% 10)
|
||
}
|
||
digit <- as.character(digit)
|
||
return(digit)
|
||
}
|