- プログラミングのお題スレ Part6©2ch.net
752 ：デフォルトの名無しさん[sage]：2015/03/25(水) 11:36:00.11 ID:Z77MlZqb - >>706 Squeak Smalltalk
| fn |
fn := [:x :y | Float pi / 3 * #(1 -1) collect: [:theta | (y - x rotateBy: theta about: 0@0) + x]].
fn value: 2@0 value: 4@0.
"=> {3.0@ -1.732050807568877 . 3.0@1.732050807568877} "
fn value: 1@1 value: 5@5.
"=> {6.464101615137755@ -0.464101615137754 . -0.464101615137754@6.464101615137755}"
fn value: 5@ -3 value: -2@1.
"=> {4.964101615137754@5.06217782649107 . -1.964101615137754@ -7.06217782649107} "
|