language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-12-23 08:48:03 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 8
roc/test/snapshots/lambda_capture/lambda_capture_deep_nesting.md
Jared Ramirez 8d0e05b051
Can & check stmts
2025-10-23 20:21:12 -04:00

3.1 KiB
Raw Blame History

META

description=Deep nesting with multiple captures - five-level nested lambda captures from all outer levels
type=expr

SOURCE

(|a| |b| |c| |d| |e| a + b + c + d + e)(1)(2)(3)(4)(5)

EXPECTED

NIL

PROBLEMS

NIL

TOKENS

OpenRound,OpBar,LowerIdent,OpBar,OpBar,LowerIdent,OpBar,OpBar,LowerIdent,OpBar,OpBar,LowerIdent,OpBar,OpBar,LowerIdent,OpBar,LowerIdent,OpPlus,LowerIdent,OpPlus,LowerIdent,OpPlus,LowerIdent,OpPlus,LowerIdent,CloseRound,NoSpaceOpenRound,Int,CloseRound,NoSpaceOpenRound,Int,CloseRound,NoSpaceOpenRound,Int,CloseRound,NoSpaceOpenRound,Int,CloseRound,NoSpaceOpenRound,Int,CloseRound,
EndOfFile,

PARSE

(e-apply
	(e-apply
		(e-apply
			(e-apply
				(e-apply
					(e-tuple
						(e-lambda
							(args
								(p-ident (raw "a")))
							(e-lambda
								(args
									(p-ident (raw "b")))
								(e-lambda
									(args
										(p-ident (raw "c")))
									(e-lambda
										(args
											(p-ident (raw "d")))
										(e-lambda
											(args
												(p-ident (raw "e")))
											(e-binop (op "+")
												(e-binop (op "+")
													(e-binop (op "+")
														(e-binop (op "+")
															(e-ident (raw "a"))
															(e-ident (raw "b")))
														(e-ident (raw "c")))
													(e-ident (raw "d")))
												(e-ident (raw "e")))))))))
					(e-int (raw "1")))
				(e-int (raw "2")))
			(e-int (raw "3")))
		(e-int (raw "4")))
	(e-int (raw "5")))

FORMATTED

NO CHANGE

CANONICALIZE

(e-call
	(e-call
		(e-call
			(e-call
				(e-call
					(e-lambda
						(args
							(p-assign (ident "a")))
						(e-closure
							(captures
								(capture (ident "a")))
							(e-lambda
								(args
									(p-assign (ident "b")))
								(e-closure
									(captures
										(capture (ident "a"))
										(capture (ident "b")))
									(e-lambda
										(args
											(p-assign (ident "c")))
										(e-closure
											(captures
												(capture (ident "a"))
												(capture (ident "b"))
												(capture (ident "c")))
											(e-lambda
												(args
													(p-assign (ident "d")))
												(e-closure
													(captures
														(capture (ident "a"))
														(capture (ident "b"))
														(capture (ident "c"))
														(capture (ident "d")))
													(e-lambda
														(args
															(p-assign (ident "e")))
														(e-binop (op "add")
															(e-binop (op "add")
																(e-binop (op "add")
																	(e-binop (op "add")
																		(e-lookup-local
																			(p-assign (ident "a")))
																		(e-lookup-local
																			(p-assign (ident "b"))))
																	(e-lookup-local
																		(p-assign (ident "c"))))
																(e-lookup-local
																	(p-assign (ident "d"))))
															(e-lookup-local
																(p-assign (ident "e")))))))))))))
					(e-num (value "1")))
				(e-num (value "2")))
			(e-num (value "3")))
		(e-num (value "4")))
	(e-num (value "5")))

TYPES

(expr (type "Num(_size)"))