fork download
copy 
  1. antifac <- function(n) {
  2.   div <- 2
  3.   res <- n
  4.   while(res > 1) {
  5.     res <- res/div
  6.     div <- div + 1
  7.   }
  8.   if(res == 1) {
  9.     writeLines(paste(n, ' = ', div-1, '!', sep=''))
  10.   } else {
  11.     writeLines(paste(n,'= NONE'))
  12.   }
  13. }
  14.  
  15. inputs <- c(3628800, 479001600, 6, 18)
  16. result <- lapply(inputs,antifac)
  17.  
Success #stdin #stdout 0.21s 60752KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
3628800 = 10!
479001600 = 12!
6 = 3!
18 = NONE
https://ideone.com/5XZ8UX
language:
R (R 3.5.2)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!