>>149
言語意識のシミュレーションで
ストレスをどう関数化するかと言う問題があってな
XLispからDrschemeに書き換えなくてはならないし
昼は寝てるから心配ゴムは岡本理研ゴム

>>all
10 PRINT "行番号の付いたBASICに帰りたいbyユーミンのパクリ"
20 FOR I = 0 TO 10000 : NEXT I
25 CLS 3
27 CIRCLE (320,200),30
30 FOR I = 0 TO 360
40 R=I/180*3.14159 : X=320+60*SIN(R) : Y=200+80*COS(R)
50 THEN X1=320+80*SIN(R) : Y1=200+100*COS(R)
60 IF J=30 THEN J=0 : LINE (X,Y)-(X1,Y1),2
70 PSET (X,Y),2 : J=J+1
80 NEXT I
90 LINE (320,5)-(320,195),2
100 GOTO 100