diff --git a/languages/perl6/src/classes/List.pir b/languages/perl6/src/classes/List.pir
index b9b5107..3b6fe2a 100644
--- a/languages/perl6/src/classes/List.pir
+++ b/languages/perl6/src/classes/List.pir
@@ -684,6 +686,107 @@
 .end
 
 
+=item min()
+
+Return minimum element in list
+
+=cut
+
+.sub 'min' :method :multi('ResizablePMCArray')
+    .param pmc by              :optional
+    .param int has_by          :opt_flag
+    .local pmc elem, res, iter
+
+    if has_by goto start
+    by = get_hll_global 'infix:<=>'
+  start:
+    iter = self.'iterator'()
+    if iter goto do_work
+    res = new 'Failure'
+    goto done
+
+  do_work:
+    res = shift iter
+  loop:
+    unless iter goto done
+    elem = shift iter
+    $I0 = by(elem, res)
+    unless $I0 < 0 goto loop
+    res = elem
+    goto loop
+
+  done:
+    .return(res)
+.end
+
+.namespace []
+.sub 'min' :multi(Closure)
+    .param pmc by
+    .param pmc values          :slurpy
+    $P0 = values.'min'(by)
+    .return ($P0)
+.end
+
+.sub 'min' :multi()
+    .param pmc values          :slurpy
+    .local pmc by
+    by = get_hll_global 'infix:<=>'
+    $P0 = values.'min'(by)
+    .return ($P0)
+.end
+
+
+.namespace ['List']
+=item max()
+
+Return maximum element in list
+
+=cut
+
+.sub 'max' :method :multi('ResizablePMCArray')
+    .param pmc by              :optional
+    .param int has_by          :opt_flag
+    .local pmc elem, res, iter
+
+    if has_by goto start
+    by = get_hll_global 'infix:<=>'
+  start:
+    iter = self.'iterator'()
+    if iter goto do_work
+    res = new 'Failure'
+    goto done
+
+  do_work:
+    res = shift iter
+  loop:
+    unless iter goto done
+    elem = shift iter
+    $I0 = by(elem, res)
+    unless $I0 > 0 goto loop
+    res = elem
+    goto loop
+
+  done:
+    .return(res)
+.end
+
+.namespace []
+.sub 'max' :multi(Closure)
+    .param pmc by
+    .param pmc values          :slurpy
+    $P0 = values.'max'(by)
+    .return ($P0)
+.end
+
+.sub 'max' :multi()
+    .param pmc values          :slurpy
+    .local pmc by
+    by = get_hll_global 'infix:<=>'
+    $P0 = values.'max'(by)
+    .return ($P0)
+.end
+
+
 =back
 
 =head1 Functions