jdriordan/sqrt.fs

Last active February 11, 2021 13:00

Star (0) You must be signed in to star a gist
Fork (1) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/jdriordan/4a373e39f5a7ef1f900fc4d50b1ed20c.js"></script>
Save jdriordan/4a373e39f5a7ef1f900fc4d50b1ed20c to your computer and use it in GitHub Desktop.

Download ZIP

Nearest-integer square root in Forth

Raw

sqrt.fs

	#! /usr/bin/gforth

	: sq dup * ;
	: is_sqrt? over sq - >= ;
	: sqrt 1 begin 1+ 2dup swap is_sqrt? until ;

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment