Return to Answer

##HyperTalk: 237 characters

Indentation is not required nor counted. It is added for clarity. Also note that HyperCard 2.2 does accept those non-ASCII relational operators I used.

function P R
 put""into t
 put 0into c
 repeat with i=-R to R
 if i mod 2≠0then
 repeat with j=-R to R
 if i^2+j^2≤R^2then
 put"*"after t
 add 1to c
 else
 put" "after t
 end if
 end repeat
 put return after t
 end if
 end repeat
 return t&2*c/R/R
end P

Since HyperCard 2.2 doesn't support stdin/stdout, a function is provided instead.

HyperTalk: 237 characters

Indentation is not required nor counted. It is added for clarity. Also note that HyperCard 2.2 does accept those non-ASCII relational operators I used.

function P R
 put""into t
 put 0into c
 repeat with i=-R to R
 if i mod 2≠0then
 repeat with j=-R to R
 if i^2+j^2≤R^2then
 put"*"after t
 add 1to c
 else
 put" "after t
 end if
 end repeat
 put return after t
 end if
 end repeat
 return t&2*c/R/R
end P

Since HyperCard 2.2 doesn't support stdin/stdout, a function is provided instead.

##HyperTalk: 241 characters

Indentation is not required nor counted. It is added for clarity. Also note that HyperCard 2.2 does accept that non-ASCII less-than symbol I used (as well as the usual <=).

function P R
 put""into t
 put 0into c
 repeat with i=-R to R
 if(i+R+R)mod 2=1then
 repeat with j=-R to R
 if i^2+j^2≤R^2then
 put"*"after t
 add 1to c
 else
 put" "after t
 end if
 end repeat
 put return after t
 end if
 end repeat
 return t&2*c/R/R
end P

Since HyperCard 2.2 doesn't support stdin/stdout, a function is provided instead.

##HyperTalk: 237 characters

Indentation is not required nor counted. It is added for clarity. Also note that HyperCard 2.2 does accept those non-ASCII relational operators I used.

function P R
 put""into t
 put 0into c
 repeat with i=-R to R
 if i mod 2≠0then
 repeat with j=-R to R
 if i^2+j^2≤R^2then
 put"*"after t
 add 1to c
 else
 put" "after t
 end if
 end repeat
 put return after t
 end if
 end repeat
 return t&2*c/R/R
end P

Since HyperCard 2.2 doesn't support stdin/stdout, a function is provided instead.