From 785adecae39cd6d47bb50a37816fca88e608ac46 Mon Sep 17 00:00:00 2001 From: Marvin Borner Date: Fri, 27 Dec 2024 21:56:23 +0100 Subject: fac --- lllars/fac.lll | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 lllars/fac.lll (limited to 'lllars/fac.lll') diff --git a/lllars/fac.lll b/lllars/fac.lll new file mode 100644 index 0000000..02bf90a --- /dev/null +++ b/lllars/fac.lll @@ -0,0 +1,17 @@ +!!! all rights reserved to lars <3 !!! + +lars initial values: @0 is n, @1 is result +0lars255 +1lars1 + +larslars loop +@lars +lars|sral 0 sral +1larssral1*sral0 +0larssral0-1 +srallars lars + +larslarslars end: print number +@sral +8159larssral1 +larssral -- cgit v1.2.3