mirror of
				https://github.com/roc-lang/roc.git
				synced 2025-11-03 22:13:35 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			35 lines
		
	
	
	
		
			1.1 KiB
		
	
	
	
		
			Text
		
	
	
	
	
	
			
		
		
	
	
			35 lines
		
	
	
	
		
			1.1 KiB
		
	
	
	
		
			Text
		
	
	
	
	
	
procedure List.2 (List.77, List.78):
 | 
						|
    let List.288 : U64 = CallByName List.6 List.77;
 | 
						|
    let List.285 : Int1 = CallByName Num.22 List.78 List.288;
 | 
						|
    if List.285 then
 | 
						|
        let List.287 : I64 = CallByName List.60 List.77 List.78;
 | 
						|
        let List.286 : [C {}, C I64] = TagId(1) List.287;
 | 
						|
        ret List.286;
 | 
						|
    else
 | 
						|
        let List.284 : {} = Struct {};
 | 
						|
        let List.283 : [C {}, C I64] = TagId(0) List.284;
 | 
						|
        ret List.283;
 | 
						|
 | 
						|
procedure List.6 (#Attr.2):
 | 
						|
    let List.290 : U64 = lowlevel ListLen #Attr.2;
 | 
						|
    ret List.290;
 | 
						|
 | 
						|
procedure List.60 (#Attr.2, #Attr.3):
 | 
						|
    let List.289 : I64 = lowlevel ListGetUnsafe #Attr.2 #Attr.3;
 | 
						|
    ret List.289;
 | 
						|
 | 
						|
procedure Num.22 (#Attr.2, #Attr.3):
 | 
						|
    let Num.188 : Int1 = lowlevel NumLt #Attr.2 #Attr.3;
 | 
						|
    ret Num.188;
 | 
						|
 | 
						|
procedure Test.1 (Test.2):
 | 
						|
    let Test.6 : List I64 = Array [1i64, 2i64, 3i64];
 | 
						|
    let Test.7 : U64 = 0i64;
 | 
						|
    let Test.5 : [C {}, C I64] = CallByName List.2 Test.6 Test.7;
 | 
						|
    dec Test.6;
 | 
						|
    ret Test.5;
 | 
						|
 | 
						|
procedure Test.0 ():
 | 
						|
    let Test.4 : {} = Struct {};
 | 
						|
    let Test.3 : [C {}, C I64] = CallByName Test.1 Test.4;
 | 
						|
    ret Test.3;
 |