七周七语言：Io Day 2-优快云博客

本文详细介绍了Io编程语言的学习过程，包括控制语句、文件I/O、错误处理、列表操作等核心内容。通过实例展示了Fibonacci数列的计算、二维数组求和、列表平均值计算、矩阵操作及文件读写等功能，同时分享了作者对Io消息机制和反射的理解。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

第二天

今天做这些花了几乎一个下午……主要原因是要查iolanguage.org上的文档，而且那个文档不知道为什么不能搜索 :(
这“一天”的内容，关于Io的控制语句、文件IO、错误处理、列表都有涉及。

个人比较喜欢的是Io的控制语句，写在一个()里，没有else，条件、语句都用一个comma隔开的感觉很不错；
有点不理解的是关于Io的消息机制和反射，虽然书上的例子举的比较清楚，可是还是觉得将其称之为“反射”比较不习惯；再者，关于原型和对象的关系，感觉就是类的继承（？！）……好吧，学习一门语言的过程还是挺欢乐的～

计算fibonacci数列

#循环的方法
array := List clone
array := list(1, 1)
#change the value of a to cal fib(a)
a ::= 10
for(i, 2, a, 1, array append(array at(i-1) + array at(i-2)) println)
#Output
list(1, 1, 2)
list(1, 1, 2, 3)
list(1, 1, 2, 3, 5)
list(1, 1, 2, 3, 5, 8)
list(1, 1, 2, 3, 5, 8, 13)
list(1, 1, 2, 3, 5, 8, 13, 21)
list(1, 1, 2, 3, 5, 8, 13, 21, 34)
list(1, 1, 2, 3, 5, 8, 13, 21, 34, 55)
list(1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89)
==> list(1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89)
#递归的方法
fib := method( n,
        if(((n == 1) or (n == 2)),return(1))
        #loop until n == i
        reFib := method( n, i, n1, n2,
            if((n == i),return(n1 + n2))
                return(reFib(n,(i+1),n2,(n2 + n1)))
        )
        #The first condition of reFib
        return(reFib( n, 3, 1, 1))
)
fib(1) println
fib(2) println
fib(10) println
#Output
1
1
55

在分母为0的情况下，如何让运算符返回0？

  Number setSlot("division", Number getSlot("/"))
  
  Number setSlot("/",
     method( denominator,
           if((denominator == 0),return (0))
           return(self division( denominator))
        )
  )
  
  (1 / 0) println
  (2 / 1) println
  #Output
  0
  2

对二维数组进行求和

#Define a 2D array
2d_array := list(
		 list(1, 2, 3),
		 list(4, 5, 6),
		 list(7, 8, 9)
)
sum := 0
#Nested foreach statement
2d_array foreach(r, r foreach(v, (sum = sum + v)))
"The sum of this 2D array is: " print
sum println
#Output
The sum of this 2D array is: 45

对列表增加一个名为myAverage的槽，以计算列表中所有数字的平均值。如果列表没有数字会发生什么？

List myAverage := method(
	 sum := 0 
	 self foreach(k, 
	 	  if((k type != "Number"),
		  		Exception raise("There is a NaN-value in the list, please check your list." ),
		  sum =( sum + k))
	)
	return (sum/(self size))
)

list(1, 2, 3) myAverage println
list(1, "a", 3) myAverage println
#Output
2
  Exception: There is a NaN-value in the list, please check your list.
  ---------
  Exception raise                      myAverage.io 5
  List myAverage                       myAverage.io 13
  CLI doFile                           Z_CLI.io 140
  CLI run                              IoState_runCLI() 1

对二维列表写一个原型。该原型的dim(x, y)方法可为一个包含y个列表的列表分配内存，其中每个列表都有x个元素，set(x, y)方法可以设置列表中的值，get(x, y)方法可返回列表中的值。

2DList := List clone
#This method should be considered later
2DList dim := method(x, y,
	   if( (self proto type == "List"),
	   	   return 2DList clone dim(x, y)
	   )
	   self setSize(x)
	   for(i, 0, (x-1), 1,
	   		  self atPut(i, (list() setSize(y)))
	   )
	   return self
)
#set the value at(x) at(y)
2DList set := method(x, y, value,
	   self at(x) atPut(y, value)
	   return self
)
#get the value 
2DList get := method(x, y,
	   return (self at(x) at(y))
)

matrix := 2DList clone dim(3, 3)
for(i, 0, 2, 1, for(n, 0, 2, 1, matrix set(i, n, i+n))) println
matrix get(1, 1) println
#Output
list(list(0, 1, 2), list(1, 2, 3), list(2, 3, 4))
2

把矩阵写入文件，并从文件中读取矩阵。

#Define a matrix
matrix := list(
	   list(1, 2, 3),
	   list(4, 5, 6),
	   list(7, 8, 9)
)
#Create a new file named test.txt
data := File open("test.txt")
#Transform the matrix into a sequence and write it into the file
data File write(matrix serialized)
data close
#Read solution 1: use File open(still a serialized file)
readData := File open("test.txt")
readData readLine println
readData close
#Read solution 2: use doFile
readData2 := doFile("test.txt")
readData2 println
readData2 close
#Output
list(list(1, 2, 3);, list(4, 5, 6);, list(7, 8, 9););
list(list(1, 2, 3), list(4, 5, 6), list(7, 8, 9))

写一个猜数字程序。

#Guess number
standardIO := File standardInput
guess := nil
counter := 0
#Get a random number between 1~100
answer := (Random value(99)+1) floor

while( counter < 10,
	   "Guess a number(1..100):" println
	   guess := standardIO readLine() asNumber()
	   if((guess == answer), 
	   			 "You are right!" println;break,
				 if((guess > answer), 
				 		   "Too big" println, 
				 		   "Too small" println)
	   )
       counter = counter + 1
)
#Output
Guess a number(1..100):
50 
Too small
Guess a number(1..100):
75
Too small
Guess a number(1..100):
90
Too small
Guess a number(1..100):
95
Too big
Guess a number(1..100):
93
Too big
Guess a number(1..100):
92
You are right!

转载于:https://www.cnblogs.com/iceCream/archive/2012/12/14/2855491.html