X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=testub10.git;a=blobdiff_plain;f=codeb%2Fabgabe_bg.0;fp=codeb%2Fabgabe_bg.0;h=21e3b7bc892a044f219224c6fa0742f4bcc9bb33;hp=0000000000000000000000000000000000000000;hb=db2886cc9203ecfa582f2a7ae83e6630187329aa;hpb=b69df8b7819d52f5f432fed67fc5a317d2c19d7f

diff --git a/codeb/abgabe_bg.0 b/codeb/abgabe_bg.0
new file mode 100644
index 0000000..21e3b7b
--- /dev/null
+++ b/codeb/abgabe_bg.0
@@ -0,0 +1,11 @@
+struct next end;
+
+method length()
+  var l:=this;
+  var len:=0;
+  while l do
+    l:=l.next;
+    len:=len--1;
+  end;
+  return len;
+end;