Method 1 : Run the following program and see what I mean
paste(intToUtf8(acos(log(1))*180/pi-13), toupper(substr(month.name[2],2,2)), paste(rep(intToUtf8(acos(exp(0)/2)*180/pi+2^4+3*2),2), collapse = intToUtf8(0)), LETTERS[5^(3-1)], intToUtf8(atan(1/sqrt(3))*180/pi+2), toupper(substr(month.abb[10],2,2)), intToUtf8(acos(log(1))*180/pi-(2*3^2)), toupper(substr(month.name[4],3,4)), intToUtf8(acos(exp(0)/2)*180/pi+2^4+3*2+1), intToUtf8(acos(exp(0)/2)*180/pi+2^4+2*4), intToUtf8(acos(log(1))*180/pi-13), LETTERS[median(0:2)], intToUtf8(atan(1/sqrt(3))*180/pi*3-7), sep = intToUtf8(0) )
Turn on computer speakers before running the code.
install.packages("audio") library(audio) christmas_file <- tempfile() download.file("https://github.com/deepanshu88/Datasets/raw/master/UploadedFiles/merrychristmas1.wav", christmas_file, mode = "wb") xmas <- load.wave(christmas_file) play(xmas)
Share Share Tweet