## Remove prefix di-, ke-, se-
## eg. dimakan, kekuatan, sehati
HapusAwalanDiKeSe <- function(kata) {
if ( grepl("^(di|[ks]e)", kata) ) {
kata1 <- sub("^(di|[ks]e)", "", kata)
if ( is_katadasar(kata1) ) {
return(kata1)
}
kata2 <- HapusAkhiranIAnKan(kata1)
if ( is_katadasar(kata2) ) {
return(kata2)
}
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.