如何在ABAP里用函数式编程思想打印出非波拉契Fibonacci(数列)
生活随笔
收集整理的這篇文章主要介紹了
如何在ABAP里用函数式编程思想打印出非波拉契Fibonacci(数列)
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
在JavaScript里可以用ES6提供的FunctionGenerator這種黑科技來打印非波拉契數列,具體細節參考我這篇文章。
在ABAP里也有很多種方式實現這個需求。
下面這個report分別用遞歸和ABAP internal table的方式實現了非波拉契數列的打印。
REPORT Z_FIBO.PARAMETERS: N type i,v1 RADIOBUTTON GROUP v default 'X',v2 RADIOBUTTON GROUP v.data: f type i,t type i.data: product_guid type comm_product-product_guid.get run time field t.case 'X'.when v1\. perform fibonacci using n changing f.when v2\. perform fibonacci_2 using n changing f.endcase.write: / 'Fibonacci(', n, ') =', f.get run time field t.write: / 'Runtime', t, 'microseconds'.*&---------------------------------------------------------------------**& Form fibonacci*&---------------------------------------------------------------------*form fibonacci using in type ichanging fib type i.data: f_1 type i, f_2 type i,n_1 type i, n_2 type i.case in.when 0\. fib = 1.when 1\. fib = 1.when others.n_1 = in - 1.n_2 = in - 2.perform fibonacci using n_1 changing f_1.perform fibonacci using n_2 changing f_2.fib = f_1 + f_2.endcase.endform. "fibonacci*&---------------------------------------------------------------------**& Form fibonacci_2*&---------------------------------------------------------------------*form fibonacci_2 using in type ichanging fib type i.data: f_1 type i, f_2 type i,n_1 type i, n_2 type i,l type i.data: fibo type table of i.append 1 to fibo. " fibonacci(0)append 1 to fibo. " fibonacci(1)n_1 = 1.n_2 = 2.l = in - 1.do l times.read table fibo index n_1 into f_1.read table fibo index n_2 into f_2.fib = f_1 + f_2.add 1 to n_1\. add 1 to n_2.append fib to fibo.enddo.endform. "fibonacci_2以上兩種解決方案相對來說都比較傳統,再來看看使用ABAP 7.40提供的新關鍵字COND實現的非波拉契數列打印:
REPORT z.CLASS lcl_fibonacci DEFINITION.PUBLIC SECTION.TYPES: zint_tab TYPE TABLE OF int4 WITH EMPTY KEY.METHODS fibonacciIMPORTING !n TYPE i RETURNING VALUE(fib_numbers) TYPE zint_tab.ENDCLASS.CLASS lcl_fibonacci IMPLEMENTATION.METHOD fibonacci.fib_numbers = COND #( WHEN n = 0THEN VALUE #( ( |0| ) )WHEN n = 1THEN VALUE #( ( |0| ) ( |1| ) )ELSEVALUE #( LET fn1 = fibonacci( n - 1 )x = fn1[ lines( fn1 ) ]y = fn1[ lines( fn1 ) - 1 ]IN ( LINES OF fn1 ) ( x + y ) ) ).ENDMETHOD.ENDCLASS.START-OF-SELECTION.cl_demo_output=>display( NEW lcl_fibonacci( )->fibonacci( 10 ) ).打印輸出:
要獲取更多Jerry的原創技術文章,請關注公眾號"汪子熙"或者掃描下面二維碼:
總結
以上是生活随笔為你收集整理的如何在ABAP里用函数式编程思想打印出非波拉契Fibonacci(数列)的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 使用JavaScript ES6的新特性
- 下一篇: 华为影像之王!P60 Art今日正式开售