Arithmetic on Functions

(sin 2.5)
#| .5984721441039565 |#


(square 2.5)
#| 6.25 |#


((+ sin square) 2.5)
#| 6.848472144103956 |#


((+ (square sin) (square cos)) 2.5)
#| 1. |#




Jerald Sussman 이 2011년 Strange Loop에서 발표한 자료에 위와 같은 예제가 살짝 소개된다. 이렇게 하려면 +를 재정의해줘야 겠지만, 이렇게 할 수 있다는 것이.. 흠..


그러나 J에서는 이미 아무 문제 없이 가능한 이야기이다.


   cos=:2&o.
   sin=:1&o.
   square=:*:
   sin 2.5
0.598472
   square 2.5
6.25
   (sin + square) 2.5
6.84847
   ( square@sin + square@cos ) 2.5
1





참고 1. https://thestrangeloop.com/sessions/we-really-dont-know-how-to-compute

primes less than 100

(-. c e. ,/ c */ c) # c =. }. >: i. 100

100보다 작은 소수를 출력한다. 아... 어렵네. c는 임시변수.

2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

average = sum divided by count

average =. +/ % # average 1 2 3 4 5 3 김창준 씨를 통해서 알게된 J라는 언어는 참 특이한 언어다. 기존에 알고 있던 프로그래밍의 틀을 깬다고 해야 하나? 가끔씩 매뉴얼을 들여다보고 도전해보지만 늘 어렵다. ㅠ.ㅠ