---

我是個程式初學的大學生
讀的和程式可說相關性不太大
在學過基本的C語言後(學到structure)

對程式懂的還滿少的(汗


意外碰到了一個奇怪的語言J

因為它可以處理矩陣、複數
又是免費可以使用

又因著自己喜歡奇怪的東西就自己看官網上的教學自己學
http://www.jsoftware.com/docs/help701/learning/contents.htm



自己隨便寫了個用連分數開根號的小程式
(其實J有開根號的built-in function， 是「%:」)

用J語言中的「f ^:_」(注：_表無限，^:_表無限次方)

將一函數使用在一數字，無限次，直達穩定(f(x)=x時)


我令一個單變數動詞root(以C語言來說，像是funtion)
右變數動詞的引數代號為y

root=: 3 : 0
n=. 0
r=. 1    
if.y
do. r=.0j1
y=.-y
end.
while. y > *:(n+1)
do. n=.n+1
end.
a=. y -(*:n)
]r&*n + ((a % (2*n)&+)^:_) 1
)

執行結果


   root 2
1.41421
 
   root 100
10

   root 236
15.3623

   root 5.248
2.29085


   root _2
0j1.41421

即為0+1.41421i


   root 0.001
掛掉XD
---------------------------------------------

統計軟體R似乎和它還滿像的

其實只是想問，有沒有人也學過J這樣


學過的人感覺如何？

--
※ 作者: gary8520 時間: 2011-10-14 14:19:17
※ 編輯: gary8520 時間: 2011-10-14 14:26:50