mirror of
				https://github.com/KevinMidboe/linguist.git
				synced 2025-10-29 17:50:22 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			15 lines
		
	
	
		
			295 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			15 lines
		
	
	
		
			295 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
local a = symbol()
 | 
						|
local b = { symbol(int), symbol(int) }
 | 
						|
 | 
						|
local c = symbol(int)
 | 
						|
local d = symbol(double)
 | 
						|
 | 
						|
terra foo()
 | 
						|
	var [a] : double,[b] = 1.25,1.25,1.25
 | 
						|
	var [c] : double,[d] : int = 3.25,3.25
 | 
						|
	return [a] + [b[1]] + [b[2]] + [c] + [d] 
 | 
						|
end
 | 
						|
 | 
						|
local test = require("test")
 | 
						|
 | 
						|
test.eq(foo(),9.50) |