等比数列を無限に生成する
説明
Egison言語で等比数列を無限に生成するには「(define $変数名 {初期値 @(map (* $ 値) 変数名)})」を使います。(define $n {1 @(map (* $ 2) n)})とすると変数nに1から始まり2倍ずつ乗算される数値(1,2,4,8,16,32,64,128,256...)が無限に入ります。
サンプル [
サンプルをダウンロード
]
(define $n {1 @(map (* $ 2) n)})
(take 20 n)
実行結果