make silly sentences

lang.R

nouns = c("cat", "mat", "cow", "chair", "table", "person", "food")
pastverbs = c("sat", "walked", "rode", "spent", "moved", "wrote", "managed", "went")
preps = c("on", "over", "beyond", "above", "beneath")
indic = c("the", "a", "any", "some")
adjectives = c("cute", "big", "small", "tiny", "huge", "green")

get1 = function (x) sample(x, size=1)

sentence = function() {
  sprintf("%s %s %s %s %s %s %s\n", get1(indic), get1(nouns), get1(pastverbs),
     get1(preps), get1(indic), get1(adjectives), get1(nouns))
}

sentence()