Ntheory functions wrapped

Author: rajithv

ext/symengine/ruby_ntheory.c

@@ -56,3 +56,50 @@ VALUE cntheory_mod(VALUE self, VALUE operand1, VALUE operand2) {
 VALUE cntheory_quotient(VALUE self, VALUE operand1, VALUE operand2) {
     return cntheory_twoarg(ntheory_quotient, operand1, operand2);
 }
+
+VALUE cntheory_fibonacci(VALUE self, VALUE operand1){
+    basic_struct *cresult;
+    VALUE result;
+
+    unsigned long cbasic_operand1;
+    cbasic_operand1 = NUM2ULONG(operand1);
+
+    cresult = basic_new_heap();
+    ntheory_fibonacci(cresult, cbasic_operand1);
+    result = Data_Wrap_Struct(Klass_of_Basic(cresult), NULL , cbasic_free_heap, cresult);
+
+    return result;
+}
+
+VALUE cntheory_lucas(VALUE self, VALUE operand1){
+    basic_struct *cresult;
+    VALUE result;
+
+    unsigned long cbasic_operand1;
+    cbasic_operand1 = NUM2ULONG(operand1);
+
+    cresult = basic_new_heap();
+    ntheory_lucas(cresult, cbasic_operand1);
+    result = Data_Wrap_Struct(Klass_of_Basic(cresult), NULL , cbasic_free_heap, cresult);
+
+    return result;
+}
+
+VALUE cntheory_binomial(VALUE self, VALUE operand1, VALUE operand2){
+    basic_struct *cresult;
+    VALUE result;
+
+    basic cbasic_operand1;
+    basic_new_stack(cbasic_operand1);
+    sympify(operand1, cbasic_operand1);
+
+    unsigned long cbasic_operand2;
+    cbasic_operand2 = NUM2ULONG(operand2);
+
+    cresult = basic_new_heap();
+    ntheory_binomial(cresult, cbasic_operand1, cbasic_operand2);
+    result = Data_Wrap_Struct(Klass_of_Basic(cresult), NULL , cbasic_free_heap, cresult);
+    basic_free_stack(cbasic_operand1);
+
+    return result;
+}

ext/symengine/ruby_ntheory.h

@@ -16,8 +16,8 @@ VALUE cntheory_lcm(VALUE self, VALUE operand1, VALUE operand2);
 VALUE cntheory_nextprime(VALUE self, VALUE operand1);
 VALUE cntheory_mod(VALUE self, VALUE operand1, VALUE operand2);
 VALUE cntheory_quotient(VALUE self, VALUE operand1, VALUE operand2);
-//VALUE cntheory_fibonacci(VALUE self, VALUE operand1);
-//VALUE cntheory_lucas(VALUE self, VALUE operand1);
-//VALUE cntheory_binomial(VALUE self, VALUE operand1, VALUE operand2);
+VALUE cntheory_fibonacci(VALUE self, VALUE operand1);
+VALUE cntheory_lucas(VALUE self, VALUE operand1);
+VALUE cntheory_binomial(VALUE self, VALUE operand1, VALUE operand2);
 
 #endif //RUBY_NTHEORY_H_

ext/symengine/symengine.c

@@ -152,8 +152,8 @@ void Init_symengine() {
     rb_define_module_function(m_symengine, "nextprime", cntheory_nextprime, 1);
     rb_define_module_function(m_symengine, "mod", cntheory_mod, 2);
     rb_define_module_function(m_symengine, "quotient", cntheory_quotient, 2);
-    //rb_define_module_function(m_symengine, "fibonacci", cntheory_fibonacci, 1);
-    //rb_define_module_function(m_symengine, "lucas", cntheory_lucas, 1);
-    //rb_define_module_function(m_symengine, "binomial", cntheory_binomial, 2);
+    rb_define_module_function(m_symengine, "fibonacci", cntheory_fibonacci, 1);
+    rb_define_module_function(m_symengine, "lucas", cntheory_lucas, 1);
+    rb_define_module_function(m_symengine, "binomial", cntheory_binomial, 2);
 
 }