! Copyright (C) 2006 Daniel Ehrenberg
! See http://f...content-available-to-author-only...e.org/license.txt for BSD license.
USING: kernel math sequences strings io ;
IN: factorial
: fac ( n -- n ) dup 1 <= [ drop 1 ] [ dup 1 - fac * ] if ;
5 fac number>string print
ISBDb3B5cmlnaHQgKEMpIDIwMDYgRGFuaWVsIEVocmVuYmVyZwohIFNlZSBodHRwOi8vZi4uLmNvbnRlbnQtYXZhaWxhYmxlLXRvLWF1dGhvci1vbmx5Li4uZS5vcmcvbGljZW5zZS50eHQgZm9yIEJTRCBsaWNlbnNlLgpVU0lORzoga2VybmVsIG1hdGggc2VxdWVuY2VzIHN0cmluZ3MgaW8gIDsKSU46IGZhY3RvcmlhbCAKCjogZmFjICggbiAtLSBuICkgZHVwIDEgPD0gWyBkcm9wIDEgXSBbIGR1cCAxIC0gZmFjICogXSBpZiA7Cgo1IGZhYyBudW1iZXI+c3RyaW5nIHByaW50Cg==