Skip to main content
Commonmark migration
Source Link

#Maple, 32,30 29 bytes

Maple, 32,30 29 bytes

f:=x->`if`(x>1,1+f(log(x)),0) 

Test cases:

> f(0.); 0 > f(1.); 0 > f(2.); 1 > f(3.); 2 > f(4.); 2 > f(3814279.); 3 > f(3814280.); 4 

#Maple, 32,30 29 bytes

f:=x->`if`(x>1,1+f(log(x)),0) 

Test cases:

> f(0.); 0 > f(1.); 0 > f(2.); 1 > f(3.); 2 > f(4.); 2 > f(3814279.); 3 > f(3814280.); 4 

Maple, 32,30 29 bytes

f:=x->`if`(x>1,1+f(log(x)),0) 

Test cases:

> f(0.); 0 > f(1.); 0 > f(2.); 1 > f(3.); 2 > f(4.); 2 > f(3814279.); 3 > f(3814280.); 4 
Semi-colon not needed
Source Link
DSkoog
  • 580
  • 3
  • 9

#Maple, 32,30 3029 bytes

f:=x->`if`(x>1,1+f(log(x)),0); 

Test cases:

> f(0.); 0 > f(1.); 0 > f(2.); 1 > f(3.); 2 > f(4.); 2 > f(3814279.); 3 > f(3814280.); 4 

#Maple, 32 30 bytes

f:=x->`if`(x>1,1+f(log(x)),0); 

Test cases:

> f(0.); 0 > f(1.); 0 > f(2.); 1 > f(3.); 2 > f(4.); 2 > f(3814279.); 3 > f(3814280.); 4 

#Maple, 32,30 29 bytes

f:=x->`if`(x>1,1+f(log(x)),0) 

Test cases:

> f(0.); 0 > f(1.); 0 > f(2.); 1 > f(3.); 2 > f(4.); 2 > f(3814279.); 3 > f(3814280.); 4 
Save two characters
Source Link
DSkoog
  • 580
  • 3
  • 9

#Maple, 3232 30 bytes

f:=x->ifelse>`if`(x>1,1+f(log(x)),0); 

Test cases:

> f(0.); 0 > f(1.); 0 > f(2.); 1 > f(3.); 2 > f(4.); 2 > f(3814279.); 3 > f(3814280.); 4 

#Maple, 32 bytes

f:=x->ifelse(x>1,1+f(log(x)),0); 

Test cases:

> f(0.); 0 > f(1.); 0 > f(2.); 1 > f(3.); 2 > f(4.); 2 > f(3814279.); 3 > f(3814280.); 4 

#Maple, 32 30 bytes

f:=x->`if`(x>1,1+f(log(x)),0); 

Test cases:

> f(0.); 0 > f(1.); 0 > f(2.); 1 > f(3.); 2 > f(4.); 2 > f(3814279.); 3 > f(3814280.); 4 
Source Link
DSkoog
  • 580
  • 3
  • 9
Loading